/[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.2 by heimbach, Mon Jan 29 20:07:39 2001 UTC
# Line 5  C $Header$ Line 5  C $Header$
5        SUBROUTINE GMREDI_CALC_DIFF(        SUBROUTINE GMREDI_CALC_DIFF(
6       I        bi,bj,iMin,iMax,jMin,jMax,K,       I        bi,bj,iMin,iMax,jMin,jMax,K,
7       I        maskUp,       I        maskUp,
8       O        KappaRT,KappaRS,       U        KappaRT,KappaRS,
9       I        myThid)       I        myThid)
10    
11  C     /==========================================================\  C     /==========================================================\
# Line 43  C     I, J, K - Loop counters Line 43  C     I, J, K - Loop counters
43          KappaRT(i,j,k) = KappaRT(i,j,k)+maskUp(i,j)*          KappaRT(i,j,k) = KappaRT(i,j,k)+maskUp(i,j)*
44       &       ( GM_background_K       &       ( GM_background_K
45  #ifdef GM_VISBECK_VARIABLE_K  #ifdef GM_VISBECK_VARIABLE_K
46       &          + VisbeckK(i,j,myThid)       &          + VisbeckK(i,j,bi,bj)
47  #endif  #endif
48       &       )*Kwz(i,j,k,myThid)       &       )*Kwz(i,j,k,bi,bj)
49         ENDDO         ENDDO
50        ENDDO        ENDDO
51    
# Line 54  C     I, J, K - Loop counters Line 54  C     I, J, K - Loop counters
54          KappaRS(i,j,k) = KappaRS(i,j,k)+maskUp(i,j)*          KappaRS(i,j,k) = KappaRS(i,j,k)+maskUp(i,j)*
55       &       ( GM_background_K       &       ( GM_background_K
56  #ifdef GM_VISBECK_VARIABLE_K  #ifdef GM_VISBECK_VARIABLE_K
57       &          + VisbeckK(i,j,myThid)       &          + VisbeckK(i,j,bi,bj)
58  #endif  #endif
59       &       )*Kwz(i,j,k,myThid)       &       )*Kwz(i,j,k,bi,bj)
60         ENDDO         ENDDO
61        ENDDO        ENDDO
62    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22