93 |
C uIceC :: average of UICE between last two time steps |
C uIceC :: average of UICE between last two time steps |
94 |
C vIceC :: average of VICE between last two time steps |
C vIceC :: average of VICE between last two time steps |
95 |
COMMON/SEAICE_DYNVARS_3/ |
COMMON/SEAICE_DYNVARS_3/ |
96 |
& ETA,ZETA,PRESS, e11, e22, e12, |
& ETA,etaZ,ZETA,PRESS, e11, e22, e12, |
97 |
& DRAGS,DRAGA,FORCEX,FORCEY, |
& FORCEX,FORCEY, |
98 |
& uIceC, vIceC, uIceNm1, vIceNm1 |
& uIceC, vIceC, uIceNm1, vIceNm1 |
99 |
_RL ETA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL ETA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
100 |
|
_RL etaZ (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
101 |
_RL ZETA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL ZETA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
102 |
C ice strength/pressure term |
C ice strength/pressure term |
103 |
_RL PRESS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL PRESS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
106 |
_RL e22 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL e22 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
107 |
_RL e12 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL e12 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
108 |
C |
C |
|
_RL DRAGS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
|
_RL DRAGA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
109 |
_RL FORCEX (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL FORCEX (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
110 |
_RL FORCEY (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL FORCEY (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
111 |
_RL uIceC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL uIceC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
215 |
#ifdef ALLOW_SEAICE_COST_EXPORT |
#ifdef ALLOW_SEAICE_COST_EXPORT |
216 |
_RL uHeffExportCell(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL uHeffExportCell(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
217 |
_RL vHeffExportCell(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL vHeffExportCell(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
218 |
|
_RL icevolMeanCell(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
219 |
COMMON /SEAICE_COST_EXPORT_R/ |
COMMON /SEAICE_COST_EXPORT_R/ |
220 |
& uHeffExportCell, vHeffExportCell |
& uHeffExportCell, vHeffExportCell, |
221 |
|
& icevolMeanCell |
222 |
#endif |
#endif |
223 |
|
|
224 |
C SWFracB :: fraction of surface Short-Wave radiation reaching |
C SWFracB :: fraction of surface Short-Wave radiation reaching |
227 |
COMMON /SEAICE_SW_R/ |
COMMON /SEAICE_SW_R/ |
228 |
& SWFracB |
& SWFracB |
229 |
|
|
230 |
|
#ifdef SEAICE_ALLOW_JFNK |
231 |
|
C diagnostics for the JFNK solver |
232 |
|
INTEGER totalNewtonIters |
233 |
|
INTEGER totalNewtonFails |
234 |
|
INTEGER totalKrylovIters |
235 |
|
INTEGER totalKrylovFails |
236 |
|
INTEGER totalJFNKtimeSteps |
237 |
|
COMMON /SEAICE_JFNK_I/ |
238 |
|
& totalNewtonIters, totalNewtonFails, |
239 |
|
& totalKrylovIters, totalKrylovFails, |
240 |
|
& totalJFNKtimeSteps |
241 |
|
#endif /* SEAICE_ALLOW_JFNK */ |
242 |
|
|
243 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |
244 |
CEH3 ;;; mode:fortran *** |
CEH3 ;;; mode:fortran *** |
245 |
CEH3 ;;; End: *** |
CEH3 ;;; End: *** |