/[MITgcm]/MITgcm/model/src/ini_eos.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_eos.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.18 by mlosch, Thu Aug 21 13:44:53 2008 UTC revision 1.19 by mlosch, Thu Aug 21 14:25:34 2008 UTC
# Line 426  C-    + set rC accordingly Line 426  C-    + set rC accordingly
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
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22