/[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.7 by cnh, Wed Sep 26 18:09:16 2001 UTC revision 1.8 by jmc, Sun Jun 14 21:45:12 2009 UTC
# Line 43  C     == Local variables == Line 43  C     == Local variables ==
43        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
44  CEOP  CEOP
45    
       _BARRIER  
   
46        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
47        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
48       &'// ======================================================='       &'// ======================================================='
49        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
50       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , myThid )
51        WRITE(msgBuf,'(A)') '// Model current state'        WRITE(msgBuf,'(A)') '// Model current state'
52        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
53       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , myThid )
54        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
55       &'// ======================================================='       &'// ======================================================='
56        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
57       &  SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , myThid )
58        WRITE(msgBuf,'(A)') ' '        WRITE(msgBuf,'(A)') ' '
59        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
60       &  SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , myThid )
61        _END_MASTER(myThid)        _END_MASTER(myThid)
62    
       _BARRIER  
   
   
63        RETURN        RETURN
64        END        END
   
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22