/[MITgcm]/MITgcm_contrib/torge/itd/code/SEAICE.h
ViewVC logotype

Diff of /MITgcm_contrib/torge/itd/code/SEAICE.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by heimbach, Mon Oct 22 19:38:28 2012 UTC revision 1.4 by torge, Mon Dec 10 22:19:49 2012 UTC
# Line 93  C>>>ToM Line 93  C>>>ToM
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       &     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)
# Line 214  C--   KGEO    Level used as a proxy for Line 215  C--   KGEO    Level used as a proxy for
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
# Line 224  C                the bottom of ocean sur Line 227  C                the bottom of ocean sur
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: ***
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22