50 |
C \end{center} |
C \end{center} |
51 |
|
|
52 |
C !USES: |
C !USES: |
53 |
implicit none |
IMPLICIT NONE |
54 |
#include "SIZE.h" |
#include "SIZE.h" |
55 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
56 |
#include "PARAMS.h" |
#include "PARAMS.h" |
58 |
#include "DIAGNOSTICS.h" |
#include "DIAGNOSTICS.h" |
59 |
|
|
60 |
C !INPUT PARAMETERS: |
C !INPUT PARAMETERS: |
61 |
integer myThid |
INTEGER myThid |
62 |
CEOP |
CEOP |
63 |
|
|
64 |
integer n |
C !LOCAL VARIABLES: |
65 |
|
INTEGER n |
66 |
|
|
67 |
do n=1,ndiagMax |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
68 |
|
|
69 |
|
_BEGIN_MASTER( myThid ) |
70 |
|
|
71 |
|
DO n=1,ndiagMax |
72 |
kdiag(n) = 0 |
kdiag(n) = 0 |
73 |
cdiag(n) = ' ' |
cdiag(n) = ' ' |
74 |
gdiag(n) = ' ' |
gdiag(n) = ' ' |
75 |
udiag(n) = ' ' |
udiag(n) = ' ' |
76 |
tdiag(n) = ' ' |
tdiag(n) = ' ' |
77 |
enddo |
ENDDO |
78 |
|
|
79 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
80 |
C For each output variable, |
C For each output variable, |
191 |
udiag(22) = 'count ' |
udiag(22) = 'count ' |
192 |
gdiag(22) = 'SM D L1 ' |
gdiag(22) = 'SM D L1 ' |
193 |
|
|
194 |
c- set the total number of available diagnostics |
C- set the total number of available diagnostics |
195 |
ndiagt = 22 |
ndiagt = 22 |
196 |
|
|
197 |
c---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
198 |
|
|
199 |
|
_END_MASTER( myThid ) |
200 |
|
_BARRIER |
201 |
|
|
202 |
RETURN |
RETURN |
203 |
END |
END |