/[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.1 by dimitri, Fri Apr 27 22:22:17 2012 UTC revision 1.3 by heimbach, Mon Oct 22 19:38:28 2012 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
66    CToM<<<
67    #ifdef SEAICE_ITD
68          COMMON/SEAICE_DYNVARS_1/AREA,HEFF,HSNOW,UICE,VICE,
69         &                        AREAITD,HEFFITD,HSNOWITD
70    #else
71        COMMON/SEAICE_DYNVARS_1/AREA,HEFF,HSNOW,UICE,VICE        COMMON/SEAICE_DYNVARS_1/AREA,HEFF,HSNOW,UICE,VICE
72    #endif
73    C>>>ToM
74        _RL AREA       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL AREA       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
75        _RL HEFF       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL HEFF       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
76        _RL HSNOW      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL HSNOW      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
77        _RL UICE       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL UICE       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
78        _RL VICE       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL VICE       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
79    CToM<<<
80    #ifdef SEAICE_ITD
81          _RL AREAITD    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy)
82          _RL HEFFITD    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy)
83          _RL HSNOWITD   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy)
84    #endif
85    C>>>ToM
86    
87  #ifdef SEAICE_GROWTH_LEGACY  #ifdef SEAICE_GROWTH_LEGACY
88        COMMON/SEAICE_DYNVARS_2/ areaNm1, hEffNm1        COMMON/SEAICE_DYNVARS_2/ areaNm1, hEffNm1
# Line 80  C     uIceC :: average of UICE between l Line 94  C     uIceC :: average of UICE between l
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,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 ZETA       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL ZETA       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 91  C     strain rate tensor Line 105  C     strain rate tensor
105        _RL e22        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL e22        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
106        _RL e12        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL e12        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
107  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)  
108        _RL FORCEX     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL FORCEX     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
109        _RL FORCEY     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL FORCEY     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
110        _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 100  C Line 112  C
112        _RL uIceNm1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL uIceNm1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
113        _RL vIceNm1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL vIceNm1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
114    
115    #if (defined (ALLOW_MEAN_SFLUX_COST_CONTRIBUTION) || defined (ALLOW_SSH_GLOBMEAN_COST_CONTRIBUTION))
116    C--   Dynamical variables
117          COMMON/SEAICE_DYNVARS_COST/ AREAforAtmFW, frWtrAtm
118          _RL AREAforAtmFW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
119          _RL frWtrAtm     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
120    #endif
121    
122  #ifndef SEAICE_CGRID  #ifndef SEAICE_CGRID
123        COMMON/SEAICE_DYNVARS_BGRID/ AMASS, DAIRN        COMMON/SEAICE_DYNVARS_BGRID/ AMASS, DAIRN
124        _RL AMASS      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL AMASS      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 131  C     frWtrIce contains m of freshwater Line 150  C     frWtrIce contains m of freshwater
150  C              that is, ice due to precipitation or snow  C              that is, ice due to precipitation or snow
151  C     frWtrAtm contains freshwater flux from the atmosphere  C     frWtrAtm contains freshwater flux from the atmosphere
152        COMMON/ICEFLUX/ saltWtrIce, frWtrIce        COMMON/ICEFLUX/ saltWtrIce, frWtrIce
 #ifdef ALLOW_MEAN_SFLUX_COST_CONTRIBUTION  
      &     , frWtrAtm  
       _RL frWtrAtm   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
 #endif  
153        _RL saltWtrIce (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL saltWtrIce (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
154        _RL frWtrIce   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL frWtrIce   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
155    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22