49 |
C = 1 :: fill-in diagnostics for tracer variables only |
C = 1 :: fill-in diagnostics for tracer variables only |
50 |
C = 2 :: fill-in diagnostics for momentum variables only |
C = 2 :: fill-in diagnostics for momentum variables only |
51 |
C = 3 :: fill-in diagnostics for momentum & tracer variables |
C = 3 :: fill-in diagnostics for momentum & tracer variables |
52 |
|
C bi,bj :: tile indices |
53 |
INTEGER selectVars |
INTEGER selectVars |
54 |
|
INTEGER bi, bj |
55 |
|
|
56 |
C-- Fill-in Diagnostics pkg storage array (for state-variables) |
C-- Fill-in Diagnostics pkg storage array (for state-variables) |
57 |
IF ( usediagnostics ) THEN |
IF ( usediagnostics ) THEN |
75 |
ENDIF |
ENDIF |
76 |
#endif |
#endif |
77 |
|
|
78 |
|
#ifdef ALLOW_THSICE |
79 |
|
IF ( seqFlag.EQ.0 .AND. useThSIce ) THEN |
80 |
|
DO bj=myByLo(myThid),myByHi(myThid) |
81 |
|
DO bi=myBxLo(myThid),myBxHi(myThid) |
82 |
|
CALL THSICE_DIAGNOSTICS_FILL( myTime,myIter, bi,bj, myThid ) |
83 |
|
ENDDO |
84 |
|
ENDDO |
85 |
|
ENDIF |
86 |
|
#endif /* ALLOW_THSICE */ |
87 |
|
|
88 |
ENDIf |
ENDIf |
89 |
#endif /* ALLOW_DIAGNOSTICS */ |
#endif /* ALLOW_DIAGNOSTICS */ |
90 |
|
|