/[MITgcm]/MITgcm/pkg/ggl90/GGL90.h
ViewVC logotype

Diff of /MITgcm/pkg/ggl90/GGL90.h

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

revision 1.3 by mlosch, Tue Jun 6 16:18:18 2006 UTC revision 1.4 by dfer, Fri Jan 30 02:23:56 2009 UTC
# Line 64  CEOP Line 64  CEOP
64        _RL    GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom        _RL    GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom
65        _RL    GGL90viscMax, GGL90diffMax        _RL    GGL90viscMax, GGL90diffMax
66        _RL    GGL90dumpFreq, GGL90taveFreq        _RL    GGL90dumpFreq, GGL90taveFreq
67          INTEGER mxlMaxFlag
68        COMMON /GGL90_PARMS_R/          COMMON /GGL90_PARMS_R/  
69       &     GGL90ck, GGL90ceps,       &     GGL90ck, GGL90ceps,
70       &     GGL90alpha, GGL90m2,       &     GGL90alpha, GGL90m2,
# Line 71  CEOP Line 72  CEOP
72       &     GGL90mixingLengthMin,       &     GGL90mixingLengthMin,
73       &     GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom,       &     GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom,
74       &     GGL90viscMax, GGL90diffMax,       &     GGL90viscMax, GGL90diffMax,
75       &     GGL90dumpFreq, GGL90taveFreq       &     GGL90dumpFreq, GGL90taveFreq, mxlMaxFlag
76    
77        _RL GGL90TKE   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL GGL90TKE   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
78        _RL GGL90viscAr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL GGL90viscAr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
79        _RL GGL90diffKr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL GGL90diffKr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
80        _RL recip_hFacI(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  c      _RL recip_hFacI(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
81        COMMON /GGL90_FIELDS/ GGL90TKE,        COMMON /GGL90_FIELDS/ GGL90TKE,
82       &     GGL90viscAr, GGL90diffKr,       &     GGL90viscAr, GGL90diffKr
83       &     recip_hFacI  c     &     ,recip_hFacI
84    
85        LOGICAL GGL90isOn, GGL90mixingMaps, GGL90writeState        LOGICAL GGL90isOn, GGL90mixingMaps, GGL90writeState
86        COMMON /GGL90_PARMS_L/        COMMON /GGL90_PARMS_L/
87       &     GGL90isOn, GGL90mixingMaps, GGL90writeState       &     GGL90isOn, GGL90mixingMaps, GGL90writeState
88    
89    #ifdef ALLOW_GGL90_SMOOTH
90          COMMON /GGL90_CORNER/ mskCor, GGL90diffKrS
91          _RL mskCor(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
92          _RL GGL90diffKrS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
93    #endif
94    
95  #endif /* ALLOW_GGL90 */  #endif /* ALLOW_GGL90 */
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22