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

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

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

revision 1.2 by cnh, Fri Apr 24 02:05:42 1998 UTC revision 1.3 by cnh, Wed Oct 28 03:11:38 1998 UTC
# Line 38  C     == Local variables == Line 38  C     == Local variables ==
38        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
39        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
40       &'// ======================================================='       &'// ======================================================='
41        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
42         &                    SQUEEZE_RIGHT , 1)
43        WRITE(msgBuf,'(A)') '// Model current state'        WRITE(msgBuf,'(A)') '// Model current state'
44        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
45         &                    SQUEEZE_RIGHT , 1)
46        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
47       &'// ======================================================='       &'// ======================================================='
48        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22