/[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.12 by jmc, Sun Jan 27 20:55:43 2008 UTC revision 1.13 by jmc, Tue Feb 12 20:27:00 2008 UTC
# Line 73  C                    and stagger/synchro Line 73  C                    and stagger/synchro
73          IF ( seqFlag.EQ.2 ) selectVars = 4          IF ( seqFlag.EQ.2 ) selectVars = 4
74          CALL DIAGNOSTICS_FILL_STATE(selectVars, myThid)          CALL DIAGNOSTICS_FILL_STATE(selectVars, myThid)
75    
76    #ifdef ALLOW_GENERIC_ADVDIFF
77            IF ( seqFlag.EQ.0 .AND. useGAD ) THEN
78              CALL GAD_DIAGNOSTICS_STATE( myTime, myIter, myThid )
79            ENDIF
80    #endif /* ALLOW_GENERIC_ADVDIFF */
81    
82  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
83          IF ( (selectVars.EQ.1 .OR. selectVars.EQ.3)          IF ( (selectVars.EQ.1 .OR. selectVars.EQ.3)
84       &      .AND. usePTRACERS ) THEN       &      .AND. usePTRACERS ) THEN
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22