/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_calc_rhs.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_calc_rhs.F

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

revision 1.33 by jmc, Mon Dec 20 19:10:13 2004 UTC revision 1.34 by jmc, Thu Feb 17 00:03:07 2005 UTC
# Line 390  C-     add the advective flux to fVerT Line 390  C-     add the advective flux to fVerT
390          IF ( useDiagnostics ) THEN          IF ( useDiagnostics ) THEN
391            diagName = 'ADVr'//diagSufx            diagName = 'ADVr'//diagSufx
392            CALL DIAGNOSTICS_FILL(af,diagName, k,1, 2,bi,bj, myThid)            CALL DIAGNOSTICS_FILL(af,diagName, k,1, 2,bi,bj, myThid)
393    C- note: needs to explicitly increment the counter since DIAGNOSTICS_FILL
394    C        does it only if k=1 (never the case here)
395              IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT(diagName,bi,bj,myThid)
396          ENDIF          ENDIF
397  #endif  #endif
398        ENDIF        ENDIF
Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34
  ViewVC Help
Powered by ViewVC 1.1.22