68 |
C Blanke and Delecluse (1993, JPO) use |
C Blanke and Delecluse (1993, JPO) use |
69 |
GGL90TKEsurfMin = 1.0 _d -04 |
GGL90TKEsurfMin = 1.0 _d -04 |
70 |
GGL90TKEbottom = UNSET_RL |
GGL90TKEbottom = UNSET_RL |
71 |
GGL90viscMax = 1.0 _d 0 |
GGL90viscMax = 1. _d 2 |
72 |
GGL90diffMax = 1.0 _d 1 |
GGL90diffMax = 1. _d 2 |
73 |
GGL90diffTKEh = 0.0 _d 0 |
GGL90diffTKEh = 0.0 _d 0 |
74 |
GGL90mixingLengthMin = 1.0 _d -08 |
GGL90mixingLengthMin = 1.0 _d -08 |
75 |
GGL90TKEFile = ' ' |
GGL90TKEFile = ' ' |
185 |
& 'GGL90mixingLengthMin =', |
& 'GGL90mixingLengthMin =', |
186 |
& ' /* GGL90 minimum mixing length ( m ). */') |
& ' /* GGL90 minimum mixing length ( m ). */') |
187 |
iL = MAX_LEN_MBUF - 22 |
iL = MAX_LEN_MBUF - 22 |
188 |
iL = MIN(iL,ILNBLNK(GGL90TKEFile)) |
iL = MIN( iL, MAX(ILNBLNK(GGL90TKEFile),1) ) |
189 |
WRITE(msgBuf,'(A,A)')'GGL90: GGL90TKEFile = ',GGL90TKEFile(1:iL) |
WRITE(msgBuf,'(A,A)')'GGL90: GGL90TKEFile = ',GGL90TKEFile(1:iL) |
190 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
191 |
& SQUEEZE_RIGHT , 1) |
& SQUEEZE_RIGHT , 1) |