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

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

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

revision 1.11 by jmc, Tue Sep 4 16:49:44 2007 UTC revision 1.12 by dimitri, Thu Sep 27 14:42:59 2007 UTC
# Line 150  C--   Add physical pacakge contributions Line 150  C--   Add physical pacakge contributions
150    
151  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
152        IF (trUseKPP) THEN        IF (trUseKPP) THEN
153    C--   Set vertical diffusivity contribution from KPP
154         IF (trIdentity.EQ.GAD_TEMPERATURE) THEN         IF (trIdentity.EQ.GAD_TEMPERATURE) THEN
155           CALL KPP_CALC_DIFF_T(           CALL KPP_CALC_DIFF_T(
156       I        bi,bj,iMin,iMax,jMin,jMax,0,Nr,       I        bi,bj,iMin,iMax,jMin,jMax,0,Nr,
157       U        KappaRTr,       O        KappaRTr,
158       I        myThid)       I        myThid)
159         ELSE         ELSE
160           CALL KPP_CALC_DIFF_S(           CALL KPP_CALC_DIFF_S(
161       I        bi,bj,iMin,iMax,jMin,jMax,0,Nr,       I        bi,bj,iMin,iMax,jMin,jMax,0,Nr,
162       U        KappaRTr,       O        KappaRTr,
163       I        myThid)       I        myThid)
164         ENDIF         ENDIF
165  #if (defined ALLOW_PTRACERS && ! (defined ALLOW_3D_DIFFKR || \  #if (defined ALLOW_PTRACERS && ! (defined ALLOW_3D_DIFFKR || \
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22