/[MITgcm]/MITgcm/pkg/kpp/kpp_calc_diff_s.F
ViewVC logotype

Diff of /MITgcm/pkg/kpp/kpp_calc_diff_s.F

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

revision 1.1 by jmc, Fri Oct 22 01:39:58 2004 UTC revision 1.2 by jmc, Wed Jun 21 22:58:31 2006 UTC
# Line 66  C-    do level k=kArg only : Line 66  C-    do level k=kArg only :
66           DO j=jMin,jMax           DO j=jMin,jMax
67            DO i=iMin,iMax            DO i=iMin,iMax
68              KappaRS(i,j,k) = KappaRS(i,j,k)              KappaRS(i,j,k) = KappaRS(i,j,k)
69       &                 + ( KPPdiffKzT(i,j,kArg,bi,bj)       &                 + ( KPPdiffKzS(i,j,kArg,bi,bj)
70  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))
71       &                     - diffKr(i,j,kArg,bi,bj) )       &                     - diffKr(i,j,kArg,bi,bj) )
72  #else  #else
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22