135 |
STOP 'ABNORMAL END: S/R GGL90_READPARMS' |
STOP 'ABNORMAL END: S/R GGL90_READPARMS' |
136 |
ENDIF |
ENDIF |
137 |
|
|
138 |
|
#ifdef UNSAFE_INTERNAL_WRITE |
139 |
C-- print TKE vertical mixing parameters to stdout for better debugging |
C-- print TKE vertical mixing parameters to stdout for better debugging |
140 |
WRITE(msgBuf,*) 'GGL90: GGL90dumpFreq = ', GGL90dumpFreq |
WRITE(msgBuf,*) 'GGL90: GGL90dumpFreq = ', GGL90dumpFreq |
141 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
186 |
WRITE(msgBuf,*) 'GGL90: GGL90TKEFile = ', GGL90TKEFile |
WRITE(msgBuf,*) 'GGL90: GGL90TKEFile = ', GGL90TKEFile |
187 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
188 |
& SQUEEZE_RIGHT , 1) |
& SQUEEZE_RIGHT , 1) |
189 |
|
#endif /* UNSAFE_INTERNAL_WRITE */ |
190 |
|
|
191 |
_END_MASTER(myThid) |
_END_MASTER(myThid) |
192 |
|
|