426 |
|
|
427 |
IF ( kcheck .EQ. 1 ) THEN |
IF ( kcheck .EQ. 1 ) THEN |
428 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |
429 |
|
& 'EOS_CHECK: check values for eosType=JMD95:' |
430 |
|
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
431 |
|
& SQUEEZE_RIGHT , myThid ) |
432 |
|
ELSEIF ( kcheck .EQ. 2 ) THEN |
433 |
|
WRITE(msgBuf,'(A)') |
434 |
& 'EOS_CHECK: check values for eosType=MDJWF:' |
& 'EOS_CHECK: check values for eosType=MDJWF:' |
435 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
436 |
& SQUEEZE_RIGHT , myThid ) |
& SQUEEZE_RIGHT , myThid ) |
437 |
ELSEIF ( kcheck .EQ. 6 ) THEN |
ELSEIF ( kcheck .EQ. 6 ) THEN |
438 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |
439 |
& 'EOS_CHECK: check values for eosType=JMD95:' |
& 'EOS_CHECK: check values for eosType=UNESCO:' |
440 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
441 |
& SQUEEZE_RIGHT , myThid ) |
& SQUEEZE_RIGHT , myThid ) |
442 |
ENDIF |
ENDIF |