/[MITgcm]/MITgcm/pkg/gmredi/gmredi_calc_diff.F
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/gmredi_calc_diff.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:42:54 2000 UTC revision 1.4 by jmc, Sun Dec 16 18:54:49 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "GMREDI_OPTIONS.h"  #include "GMREDI_OPTIONS.h"
5    
6        SUBROUTINE GMREDI_CALC_DIFF(        SUBROUTINE GMREDI_CALC_DIFF(
7       I        bi,bj,iMin,iMax,jMin,jMax,K,       I        bi,bj,iMin,iMax,jMin,jMax,K,
8       I        maskUp,       I        maskUp,
9       O        KappaRT,KappaRS,       U        KappaRT,KappaRS,
10       I        myThid)       I        myThid)
11    
12  C     /==========================================================\  C     /==========================================================\
# Line 35  C Line 36  C
36  #include "GMREDI.h"  #include "GMREDI.h"
37    
38  C     == Local variables ==  C     == Local variables ==
39  C     I, J, K - Loop counters  C     I, J   - Loop counters
40        INTEGER i,j        INTEGER i,j
41    
42        DO j=jMin,jMax        DO j=jMin,jMax
43         DO i=iMin,iMax         DO i=iMin,iMax
44          KappaRT(i,j,k) = KappaRT(i,j,k)+maskUp(i,j)*          KappaRT(i,j,k) = KappaRT(i,j,k)+maskUp(i,j)*Kwz(i,j,k,bi,bj)
      &       ( GM_background_K  
 #ifdef GM_VISBECK_VARIABLE_K  
      &          + VisbeckK(i,j,myThid)  
 #endif  
      &       )*Kwz(i,j,k,myThid)  
45         ENDDO         ENDDO
46        ENDDO        ENDDO
47    
48        DO j=jMin,jMax        DO j=jMin,jMax
49         DO i=iMin,iMax         DO i=iMin,iMax
50          KappaRS(i,j,k) = KappaRS(i,j,k)+maskUp(i,j)*          KappaRS(i,j,k) = KappaRS(i,j,k)+maskUp(i,j)*Kwz(i,j,k,bi,bj)
      &       ( GM_background_K  
 #ifdef GM_VISBECK_VARIABLE_K  
      &          + VisbeckK(i,j,myThid)  
 #endif  
      &       )*Kwz(i,j,k,myThid)  
51         ENDDO         ENDDO
52        ENDDO        ENDDO
53    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22