3 |
|
|
4 |
#include "CPP_EEOPTIONS.h" |
#include "CPP_EEOPTIONS.h" |
5 |
|
|
6 |
CStartOfInterface |
CBOP |
7 |
|
C !ROUTINE: EEWRITE_EEENV |
8 |
|
|
9 |
|
C !INTERFACE: |
10 |
SUBROUTINE EEWRITE_EEENV |
SUBROUTINE EEWRITE_EEENV |
|
C /==========================================================\ |
|
|
C | SUBROUTINE EERWITE_EEENV | |
|
|
C | o Write execution environment summary | |
|
|
C |==========================================================| |
|
|
C | Write a summary of the execution environment as | |
|
|
C | configured for this run. The execution environment is | |
|
|
C | the computational mode in which the model operatoes. It | |
|
|
C | includes the computational grid but does not include any | |
|
|
C | model specific nuerical parameters. | |
|
|
C \==========================================================/ |
|
11 |
IMPLICIT NONE |
IMPLICIT NONE |
12 |
|
|
13 |
C === Global data === |
C !DESCRIPTION: |
14 |
|
C *==========================================================* |
15 |
|
C | SUBROUTINE EERWITE_EEENV |
16 |
|
C | o Write execution environment summary |
17 |
|
C *==========================================================* |
18 |
|
C | Write a summary of the execution environment as |
19 |
|
C | configured for this run. The execution environment is |
20 |
|
C | the computational mode in which the model operatoes. It |
21 |
|
C | includes the computational grid but does not include any |
22 |
|
C | model specific nuerical parameters. |
23 |
|
C *==========================================================* |
24 |
|
|
25 |
|
C !USES: |
26 |
|
C == Global data == |
27 |
#include "SIZE.h" |
#include "SIZE.h" |
28 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
29 |
#include "EESUPPORT.h" |
#include "EESUPPORT.h" |
30 |
|
|
31 |
CEndOfInterface |
C !LOCAL VARIABLES: |
32 |
|
C == Local variables == |
33 |
C === Local variables === |
C msgBuf :: Temp. for building text messages. |
34 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
35 |
|
CEOP |
36 |
|
|
37 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |
38 |
& '// =======================================================' |
& '// =======================================================' |