model/src/state_summary.F

C $Header: /u/gcmpack/models/MITgcmUV/model/src/state_summary.F,v 1.5 1998/12/09 16:11:54 adcroft Exp $
C $Name: $

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