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

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

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

revision 1.82 by jmc, Mon Oct 24 22:40:28 2005 UTC revision 1.83 by jmc, Sun Oct 30 21:13:59 2005 UTC
# Line 588  C     Grid along selected grid lines Line 588  C     Grid along selected grid lines
588        CALL WRITE_XY_YLINE_RS( rAs, coordLine, tileLine,        CALL WRITE_XY_YLINE_RS( rAs, coordLine, tileLine,
589       I 'rAs','( m - cartesian, degrees - spherical )')       I 'rAs','( m - cartesian, degrees - spherical )')
590    
591          WRITE(msgBuf,'(A)')
592         &'// ======================================================='
593          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
594         &                    SQUEEZE_RIGHT , 1)
595          WRITE(msgBuf,'(A)') '// End of Model config. summary'
596          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
597         &                    SQUEEZE_RIGHT , 1)
598          WRITE(msgBuf,'(A)')
599         &'// ======================================================='
600          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
601         &  SQUEEZE_RIGHT , 1)
602        WRITE(msgBuf,'(A)') ' '        WRITE(msgBuf,'(A)') ' '
603        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
604       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
Legend:
Removed from v.1.82  
changed lines
  Added in v.1.83
  ViewVC Help
Powered by ViewVC 1.1.22