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, |
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 */ |