/[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.41 by jmc, Sun Jun 18 23:27:44 2006 UTC revision 1.42 by jmc, Sun Nov 19 22:04:09 2006 UTC
# Line 300  C-    Diagnostics of Tracer flux in X di Line 300  C-    Diagnostics of Tracer flux in X di
300  C       excluding advective terms:  C       excluding advective terms:
301        IF ( useDiagnostics .AND.        IF ( useDiagnostics .AND.
302       &    (diffKh.NE.0. .OR. diffK4 .NE.0. .OR. useGMRedi) ) THEN       &    (diffKh.NE.0. .OR. diffK4 .NE.0. .OR. useGMRedi) ) THEN
303            diagName = 'DIFx'//diagSufx            diagName = 'DFxE'//diagSufx
304            CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid)            CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid)
305        ENDIF        ENDIF
306  #endif  #endif
# Line 408  C-    Diagnostics of Tracer flux in Y di Line 408  C-    Diagnostics of Tracer flux in Y di
408  C       excluding advective terms:  C       excluding advective terms:
409        IF ( useDiagnostics .AND.        IF ( useDiagnostics .AND.
410       &    (diffKh.NE.0. .OR. diffK4 .NE.0. .OR. useGMRedi) ) THEN       &    (diffKh.NE.0. .OR. diffK4 .NE.0. .OR. useGMRedi) ) THEN
411            diagName = 'DIFy'//diagSufx            diagName = 'DFyE'//diagSufx
412            CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid)            CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid)
413        ENDIF        ENDIF
414  #endif  #endif
Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42
  ViewVC Help
Powered by ViewVC 1.1.22