/[MITgcm]/MITgcm/pkg/longstep/LONGSTEP.h
ViewVC logotype

Diff of /MITgcm/pkg/longstep/LONGSTEP.h

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

revision 1.1 by jahn, Fri Jun 26 23:10:09 2009 UTC revision 1.2 by jmc, Sun Jun 28 16:34:22 2009 UTC
# Line 40  C Line 40  C
40        INTEGER LS_thetaCount(nSx,nSy)        INTEGER LS_thetaCount(nSx,nSy)
41        INTEGER LS_saltCount(nSx,nSy)        INTEGER LS_saltCount(nSx,nSy)
42        INTEGER LS_IVDConvCountCount(nSx,nSy)        INTEGER LS_IVDConvCountCount(nSx,nSy)
43        COMMON /LONGSTEP_DYNVARS/        COMMON /LONGSTEP_DYNVARS_R/
44       &       LS_uVel,LS_vVel,LS_wVel,LS_theta,LS_salt,       &       LS_uVel, LS_vVel, LS_wVel,
45       &       LS_IVDConvCount,       &       LS_theta, LS_salt, LS_IVDConvCount
46       &       LS_uVelCount,LS_vVelCount,LS_wVelCount,LS_thetaCount,        COMMON /LONGSTEP_DYNVARS_I/
47       &       LS_saltCount, LS_IVDConvCountCount       &       LS_uVelCount, LS_vVelCount, LS_wVelCount,
48         &       LS_thetaCount, LS_saltCount, LS_IVDConvCountCount
49    
50  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
51  C     Bottom row of tensor corresponds to W points  C     Bottom row of tensor corresponds to W points
# Line 55  C Line 56  C
56        _RL LS_Kwx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL LS_Kwx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
57        _RL LS_Kwy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL LS_Kwy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
58        _RL LS_Kwz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL LS_Kwz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
59        INTEGER LS_KwxCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        INTEGER LS_KwxCount(nSx,nSy)
60        INTEGER LS_KwyCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        INTEGER LS_KwyCount(nSx,nSy)
61        INTEGER LS_KwzCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        INTEGER LS_KwzCount(nSx,nSy)
62        COMMON /LONGSTEP_GM/ LS_Kwx,LS_Kwy,LS_Kwz,        COMMON /LONGSTEP_GM_R/ LS_Kwx, LS_Kwy, LS_Kwz
63       &       LS_KwxCount,LS_KwyCount,LS_KwzCount        COMMON /LONGSTEP_GM_I/ LS_KwxCount,LS_KwyCount,LS_KwzCount
64  #endif /* ALLOW_GMREDI */  #endif /* ALLOW_GMREDI */
65    
66  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
# Line 68  C     LS_KPPghat    :: longstep average Line 69  C     LS_KPPghat    :: longstep average
69  C  C
70        _RL LS_KPPdiffKzS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL LS_KPPdiffKzS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
71        _RL LS_KPPghat    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL LS_KPPghat    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
72        INTEGER LS_KPPdiffKzSCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        INTEGER LS_KPPdiffKzSCount(nSx,nSy)
73        INTEGER LS_KPPghatCount   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        INTEGER LS_KPPghatCount   (nSx,nSy)
74        COMMON /LONGSTEP_KPP/ LS_KPPdiffKzS, LS_KPPghat,        COMMON /LONGSTEP_KPP_R/ LS_KPPdiffKzS, LS_KPPghat
75       &       LS_KPPdiffKzSCount, LS_KPPghatCount        COMMON /LONGSTEP_KPP_I/ LS_KPPdiffKzSCount, LS_KPPghatCount
76  #endif  #endif
77    
78  #ifdef SHORTWAVE_HEATING  #ifdef SHORTWAVE_HEATING
# Line 79  C     LS_Qsw :: longstep average of net Line 80  C     LS_Qsw :: longstep average of net
80  C  C
81        _RS LS_Qsw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS LS_Qsw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
82        INTEGER LS_QswCount(nSx,nSy)        INTEGER LS_QswCount(nSx,nSy)
83        COMMON /LONGSTEP_EXTRA/ LS_Qsw, LS_QswCount        COMMON /LONGSTEP_EXTRA_R/ LS_Qsw
84          COMMON /LONGSTEP_EXTRA_I/ LS_QswCount
85  #endif  #endif
86    
87  C     ice?  C     ice?
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22