/[MITgcm]/MITgcm/pkg/my82/my82_calc_diff.F
ViewVC logotype

Diff of /MITgcm/pkg/my82/my82_calc_diff.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by jmc, Tue Jan 20 00:26:04 2009 UTC revision 1.5 by jmc, Mon Feb 23 21:20:15 2015 UTC
# Line 35  C     KappaRx   :: vertical diffusivity Line 35  C     KappaRx   :: vertical diffusivity
35  C     myThid    :: Instance number for this innvocation of MY82_CALC_DIFF  C     myThid    :: Instance number for this innvocation of MY82_CALC_DIFF
36    
37        INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize        INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
38        _RL KappaRx(1-Olx:sNx+Olx,1-Oly:sNy+Oly,kSize)        _RL KappaRx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize)
39        INTEGER myThid        INTEGER myThid
40    
41  #ifdef ALLOW_MY82  #ifdef ALLOW_MY82
# Line 55  C-    do all levels : Line 55  C-    do all levels :
55  #ifdef ALLOW_3D_DIFFKR  #ifdef ALLOW_3D_DIFFKR
56       &                     - diffKr(i,j,k,bi,bj) )       &                     - diffKr(i,j,k,bi,bj) )
57  #else  #else
58       &                     - diffKrNrT(k) )       &                     - diffKrNrS(k) )
59  #endif  #endif
60            ENDDO            ENDDO
61           ENDDO           ENDDO
# Line 70  C-    do level k=kArg only : Line 70  C-    do level k=kArg only :
70  #ifdef ALLOW_3D_DIFFKR  #ifdef ALLOW_3D_DIFFKR
71       &                     - diffKr(i,j,kArg,bi,bj) )       &                     - diffKr(i,j,kArg,bi,bj) )
72  #else  #else
73       &                     - diffKrNrT(kArg) )       &                     - diffKrNrS(kArg) )
74  #endif  #endif
75            ENDDO            ENDDO
76           ENDDO           ENDDO
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22