model/src/state_summary.F

1dbaea09ee Chri*0001 #include "CPP_OPTIONS.h"
924557e60a Chri*0002
9366854e02 Chri*0003 CBOP
                0004 C     !ROUTINE: STATE_SUMMARY
                0005 C     !INTERFACE:
924557e60a Chri*0006       SUBROUTINE STATE_SUMMARY( myThid )
                0007
9366854e02 Chri*0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE STATE_SUMMARY
                0011 C     | o Summarize model prognostic variables.
                0012 C     *==========================================================*
                0013 C     | This routine can be called at any time during an
                0014 C     | integration to provide a summary of the model state.
                0015 C     | Note
                0016 C     |  1. Under multi-process parallelism the state summary
                0017 C     |     is only given for the per-process data.
                0018 C     |  2. Under multi-threading the summary is produced by
                0019 C     |     the master thread. This threads reads data managed by
                0020 C     |     other threads.
                0021 C     *==========================================================*
                0022 C     \ev
                0023
                0024 C     !USES:
                0025       IMPLICIT NONE
924557e60a Chri*0026 C     === Global variables ===
                0027 #include "SIZE.h"
                0028 #include "EEPARAMS.h"
                0029 #include "PARAMS.h"
                0030 #include "GRID.h"
                0031 #include "DYNVARS.h"
                0032
9366854e02 Chri*0033 C     !INPUT/OUTPUT PARAMETERS:
924557e60a Chri*0034 C     == Routine arguments ==
                0035 C     myThid -  Number of this instance of STATE_SUMMARY
                0036       INTEGER myThid
                0037
9366854e02 Chri*0038 C     !LOCAL VARIABLES:
924557e60a Chri*0039 C     == Local variables ==
                0040       CHARACTER*(MAX_LEN_MBUF) msgBuf
9366854e02 Chri*0041 CEOP
924557e60a Chri*0042
                0043       _BEGIN_MASTER(myThid)
                0044       WRITE(msgBuf,'(A)')
                0045      &'// ======================================================='
46dc4f419b Chri*0046       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
3365bdc872 Jean*0047      &                    SQUEEZE_RIGHT , myThid )
924557e60a Chri*0048       WRITE(msgBuf,'(A)') '// Model current state'
46dc4f419b Chri*0049       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
3365bdc872 Jean*0050      &                    SQUEEZE_RIGHT , myThid )
924557e60a Chri*0051       WRITE(msgBuf,'(A)')
                0052      &'// ======================================================='
                0053       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
3365bdc872 Jean*0054      &                    SQUEEZE_RIGHT , myThid )
924557e60a Chri*0055       WRITE(msgBuf,'(A)') ' '
                0056       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
3365bdc872 Jean*0057      &                    SQUEEZE_RIGHT , myThid )
924557e60a Chri*0058       _END_MASTER(myThid)
                0059
                0060       RETURN
                0061       END