/[MITgcm]/MITgcm/model/src/do_oceanic_phys.F
ViewVC logotype

Diff of /MITgcm/model/src/do_oceanic_phys.F

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

revision 1.15 by heimbach, Fri Dec 10 20:15:10 2004 UTC revision 1.16 by jmc, Tue Dec 14 04:36:33 2004 UTC
# Line 313  C--     end of diagnostic k loop (Nr:1) Line 313  C--     end of diagnostic k loop (Nr:1)
313          ENDDO          ENDDO
314    
315  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
316          IF ( usediagnostics .AND.          IF ( useDiagnostics .AND.
317       &       (useGMRedi .OR. ivdc_kappa.NE.0.) ) THEN       &       (useGMRedi .OR. ivdc_kappa.NE.0.) ) THEN
318            CALL fill_diagnostics (myThid, 'DRHODR  ', 0, Nr,            CALL DIAGNOSTICS_FILL (sigmaR, 'DRHODR  ', 0, Nr,
319       &         3, bi, bj, sigmaR)       &         2, bi, bj, myThid)
320          ENDIF          ENDIF
321  #endif  #endif
322    
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22