/[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.5 by heimbach, Mon Jan 29 20:09:23 2001 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    
# Line 50  C     I, J - Loop counters Line 49  C     I, J - Loop counters
49    
50        DO j=jMin,jMax        DO j=jMin,jMax
51         DO i=iMin,iMax         DO i=iMin,iMax
52          df(i,j) = df(i,j) - _rA(i,j,bi,bj) * maskC(i,j) *          df(i,j) = df(i,j) - _rA(i,j,bi,bj) *
53       &         KappaRS(i,j,k) * KPPghat(i,j,km1,bi,bj) * delZ(1) *       &         KappaRS(i,j,k) * KPPghat(i,j,km1,bi,bj) *
54       &         SurfaceTendencyS(i,j,bi,bj)       &         surfaceForcingS(i,j,bi,bj)
55         ENDDO         ENDDO
56        ENDDO        ENDDO
57    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22