/[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.2 by heimbach, Tue Sep 12 18:14:32 2000 UTC
# Line 42  C     df               - Diffusive flux Line 42  C     df               - Diffusive flux
42        _RL KappaRS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL KappaRS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
43        _RL df     (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL df     (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
44    
45  #ifdef ALLOW_KPP  #if defined(ALLOW_KPP) && defined(KPP_GHAT)
46    
47  C     == Local variables ==  C     == Local variables ==
48  C     I, J - Loop counters  C     I, J - Loop counters
49        INTEGER I, J        INTEGER I, J
50    
51        IF (use_KPPmixing) THEN        DO j=jMin,jMax
52           DO i=iMin,iMax
53         DO j=jMin,jMax          df(i,j) = df(i,j) - _rA(i,j,bi,bj) * maskC(i,j) *
54          DO i=iMin,iMax       &         KappaRS(i,j,k) * KPPghat(i,j,km1,bi,bj) * delZ(1) *
55           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  
56         ENDDO         ENDDO
57        ENDIF        ENDDO
58    
59  #endif /* ALLOW_KPP */  #endif /* ALLOW_KPP and KPP_GHAT */
60    
61        RETURN        RETURN
62        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22