/[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.52 by dimitri, Sun Jul 22 23:51:16 2007 UTC revision 1.53 by heimbach, Fri Jul 27 22:18:57 2007 UTC
# Line 422  c ==> should use sigmaR !!! Line 422  c ==> should use sigmaR !!!
422  C--     end of diagnostic k loop (Nr:1)  C--     end of diagnostic k loop (Nr:1)
423          ENDDO          ENDDO
424    
 #ifndef ALLOW_AUTODIFF_TAMC  
425  C--     Diagnose Mixed Layer Depth:  C--     Diagnose Mixed Layer Depth:
426          IF ( useGMRedi .OR. doDiagsRho.GE.1 ) THEN          IF ( useGMRedi .OR. doDiagsRho.GE.1 ) THEN
427            CALL CALC_OCE_MXLAYER( rhoK, sigmaR,            CALL CALC_OCE_MXLAYER( rhoK, sigmaR,
428       &              bi, bj, myTime, myIter, myThid )       &              bi, bj, myTime, myIter, myThid )
429          ENDIF          ENDIF
430  #endif  
431  #ifdef ALLOW_SALT_PLUME  #ifdef ALLOW_SALT_PLUME
432            CALL CALC_SALT_PLUME_DEPTH( rhoK, sigmaR,            CALL CALC_SALT_PLUME_DEPTH( rhoK, sigmaR,
433       &              bi, bj, myTime, myIter, myThid )       &              bi, bj, myTime, myIter, myThid )
Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53
  ViewVC Help
Powered by ViewVC 1.1.22