74 |
& GGL90viscMax, GGL90diffMax, |
& GGL90viscMax, GGL90diffMax, |
75 |
& GGL90dumpFreq, GGL90taveFreq, mxlMaxFlag |
& 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 GGL90viscArU(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 GGL90viscArV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
80 |
|
_RL GGL90diffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
81 |
c _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) |
82 |
COMMON /GGL90_FIELDS/ GGL90TKE, |
COMMON /GGL90_FIELDS/ GGL90TKE, |
83 |
& GGL90viscAr, GGL90diffKr |
& GGL90viscArU, GGL90viscArV, GGL90diffKr |
84 |
c & ,recip_hFacI |
c & ,recip_hFacI |
85 |
|
|
86 |
LOGICAL GGL90isOn, GGL90mixingMaps, GGL90writeState |
LOGICAL GGL90isOn, GGL90mixingMaps, GGL90writeState |
88 |
& GGL90isOn, GGL90mixingMaps, GGL90writeState |
& GGL90isOn, GGL90mixingMaps, GGL90writeState |
89 |
|
|
90 |
#ifdef ALLOW_GGL90_SMOOTH |
#ifdef ALLOW_GGL90_SMOOTH |
91 |
COMMON /GGL90_CORNER/ mskCor, GGL90diffKrS |
COMMON /GGL90_CORNER/ mskCor |
92 |
_RL mskCor(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL mskCor(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
_RL GGL90diffKrS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
93 |
#endif |
#endif |
94 |
|
|
95 |
#endif /* ALLOW_GGL90 */ |
#endif /* ALLOW_GGL90 */ |