/[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.59 by dimitri, Sat Nov 24 15:44:52 2007 UTC revision 1.60 by dimitri, Wed Nov 28 00:18:17 2007 UTC
# Line 353  cph Needed for rhoK, rhoKm1, in the case Line 353  cph Needed for rhoK, rhoKm1, in the case
353  C--       Calculate gradients of potential density for isoneutral  C--       Calculate gradients of potential density for isoneutral
354  C         slope terms (e.g. GM/Redi tensor or IVDC diffusivity)  C         slope terms (e.g. GM/Redi tensor or IVDC diffusivity)
355            IF ( useGMRedi .OR. (k.GT.1 .AND. ivdc_kappa.NE.0.)            IF ( useGMRedi .OR. (k.GT.1 .AND. ivdc_kappa.NE.0.)
356       &         .OR. usePLUME .OR. doDiagsRho.GE.1 ) THEN       &         .OR. useSaltPlume .OR. doDiagsRho.GE.1 ) THEN
357  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
358              IF ( debugLevel .GE. debLevB )              IF ( debugLevel .GE. debLevB )
359       &       CALL DEBUG_CALL('FIND_RHO',myThid)       &       CALL DEBUG_CALL('FIND_RHO',myThid)
# Line 432  C--     Diagnose Mixed Layer Depth: Line 432  C--     Diagnose Mixed Layer Depth:
432          ENDIF          ENDIF
433    
434  #ifdef ALLOW_SALT_PLUME  #ifdef ALLOW_SALT_PLUME
435            CALL CALC_SALT_PLUME_DEPTH( rhoK, sigmaR,          IF ( useSaltPlume ) THEN
436              CALL SALT_PLUME_CALC_DEPTH( rhoK, sigmaR,
437       &              bi, bj, myTime, myIter, myThid )       &              bi, bj, myTime, myIter, myThid )
438            ENDIF
439  #endif  #endif
440  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
441          IF ( doDiagsRho.GE.1 ) THEN          IF ( doDiagsRho.GE.1 ) THEN
Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60
  ViewVC Help
Powered by ViewVC 1.1.22