/[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.3 by jmc, Fri Dec 3 00:24:58 2004 UTC revision 1.4 by jmc, Tue Jan 4 02:42:31 2005 UTC
# Line 71  C--   Fill-in Diagnostics pkg storage ar Line 71  C--   Fill-in Diagnostics pkg storage ar
71        IF ( usediagnostics ) THEN        IF ( usediagnostics ) THEN
72          CALL DIAGNOSTICS_FILL_STATE(myThid)          CALL DIAGNOSTICS_FILL_STATE(myThid)
73  # ifdef ALLOW_PTRACERS  # ifdef ALLOW_PTRACERS
74         IF (useptracers) THEN         IF (usePTRACERS) THEN
75          CALL PTRACERS_FILL_DIAGNOSTICS(myThid)          CALL PTRACERS_DIAGNOSTICS_FILL(myThid)
76         ENDIF         ENDIF
77  # endif  # endif
78        ENDIf        ENDIf
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22