629 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
630 |
CALL WRITE_0D_I( debugLevel, INDEX_NONE, |
CALL WRITE_0D_I( debugLevel, INDEX_NONE, |
631 |
& 'debugLevel =', ' /* select debug printing level */') |
& 'debugLevel =', ' /* select debug printing level */') |
632 |
|
CALL WRITE_0D_I( plotLevel, INDEX_NONE, |
633 |
|
& ' plotLevel =', ' /* select PLOT_FIELD printing level */') |
634 |
|
|
635 |
WRITE(msgBuf,'(A)') '// ' |
WRITE(msgBuf,'(A)') '// ' |
636 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |