/[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.4 by torge, Mon Dec 10 22:19:49 2012 UTC revision 1.6 by torge, Fri May 3 18:59:39 2013 UTC
# Line 63  C                    for metric terms in Line 63  C                    for metric terms in
63  #endif /* SEAICE_CGRID */  #endif /* SEAICE_CGRID */
64    
65  C--   Dynamical variables  C--   Dynamical variables
 CToM<<<  
66  #ifdef SEAICE_ITD  #ifdef SEAICE_ITD
67        COMMON/SEAICE_DYNVARS_1/AREA,HEFF,HSNOW,UICE,VICE,        COMMON/SEAICE_DYNVARS_1/AREA,HEFF,HSNOW,UICE,VICE,
68       &                        AREAITD,HEFFITD,HSNOWITD       &                        AREAITD,HEFFITD,HSNOWITD
69  #else  #else
70        COMMON/SEAICE_DYNVARS_1/AREA,HEFF,HSNOW,UICE,VICE        COMMON/SEAICE_DYNVARS_1/AREA,HEFF,HSNOW,UICE,VICE
71  #endif  #endif
 C>>>ToM  
72        _RL AREA       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL AREA       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
73        _RL HEFF       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL HEFF       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
74        _RL HSNOW      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL HSNOW      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
75        _RL UICE       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL UICE       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
76        _RL VICE       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL VICE       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
 CToM<<<  
77  #ifdef SEAICE_ITD  #ifdef SEAICE_ITD
78        _RL AREAITD    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy)        _RL AREAITD    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy)
79        _RL HEFFITD    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy)        _RL HEFFITD    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy)
80        _RL HSNOWITD   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy)        _RL HSNOWITD   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy)
81  #endif  #endif
 C>>>ToM  
   
 #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 */  
82    
83  C     uIceC :: average of UICE between last two time steps  C     uIceC :: average of UICE between last two time steps
84  C     vIceC :: average of VICE between last two time steps  C     vIceC :: average of VICE between last two time steps
# Line 238  C     diagnostics for the JFNK solver Line 228  C     diagnostics for the JFNK solver
228       &     totalNewtonIters, totalNewtonFails,       &     totalNewtonIters, totalNewtonFails,
229       &     totalKrylovIters, totalKrylovFails,       &     totalKrylovIters, totalKrylovFails,
230       &     totalJFNKtimeSteps       &     totalJFNKtimeSteps
231          INTEGER nVec
232          PARAMETER ( nVec=2*sNx*sNy )
233          _RL scalarProductMetric( nVec, 1, nSx, nSy )
234          COMMON /SEAICE_JFNK_RL/ scalarProductMetric
235  #endif /* SEAICE_ALLOW_JFNK */  #endif /* SEAICE_ALLOW_JFNK */
236    
237  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22