/[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.18 by jmc, Mon Jul 11 22:34:16 2005 UTC revision 1.19 by jmc, Thu Sep 15 14:55:15 2005 UTC
# Line 473  C--   end bi,bj loops. Line 473  C--   end bi,bj loops.
473        IF ( fluidIsWater .AND. useDiagnostics ) THEN        IF ( fluidIsWater .AND. useDiagnostics ) THEN
474          CALL DIAGS_OCEANIC_SURF_FLUX( myTime, myIter, myThid )          CALL DIAGS_OCEANIC_SURF_FLUX( myTime, myIter, myThid )
475        ENDIF        ENDIF
476          IF ( ivdc_kappa.NE.0 .AND. useDiagnostics ) THEN
477            CALL DIAGNOSTICS_FILL( IVDConvCount,'CONVADJ ',
478         &                         0, Nr, 0, 1, 1, myThid )
479          ENDIF
480  #endif  #endif
481    
482  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22