/[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.6 by cnh, Sun Feb 4 14:38:50 2001 UTC revision 1.7 by adcroft, Tue May 29 14:01:38 2001 UTC
# Line 5  C $Name$ Line 5  C $Name$
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 35  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 51  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) * delZ(1) *
54       &         SurfaceTendencyS(i,j,bi,bj)       &         SurfaceTendencyS(i,j,bi,bj)
55         ENDDO         ENDDO
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22