3 |
|
|
4 |
#include "CPP_OPTIONS.h" |
#include "CPP_OPTIONS.h" |
5 |
|
|
6 |
CStartOfInterface |
CBOP |
7 |
|
C !ROUTINE: CONFIG_SUMMARY |
8 |
|
C !INTERFACE: |
9 |
SUBROUTINE CONFIG_SUMMARY( myThid ) |
SUBROUTINE CONFIG_SUMMARY( myThid ) |
10 |
C /========================================================== |
C !DESCRIPTION: \bv |
11 |
C | SUBROUTINE CONFIG_SUMMARY | |
C *=========================================================* |
12 |
C | o Summarize model prognostic variables. | |
C | SUBROUTINE CONFIG_SUMMARY |
13 |
C |==========================================================| |
C | o Summarize model parameter settings. |
14 |
C | This routine writes a tabulated summary of the model | |
C *=========================================================* |
15 |
C | configuration. | |
C | This routine writes a tabulated summary of the kernel |
16 |
C | Note | |
C | model configuration. Information describes all the |
17 |
C | 1. Under multi-process parallelism the summary | |
C | parameter setting in force and the meaning and units of |
18 |
C | is only given for the per-process data. | |
C | those parameters. Individal packages report a similar |
19 |
C | 2. Under multi-threading the summary is produced by | |
C | table for each package using the same format as employed |
20 |
C | the master thread. This threads reads data managed by| |
C | here. If parameters are missing or incorrectly described |
21 |
C | other threads. | |
C | or dimensioned please contact support@mitgcm.org |
22 |
C \==========================================================/ |
C *=========================================================* |
23 |
IMPLICIT NONE |
C \ev |
24 |
|
|
25 |
|
C !USES: |
26 |
|
IMPLICIT NONE |
27 |
C === Global variables === |
C === Global variables === |
28 |
#include "SIZE.h" |
#include "SIZE.h" |
29 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
31 |
#include "GRID.h" |
#include "GRID.h" |
32 |
#include "DYNVARS.h" |
#include "DYNVARS.h" |
33 |
|
|
34 |
|
C !INPUT/OUTPUT PARAMETERS: |
35 |
C == Routine arguments == |
C == Routine arguments == |
36 |
C myThid - Number of this instance of CONFIG_SUMMARY |
C myThid - Number of this instance of CONFIG_SUMMARY |
37 |
INTEGER myThid |
INTEGER myThid |
38 |
CEndOfInterface |
CEndOfInterface |
39 |
|
|
40 |
|
C !LOCAL VARIABLES: |
41 |
C == Local variables == |
C == Local variables == |
42 |
|
C msgBuf :: Temp. for building output string. |
43 |
|
C I,J,K :: Loop counters. |
44 |
|
C bi,bj :: Tile loop counters. |
45 |
|
C xcoord :: Temps. for building lists of values for uni-dimensionally |
46 |
|
C ycoord :: varying parameters. |
47 |
|
C zcoord :: |
48 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
49 |
INTEGER I,J,K |
INTEGER I,J,K |
50 |
INTEGER bi, bj |
INTEGER bi, bj |
53 |
_RL rcoord(Nr) |
_RL rcoord(Nr) |
54 |
INTEGER coordLine |
INTEGER coordLine |
55 |
INTEGER tileLine |
INTEGER tileLine |
56 |
|
CEOP |
57 |
|
|
58 |
|
|
59 |
_BARRIER |
_BARRIER |