1 |
C $Header$ |
C $Header$ |
2 |
|
C $Name$ |
3 |
|
|
4 |
#include "CPP_EEOPTIONS.h" |
#include "CPP_OPTIONS.h" |
5 |
|
|
6 |
CStartOfInterface |
CStartOfInterface |
7 |
SUBROUTINE STATE_SUMMARY( myThid ) |
SUBROUTINE STATE_SUMMARY( myThid ) |
18 |
C | the master thread. This threads reads data managed by| |
C | the master thread. This threads reads data managed by| |
19 |
C | other threads. | |
C | other threads. | |
20 |
C \==========================================================/ |
C \==========================================================/ |
21 |
|
IMPLICIT NONE |
22 |
|
|
23 |
C === Global variables === |
C === Global variables === |
24 |
#include "SIZE.h" |
#include "SIZE.h" |
40 |
_BEGIN_MASTER(myThid) |
_BEGIN_MASTER(myThid) |
41 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |
42 |
&'// =======================================================' |
&'// =======================================================' |
43 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1) |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
44 |
|
& SQUEEZE_RIGHT , 1) |
45 |
WRITE(msgBuf,'(A)') '// Model current state' |
WRITE(msgBuf,'(A)') '// Model current state' |
46 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1) |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
47 |
|
& SQUEEZE_RIGHT , 1) |
48 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |
49 |
&'// =======================================================' |
&'// =======================================================' |
50 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |