/[MITgcm]/MITgcm/pkg/ptracers/ptracers_calc_diff.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_calc_diff.F

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

revision 1.3 by dimitri, Mon Apr 23 20:46:49 2007 UTC revision 1.4 by dimitri, Thu Sep 27 14:42:59 2007 UTC
# Line 84  C Loop over tracers Line 84  C Loop over tracers
84          ENDDO          ENDDO
85         ENDIF         ENDIF
86    
 #ifdef ALLOW_GMREDI  
         IF ( PTRACERS_useGMRedi(iTr) ) THEN  
          CALL GMREDI_CALC_DIFF(  
      I        bi,bj,iMin,iMax,jMin,jMax,k,1,  
      U        KappaRtr(1-Olx,1-Oly,iTr),  
      I        myThid)  
         ENDIF  
 #endif  
   
87  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
88          IF ( PTRACERS_useKPP(iTr) ) THEN          IF ( PTRACERS_useKPP(iTr) ) THEN
89    C--   Set vertical diffusivity contribution from KPP
90           CALL KPP_CALC_DIFF_S(           CALL KPP_CALC_DIFF_S(
91       I        bi,bj,iMin+1,iMax,jMin+1,jMax,k,1,       I        bi,bj,iMin+1,iMax,jMin+1,jMax,k,1,
92         O        KappaRtr(1-Olx,1-Oly,iTr),
93         I        myThid)
94            ENDIF
95    #endif
96    
97    #ifdef ALLOW_GMREDI
98            IF ( PTRACERS_useGMRedi(iTr) ) THEN
99             CALL GMREDI_CALC_DIFF(
100         I        bi,bj,iMin,iMax,jMin,jMax,k,1,
101       U        KappaRtr(1-Olx,1-Oly,iTr),       U        KappaRtr(1-Olx,1-Oly,iTr),
102       I        myThid)       I        myThid)
103          ENDIF          ENDIF
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22