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

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

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

revision 1.48 by jmc, Sat Apr 5 21:24:08 2008 UTC revision 1.49 by jmc, Mon Apr 7 21:15:06 2008 UTC
# Line 520  C--   Packages conflict Line 520  C--   Packages conflict
520          STOP 'ABNORMAL END: S/R CONFIG_CHECK'          STOP 'ABNORMAL END: S/R CONFIG_CHECK'
521        ENDIF        ENDIF
522    
523        WRITE(msgBuf,'(A)') 'CONFIG_CHECK: OK'        WRITE(msgBuf,'(A)')
524        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,       &'// ======================================================='
525       &                   SQUEEZE_RIGHT,myThid)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
526         &                    SQUEEZE_RIGHT, myThid )
527          WRITE(msgBuf,'(A)') '// CONFIG_CHECK : Normal End'
528          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
529         &                    SQUEEZE_RIGHT, myThid )
530          WRITE(msgBuf,'(A)')
531         &'// ======================================================='
532          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
533         &                    SQUEEZE_RIGHT, myThid )
534          WRITE(msgBuf,'(A)') ' '
535          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
536         &                    SQUEEZE_RIGHT, myThid )
537    
538        RETURN        RETURN
539        END        END
Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49
  ViewVC Help
Powered by ViewVC 1.1.22