/[MITgcm]/MITgcm/model/src/do_statevars_diags.F
ViewVC logotype

Diff of /MITgcm/model/src/do_statevars_diags.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by jmc, Fri Jan 28 01:00:13 2005 UTC revision 1.6 by jmc, Mon Jan 31 19:45:14 2005 UTC
# Line 49  C     selectVars :: select which group o Line 49  C     selectVars :: select which group o
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
# Line 73  C                    and stagger/synchro Line 75  C                    and stagger/synchro
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    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22