model/src/state_summary.F

C $Header: state_summary.F,v 1.1.1.1 1998/04/22 19:15:30 cnh Exp $

#include "CPP_EEOPTIONS.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     \==========================================================/

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.2	C $Header: state_summary.F,v 1.1.1.1 1998/04/22 19:15:30 cnh Exp $
2	cnh	1.1
3			#include "CPP_EEOPTIONS.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
21			C === Global variables ===
22			#include "SIZE.h"
23			#include "EEPARAMS.h"
24			#include "PARAMS.h"
25			#include "GRID.h"
26			#include "DYNVARS.h"
27
28			C == Routine arguments ==
29			C myThid - Number of this instance of STATE_SUMMARY
30			INTEGER myThid
31			CEndOfInterface
32
33			C == Local variables ==
34			CHARACTER*(MAX_LEN_MBUF) msgBuf
35
36			_BARRIER
37
38			_BEGIN_MASTER(myThid)
39			WRITE(msgBuf,'(A)')
40			&'// ======================================================='
41			CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)
42			WRITE(msgBuf,'(A)') '// Model current state'
43			CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)
44			WRITE(msgBuf,'(A)')
45			&'// ======================================================='
46			CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
47			& SQUEEZE_RIGHT , 1)
48			WRITE(msgBuf,'(A)') ' '
49			CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
50			& SQUEEZE_RIGHT , 1)
51			_END_MASTER(myThid)
52
53			_BARRIER
54
55
56			RETURN
57			END
58