/[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.6 by cnh, Sun Feb 4 14:38:50 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "KPP_OPTIONS.h"  #include "KPP_OPTIONS.h"
5    
# Line 42  C     df               - Diffusive flux Line 43  C     df               - Diffusive flux
43        _RL KappaRS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL KappaRS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
44        _RL df     (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL df     (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
45    
46  #ifdef ALLOW_KPP  #if defined(ALLOW_KPP) && defined(KPP_GHAT)
47    
48  C     == Local variables ==  C     == Local variables ==
49  C     I, J - Loop counters  C     I, J - Loop counters
50        INTEGER I, J        INTEGER I, J
51    
52        IF (use_KPPmixing) THEN        DO j=jMin,jMax
53           DO i=iMin,iMax
54         DO j=jMin,jMax          df(i,j) = df(i,j) - _rA(i,j,bi,bj) * maskC(i,j) *
55          DO i=iMin,iMax       &         KappaRS(i,j,k) * KPPghat(i,j,km1,bi,bj) * delZ(1) *
56           df(i,j) = df(i,j) - _rA(i,j,bi,bj) * maskC(i,j) *       &         SurfaceTendencyS(i,j,bi,bj)
      &          KappaRS(i,j,k) * KPPghat(i,j,km1,bi,bj) * delZ(1) *  
      &          EmPmR(i,j,bi,bj)  
         ENDDO  
57         ENDDO         ENDDO
58        ENDIF        ENDDO
59    
60  #endif /* ALLOW_KPP */  #endif /* ALLOW_KPP and KPP_GHAT */
61    
62        RETURN        RETURN
63        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22