/[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.3 by cnh, Sun Feb 4 14:38: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 43  C     I, J, K - Loop counters Line 44  C     I, J, K - Loop counters
44          KappaRT(i,j,k) = KappaRT(i,j,k)+maskUp(i,j)*          KappaRT(i,j,k) = KappaRT(i,j,k)+maskUp(i,j)*
45       &       ( GM_background_K       &       ( GM_background_K
46  #ifdef GM_VISBECK_VARIABLE_K  #ifdef GM_VISBECK_VARIABLE_K
47       &          + VisbeckK(i,j,myThid)       &          + VisbeckK(i,j,bi,bj)
48  #endif  #endif
49       &       )*Kwz(i,j,k,myThid)       &       )*Kwz(i,j,k,bi,bj)
50         ENDDO         ENDDO
51        ENDDO        ENDDO
52    
# Line 54  C     I, J, K - Loop counters Line 55  C     I, J, K - Loop counters
55          KappaRS(i,j,k) = KappaRS(i,j,k)+maskUp(i,j)*          KappaRS(i,j,k) = KappaRS(i,j,k)+maskUp(i,j)*
56       &       ( GM_background_K       &       ( GM_background_K
57  #ifdef GM_VISBECK_VARIABLE_K  #ifdef GM_VISBECK_VARIABLE_K
58       &          + VisbeckK(i,j,myThid)       &          + VisbeckK(i,j,bi,bj)
59  #endif  #endif
60       &       )*Kwz(i,j,k,myThid)       &       )*Kwz(i,j,k,bi,bj)
61         ENDDO         ENDDO
62        ENDDO        ENDDO
63    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22