/[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.2 by dimitri, Fri Apr 27 22:25:23 2012 UTC revision 1.5 by torge, Wed Mar 27 18:59:52 2013 UTC
# Line 84  CToM<<< Line 84  CToM<<<
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)
# Line 105  C     strain rate tensor Line 100  C     strain rate tensor
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)
# Line 216  C--   KGEO    Level used as a proxy for Line 209  C--   KGEO    Level used as a proxy for
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
# Line 226  C                the bottom of ocean sur Line 221  C                the bottom of ocean sur
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: ***

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5

  ViewVC Help
Powered by ViewVC 1.1.22