model/src/state_summary.F

C $Header: /u/gcmpack/models/MITgcmUV/model/src/state_summary.F,v 1.4 1998/11/06 22:44:49 cnh Exp $

#include "CPP_OPTIONS.h"

CStartOfInterface
      SUBROUTINE STATE_SUMMARY( myThid )
C     /==========================================================\
C     | SUBROUTINE STATE_SUMMARY                                 |
C     | o Summarize model prognostic variables.                  |
C     |==========================================================|
C     | This routine can be called at any time during an         |
C     | integration to provide a summary of the model state.     |
C     | Note                                                     |
C     |  1. Under multi-process parallelism the state summary    |
C     |     is only given for the per-process data.              |
C     |  2. Under multi-threading the summary is produced by     |
C     |     the master thread. This threads reads data managed by|
C     |     other threads.                                       |
C     \==========================================================/
      IMPLICIT NONE

C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "GRID.h"
#include "DYNVARS.h"

C     == Routine arguments ==
C     myThid -  Number of this instance of STATE_SUMMARY
      INTEGER myThid
CEndOfInterface

C     == Local variables ==
      CHARACTER*(MAX_LEN_MBUF) msgBuf

      _BARRIER

      _BEGIN_MASTER(myThid)
      WRITE(msgBuf,'(A)')
     &'// ======================================================='
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, 
     &                    SQUEEZE_RIGHT , 1)
      WRITE(msgBuf,'(A)') '// Model current state'
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, 
     &                    SQUEEZE_RIGHT , 1)
      WRITE(msgBuf,'(A)')
     &'// ======================================================='
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &  SQUEEZE_RIGHT , 1)
      WRITE(msgBuf,'(A)') ' '
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &  SQUEEZE_RIGHT , 1)
      _END_MASTER(myThid)

      _BARRIER


      RETURN
      END

1	C $Header: /u/gcmpack/models/MITgcmUV/model/src/state_summary.F,v 1.4 1998/11/06 22:44:49 cnh Exp $
2
3	#include "CPP_OPTIONS.h"
4
5	CStartOfInterface
6	SUBROUTINE STATE_SUMMARY( myThid )
7	C /==========================================================\
8	C \| SUBROUTINE STATE_SUMMARY \|
9	C \| o Summarize model prognostic variables. \|
10	C \|==========================================================\|
11	C \| This routine can be called at any time during an \|
12	C \| integration to provide a summary of the model state. \|
13	C \| Note \|
14	C \| 1. Under multi-process parallelism the state summary \|
15	C \| is only given for the per-process data. \|
16	C \| 2. Under multi-threading the summary is produced by \|
17	C \| the master thread. This threads reads data managed by\|
18	C \| other threads. \|
19	C \==========================================================/
20	IMPLICIT NONE
21
22	C === Global variables ===
23	#include "SIZE.h"
24	#include "EEPARAMS.h"
25	#include "PARAMS.h"
26	#include "GRID.h"
27	#include "DYNVARS.h"
28
29	C == Routine arguments ==
30	C myThid - Number of this instance of STATE_SUMMARY
31	INTEGER myThid
32	CEndOfInterface
33
34	C == Local variables ==
35	CHARACTER*(MAX_LEN_MBUF) msgBuf
36
37	_BARRIER
38
39	_BEGIN_MASTER(myThid)
40	WRITE(msgBuf,'(A)')
41	&'// ======================================================='
42	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
43	& SQUEEZE_RIGHT , 1)
44	WRITE(msgBuf,'(A)') '// Model current state'
45	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
46	& SQUEEZE_RIGHT , 1)
47	WRITE(msgBuf,'(A)')
48	&'// ======================================================='
49	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
50	& SQUEEZE_RIGHT , 1)
51	WRITE(msgBuf,'(A)') ' '
52	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
53	& SQUEEZE_RIGHT , 1)
54	_END_MASTER(myThid)
55
56	_BARRIER
57
58
59	RETURN
60	END
61