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

Diff of /MITgcm/pkg/kpp/kpp_transport_s.F

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

revision 1.1 by adcroft, Wed Jun 21 19:45:55 2000 UTC revision 1.10 by jmc, Sun Jul 18 01:19:36 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "KPP_OPTIONS.h"  #include "KPP_OPTIONS.h"
5    
6        subroutine KPP_TRANSPORT_S (        subroutine KPP_TRANSPORT_S (
7       I     iMin,iMax,jMin,jMax,bi,bj,k,km1,       I     iMin,iMax,jMin,jMax,bi,bj,k,km1,
8       I     maskC,KappaRS,       I     KappaRS,
9       U     df )       U     df )
10  C     /==========================================================\  C     /==========================================================\
11  C     | o SUBROUTINE KPP_TRANSPORT_S                             |  C     | o SUBROUTINE KPP_TRANSPORT_S                             |
# Line 34  C     == GLobal variables == Line 35  C     == GLobal variables ==
35  C     == Routine arguments ==  C     == Routine arguments ==
36  C     iMin,iMax,jMin,  - Range of points for which calculation  C     iMin,iMax,jMin,  - Range of points for which calculation
37  C     jMax,bi,bj,k,km1   results will be set.  C     jMax,bi,bj,k,km1   results will be set.
 C     maskC            - Land mask for salt cells.  
38  C     KappaRS          - Total diffusion in vertical for S.  C     KappaRS          - Total diffusion in vertical for S.
39  C     df               - Diffusive flux component work array.  C     df               - Diffusive flux component work array.
40        INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1        INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1
       _RS maskC  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)  
41        _RL KappaRS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL KappaRS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
42        _RL df     (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL df     (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
43    
44  #ifdef ALLOW_KPP  #if defined(ALLOW_KPP) && defined(KPP_GHAT)
45    
46  C     == Local variables ==  C     == Local variables ==
47  C     I, J - Loop counters  C     I, J - Loop counters
48        INTEGER I, J        INTEGER I, J
49    
50        IF (use_KPPmixing) THEN        DO j=jMin,jMax
51           DO i=iMin,iMax
52         DO j=jMin,jMax          df(i,j) = df(i,j) - _rA(i,j,bi,bj) *
53          DO i=iMin,iMax       &         KappaRS(i,j,k) * KPPghat(i,j,km1,bi,bj) *
54           df(i,j) = df(i,j) - _rA(i,j,bi,bj) * maskC(i,j) *       &         surfaceForcingS(i,j,bi,bj)
      &          KappaRS(i,j,k) * KPPghat(i,j,km1,bi,bj) * delZ(1) *  
      &          EmPmR(i,j,bi,bj)  
         ENDDO  
55         ENDDO         ENDDO
56        ENDIF        ENDDO
57    
58  #endif /* ALLOW_KPP */  #endif /* ALLOW_KPP and KPP_GHAT */
59    
60        RETURN        RETURN
61        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22