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) |