34 |
C seqFlag :: flag that indicate where this S/R is called from: |
C seqFlag :: flag that indicate where this S/R is called from: |
35 |
C :: =0 called from the beginning of forward_step |
C :: =0 called from the beginning of forward_step |
36 |
C :: =1 called from the middle of forward_step |
C :: =1 called from the middle of forward_step |
37 |
|
C :: =2 called from the end of forward_step |
38 |
C myIter :: Iteration number |
C myIter :: Iteration number |
39 |
C myThid :: Thread number for this instance of the routine. |
C myThid :: Thread number for this instance of the routine. |
40 |
_RL myTime |
_RL myTime |
50 |
C = 1 :: fill-in diagnostics for tracer variables only |
C = 1 :: fill-in diagnostics for tracer variables only |
51 |
C = 2 :: fill-in diagnostics for momentum variables only |
C = 2 :: fill-in diagnostics for momentum variables only |
52 |
C = 3 :: fill-in diagnostics for momentum & tracer variables |
C = 3 :: fill-in diagnostics for momentum & tracer variables |
53 |
|
C = 4 :: fill-in state variable tendency diagnostics the second time |
54 |
C bi,bj :: tile indices |
C bi,bj :: tile indices |
55 |
INTEGER selectVars |
INTEGER selectVars |
56 |
INTEGER bi, bj |
INTEGER bi, bj |
68 |
ELSE |
ELSE |
69 |
IF ( seqFlag.EQ.0 ) selectVars = 3 |
IF ( seqFlag.EQ.0 ) selectVars = 3 |
70 |
ENDIF |
ENDIF |
71 |
|
IF ( seqFlag.EQ.2 ) selectVars = 4 |
72 |
CALL DIAGNOSTICS_FILL_STATE(selectVars, myThid) |
CALL DIAGNOSTICS_FILL_STATE(selectVars, myThid) |
73 |
|
|
74 |
#ifdef ALLOW_PTRACERS |
#ifdef ALLOW_PTRACERS |