28 |
#include "PARAMS.h" |
#include "PARAMS.h" |
29 |
#include "DIAGNOSTICS_SIZE.h" |
#include "DIAGNOSTICS_SIZE.h" |
30 |
#include "DIAGNOSTICS.h" |
#include "DIAGNOSTICS.h" |
31 |
|
#ifdef ALLOW_FIZHI |
32 |
|
#include "chronos.h" |
33 |
|
#endif |
34 |
|
|
35 |
C !INPUT PARAMETERS: |
C !INPUT PARAMETERS: |
36 |
C myIter :: current Iteration number |
C myIter :: current Iteration number |
45 |
c CHARACTER*(MAX_LEN_MBUF) msgBuf |
c CHARACTER*(MAX_LEN_MBUF) msgBuf |
46 |
INTEGER newIter |
INTEGER newIter |
47 |
INTEGER j, m, n |
INTEGER j, m, n |
48 |
|
integer realfreq,yymmdd,hhmmss,nsecf2 |
49 |
|
|
50 |
_BEGIN_MASTER(myThid) |
_BEGIN_MASTER(myThid) |
51 |
|
|
53 |
|
|
54 |
newIter = 1 + myIter |
newIter = 1 + myIter |
55 |
DO n = 1,nlists |
DO n = 1,nlists |
56 |
IF ( freq(n).LT.0 ) THEN |
realfreq = freq(n) |
57 |
|
#ifdef ALLOW_FIZHI |
58 |
|
if( useFIZHI) then |
59 |
|
yymmdd = int(freq(n)) |
60 |
|
realfreq = nsecf2(0,yymmdd,nymd) / deltaTclock |
61 |
|
endif |
62 |
|
#endif |
63 |
|
|
64 |
|
IF ( realfreq.LT.0 ) THEN |
65 |
C-- Select diagnostics list that uses instantaneous output |
C-- Select diagnostics list that uses instantaneous output |
66 |
|
|
67 |
IF ( MOD(newIter,freq(n)).EQ.0 ) THEN |
c IF ( MOD(newIter,realfreq).EQ.0 ) THEN |
68 |
|
IF ( MOD(myIter,-realfreq).EQ.INT(-realfreq/2) ) THEN |
69 |
C-- switch ON diagnostics of output-stream # n |
C-- switch ON diagnostics of output-stream # n |
70 |
DO m=1,nActive(n) |
DO m=1,nActive(n) |
71 |
j = jdiag(m,n) |
j = jdiag(m,n) |