3 |
|
|
4 |
#include "PTRACERS_OPTIONS.h" |
#include "PTRACERS_OPTIONS.h" |
5 |
|
|
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
|
6 |
CBOP 1 |
CBOP 1 |
7 |
C !ROUTINE: PTRACERS_DIAGNOSTICS_STATE |
C !ROUTINE: PTRACERS_DIAGNOSTICS_STATE |
8 |
|
|
41 |
INTEGER i,j,k,bi,bj,iTr |
INTEGER i,j,k,bi,bj,iTr |
42 |
CHARACTER*8 diagName |
CHARACTER*8 diagName |
43 |
INTEGER km1 |
INTEGER km1 |
44 |
|
#ifdef ALLOW_LONGSTEP |
45 |
INTEGER trIter |
INTEGER trIter |
46 |
|
#endif |
47 |
|
|
48 |
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
49 |
|
|
50 |
#ifdef ALLOW_LONGSTEP |
#ifdef ALLOW_LONGSTEP |
51 |
C fill only once every long time step |
C fill only once every long time step |