/[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.6 by cnh, Sun Feb 4 14:38:48 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  CStartOfInterface  CStartOfInterface
7        SUBROUTINE STATE_SUMMARY( myThid )        SUBROUTINE STATE_SUMMARY( myThid )
# Line 17  C     |  2. Under multi-threading the su Line 18  C     |  2. Under multi-threading the su
18  C     |     the master thread. This threads reads data managed by|  C     |     the master thread. This threads reads data managed by|
19  C     |     other threads.                                       |  C     |     other threads.                                       |
20  C     \==========================================================/  C     \==========================================================/
21          IMPLICIT NONE
22    
23  C     === Global variables ===  C     === Global variables ===
24  #include "SIZE.h"  #include "SIZE.h"
# Line 38  C     == Local variables == Line 40  C     == Local variables ==
40        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
41        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
42       &'// ======================================================='       &'// ======================================================='
43        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
44         &                    SQUEEZE_RIGHT , 1)
45        WRITE(msgBuf,'(A)') '// Model current state'        WRITE(msgBuf,'(A)') '// Model current state'
46        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
47         &                    SQUEEZE_RIGHT , 1)
48        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
49       &'// ======================================================='       &'// ======================================================='
50        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.22