28 |
C iUnit - Work variable for IO unit number |
C iUnit - Work variable for IO unit number |
29 |
|
|
30 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
31 |
INTEGER errIO, iUnit |
INTEGER errIO, iUnit, iL |
32 |
|
|
33 |
|
INTEGER ILNBLNK |
34 |
|
EXTERNAL ILNBLNK |
35 |
|
|
36 |
C-- GGL90 vertical mixing parameters |
C-- GGL90 vertical mixing parameters |
37 |
NAMELIST /GGL90_PARM01/ |
NAMELIST /GGL90_PARM01/ |
184 |
CALL WRITE_0D_R8( GGL90mixingLengthMin, INDEX_NONE, |
CALL WRITE_0D_R8( GGL90mixingLengthMin, INDEX_NONE, |
185 |
& 'GGL90mixingLengthMin =', |
& 'GGL90mixingLengthMin =', |
186 |
& ' /* GGL90 minimum mixing length ( m ). */') |
& ' /* GGL90 minimum mixing length ( m ). */') |
187 |
WRITE(msgBuf,'(A,A)') 'GGL90: GGL90TKEFile = ', GGL90TKEFile |
iL = MAX_LEN_MBUF - 22 |
188 |
|
iL = MIN(iL,ILNBLNK(GGL90TKEFile)) |
189 |
|
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) |
192 |
|
|