/[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.7 by jmc, Mon Feb 14 00:46:58 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    #ifdef ALLOW_LAND
89           IF ( seqFlag.EQ.0 .AND. useLand ) THEN
90            DO bj=myByLo(myThid),myByHi(myThid)
91             DO bi=myBxLo(myThid),myBxHi(myThid)
92              CALL LAND_DIAGNOSTICS_FILL( myTime,myIter, bi,bj, myThid )
93             ENDDO
94            ENDDO
95           ENDIF
96    #endif /* ALLOW_LAND */
97    
98        ENDIf        ENDIf
99  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
100    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22