/[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.110 by jmc, Thu Nov 10 21:03:35 2011 UTC revision 1.111 by mlosch, Mon Dec 19 11:47:04 2011 UTC
# Line 601  cgf -> cuts adjoint dependency from slop Line 601  cgf -> cuts adjoint dependency from slop
601            ENDIF            ENDIF
602    
603  C--       Implicit Vertical Diffusion for Convection  C--       Implicit Vertical Diffusion for Convection
 c ==> should use sigmaR !!!  
604            IF (k.GT.1 .AND. ivdc_kappa.NE.0.) THEN            IF (k.GT.1 .AND. ivdc_kappa.NE.0.) THEN
605  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
606              IF (debugMode) CALL DEBUG_CALL('CALC_IVDC',myThid)              IF (debugMode) CALL DEBUG_CALL('CALC_IVDC',myThid)
607  #endif  #endif
608              CALL CALC_IVDC(              CALL CALC_IVDC(
609       I        bi, bj, iMin, iMax, jMin, jMax, k,       I        bi, bj, iMin, iMax, jMin, jMax, k,
610       I        rhoKm1, rhoInSitu(1-OLx,1-OLy,k,bi,bj),       I        sigmaR,
611       I        myTime, myIter, myThid)       I        myTime, myIter, myThid)
612            ENDIF            ENDIF
613    
Legend:
Removed from v.1.110  
changed lines
  Added in v.1.111
  ViewVC Help
Powered by ViewVC 1.1.22