/[MITgcm]/MITgcm/model/src/calc_diffusivity.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_diffusivity.F

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

revision 1.19 by adcroft, Wed Jun 9 14:03:35 2004 UTC revision 1.20 by jmc, Thu Jul 1 21:45:12 2004 UTC
# Line 63  CEOP Line 63  CEOP
63         DO i = 1-Olx, sNx+Olx         DO i = 1-Olx, sNx+Olx
64          KappaRT(i,j,k) = maskUp(i,j)*          KappaRT(i,j,k) = maskUp(i,j)*
65       &      (       &      (
66       &         KappaRT(i,j,k)       &         IVDConvCount(i,j,k,bi,bj)*ivdc_kappa
67  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))
68       &       + diffKr(i,j,k,bi,bj)       &       + diffKr(i,j,k,bi,bj)
69  #else  #else
# Line 78  CEOP Line 78  CEOP
78         DO i = 1-Olx, sNx+Olx         DO i = 1-Olx, sNx+Olx
79          KappaRS(i,j,k) = maskUp(i,j)*          KappaRS(i,j,k) = maskUp(i,j)*
80       &      (       &      (
81       &         KappaRS(i,j,k)       &         IVDConvCount(i,j,k,bi,bj)*ivdc_kappa
82  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))
83       &       + diffKr(i,j,k,bi,bj)       &       + diffKr(i,j,k,bi,bj)
84  #else  #else
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22