/[MITgcm]/MITgcm/pkg/kpp/kpp_calc_diff_s.F
ViewVC logotype

Diff of /MITgcm/pkg/kpp/kpp_calc_diff_s.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 5  C $Name$ Line 5  C $Name$
5    
6        SUBROUTINE KPP_CALC_DIFF_S(        SUBROUTINE KPP_CALC_DIFF_S(
7       I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,       I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
8       U        KappaRS,       O        KappaRS,
9       I        myThid)       I        myThid)
10    
11  C     /==========================================================\  C     /==========================================================\
12  C     | SUBROUTINE KPP_CALC_DIFF_S                               |  C     | SUBROUTINE KPP_CALC_DIFF_S                               |
13  C     | o Add contrubution to net diffusivity from KPP mixing    |  C     | o Return contribution to net diffusivity from KPP mixing |
14  C     \==========================================================/  C     \==========================================================/
15        IMPLICIT NONE        IMPLICIT NONE
16    
# Line 44  C     == Local variables == Line 44  C     == Local variables ==
44  C     i,j,k     :: Loop counters  C     i,j,k     :: Loop counters
45        INTEGER i,j,k        INTEGER i,j,k
46    
47  C--   Add Vertical diffusivity contribution from KPP  C--   Set vertical diffusivity contribution from KPP
48        IF ( kArg .EQ. 0 ) THEN        IF ( kArg .EQ. 0 ) THEN
49  C-    do all levels :  C-    do all levels :
50         DO k=1,MIN(Nr,kSize)         DO k=1,MIN(Nr,kSize)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22