84 |
#endif |
#endif |
85 |
C>>>ToM |
C>>>ToM |
86 |
|
|
|
#ifdef SEAICE_GROWTH_LEGACY |
|
|
COMMON/SEAICE_DYNVARS_2/ areaNm1, hEffNm1 |
|
|
_RL areaNm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
|
_RL hEffNm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
|
#endif /* SEAICE_GROWTH_LEGACY */ |
|
|
|
|
87 |
C uIceC :: average of UICE between last two time steps |
C uIceC :: average of UICE between last two time steps |
88 |
C vIceC :: average of VICE between last two time steps |
C vIceC :: average of VICE between last two time steps |
89 |
COMMON/SEAICE_DYNVARS_3/ |
COMMON/SEAICE_DYNVARS_3/ |
90 |
& ETA,ZETA,PRESS, e11, e22, e12, |
& ETA,etaZ,ZETA,PRESS, e11, e22, e12, |
91 |
& DRAGS,DRAGA,FORCEX,FORCEY, |
& FORCEX,FORCEY, |
92 |
& uIceC, vIceC, uIceNm1, vIceNm1 |
& uIceC, vIceC, uIceNm1, vIceNm1 |
93 |
_RL ETA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL ETA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
94 |
|
_RL etaZ (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
95 |
_RL ZETA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL ZETA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
96 |
C ice strength/pressure term |
C ice strength/pressure term |
97 |
_RL PRESS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL PRESS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
100 |
_RL e22 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL e22 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
101 |
_RL e12 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL e12 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
102 |
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) |
|
103 |
_RL FORCEX (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL FORCEX (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
104 |
_RL FORCEY (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL FORCEY (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
105 |
_RL uIceC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL uIceC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
209 |
#ifdef ALLOW_SEAICE_COST_EXPORT |
#ifdef ALLOW_SEAICE_COST_EXPORT |
210 |
_RL uHeffExportCell(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL uHeffExportCell(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
211 |
_RL vHeffExportCell(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL vHeffExportCell(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
212 |
|
_RL icevolMeanCell(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
213 |
COMMON /SEAICE_COST_EXPORT_R/ |
COMMON /SEAICE_COST_EXPORT_R/ |
214 |
& uHeffExportCell, vHeffExportCell |
& uHeffExportCell, vHeffExportCell, |
215 |
|
& icevolMeanCell |
216 |
#endif |
#endif |
217 |
|
|
218 |
C SWFracB :: fraction of surface Short-Wave radiation reaching |
C SWFracB :: fraction of surface Short-Wave radiation reaching |
221 |
COMMON /SEAICE_SW_R/ |
COMMON /SEAICE_SW_R/ |
222 |
& SWFracB |
& SWFracB |
223 |
|
|
224 |
|
#ifdef SEAICE_ALLOW_JFNK |
225 |
|
C diagnostics for the JFNK solver |
226 |
|
INTEGER totalNewtonIters |
227 |
|
INTEGER totalNewtonFails |
228 |
|
INTEGER totalKrylovIters |
229 |
|
INTEGER totalKrylovFails |
230 |
|
INTEGER totalJFNKtimeSteps |
231 |
|
COMMON /SEAICE_JFNK_I/ |
232 |
|
& totalNewtonIters, totalNewtonFails, |
233 |
|
& totalKrylovIters, totalKrylovFails, |
234 |
|
& totalJFNKtimeSteps |
235 |
|
INTEGER nVec |
236 |
|
PARAMETER ( nVec=2*sNx*sNy ) |
237 |
|
_RL scalarProductMetric( nVec, 1, nSx, nSy ) |
238 |
|
COMMON /SEAICE_JFNK_RL/ scalarProductMetric |
239 |
|
#endif /* SEAICE_ALLOW_JFNK */ |
240 |
|
|
241 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |
242 |
CEH3 ;;; mode:fortran *** |
CEH3 ;;; mode:fortran *** |
243 |
CEH3 ;;; End: *** |
CEH3 ;;; End: *** |