27 |
C in K [d(TKE)/dz](0)=m2*ustar^3 |
C in K [d(TKE)/dz](0)=m2*ustar^3 |
28 |
C GGL90alpha - constant relating viscosity to GGL90 diffusivity |
C GGL90alpha - constant relating viscosity to GGL90 diffusivity |
29 |
C (default=1 in Gaspar etal.) |
C (default=1 in Gaspar etal.) |
30 |
|
C GGL90TKEsurfmin - minimum of surface kinetic energy boundary condition |
31 |
|
C (default=GGL90TKEmin) |
32 |
C GGL90TKEmin - minimum kinetic energy, leads to minimum mixing if TKE=0. |
C GGL90TKEmin - minimum kinetic energy, leads to minimum mixing if TKE=0. |
33 |
C GGL90TKEbottom - bottom bounardy condition for kinetic energy |
C GGL90TKEbottom - bottom bounardy condition for kinetic energy |
34 |
C (default=GGL90TKEmin) |
C (default=GGL90TKEmin) |
61 |
_RL GGL90alpha, GGL90m2 |
_RL GGL90alpha, GGL90m2 |
62 |
_RL GGL90diffTKEh |
_RL GGL90diffTKEh |
63 |
_RL GGL90mixingLengthMin |
_RL GGL90mixingLengthMin |
64 |
_RL GGL90TKEmin, GGL90TKEbottom |
_RL GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom |
65 |
_RL GGL90viscMax, GGL90diffMax |
_RL GGL90viscMax, GGL90diffMax |
66 |
_RL GGL90dumpFreq, GGL90taveFreq |
_RL GGL90dumpFreq, GGL90taveFreq |
67 |
COMMON /GGL90_PARMS_R/ |
COMMON /GGL90_PARMS_R/ |
69 |
& GGL90alpha, GGL90m2, |
& GGL90alpha, GGL90m2, |
70 |
& GGL90diffTKEh, |
& GGL90diffTKEh, |
71 |
& GGL90mixingLengthMin, |
& GGL90mixingLengthMin, |
72 |
& GGL90TKEmin, GGL90TKEbottom, |
& GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom, |
73 |
& GGL90viscMax, GGL90diffMax, |
& GGL90viscMax, GGL90diffMax, |
74 |
& GGL90dumpFreq, GGL90taveFreq |
& GGL90dumpFreq, GGL90taveFreq |
75 |
|
|