File indexing completed on 2018-03-02 18:37:06 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
1dbaea09ee Chri*0001 #include "CPP_OPTIONS.h"
924557e60a Chri*0002
9366854e02 Chri*0003
0004
0005
924557e60a Chri*0006 SUBROUTINE STATE_SUMMARY( myThid )
0007
9366854e02 Chri*0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025 IMPLICIT NONE
924557e60a Chri*0026
0027 #include "SIZE.h"
0028 #include "EEPARAMS.h"
0029 #include "PARAMS.h"
0030 #include "GRID.h"
0031 #include "DYNVARS.h"
0032
9366854e02 Chri*0033
924557e60a Chri*0034
0035
0036 INTEGER myThid
0037
9366854e02 Chri*0038
924557e60a Chri*0039
0040 CHARACTER*(MAX_LEN_MBUF) msgBuf
9366854e02 Chri*0041
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