/[MITgcm]/MITgcm/pkg/ggl90/ggl90_calc_diff.F
ViewVC logotype

Diff of /MITgcm/pkg/ggl90/ggl90_calc_diff.F

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

revision 1.5 by jmc, Sun Aug 2 19:30:19 2009 UTC revision 1.6 by gforget, Fri Aug 6 18:37:05 2010 UTC
# Line 51  C-    do all levels : Line 51  C-    do all levels :
51           DO j=jMin,jMax           DO j=jMin,jMax
52            DO i=iMin,iMax            DO i=iMin,iMax
53              KappaRx(i,j,k) = KappaRx(i,j,k)              KappaRx(i,j,k) = KappaRx(i,j,k)
 #ifdef ALLOW_GGL90_SMOOTH  
      &                  +( GGL90diffKrS(i,j,k,bi,bj)  
 #else  
54       &                  +( GGL90diffKr(i,j,k,bi,bj)       &                  +( GGL90diffKr(i,j,k,bi,bj)
 #endif  
 #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))  
      &                     - diffKr(i,j,k,bi,bj) )  
 #else  
55       &                     - diffKrNrT(k) )       &                     - diffKrNrT(k) )
 #endif  
56            ENDDO            ENDDO
57           ENDDO           ENDDO
58          ENDDO          ENDDO
# Line 70  C-    do level k=kArg only : Line 62  C-    do level k=kArg only :
62           DO j=jMin,jMax           DO j=jMin,jMax
63            DO i=iMin,iMax            DO i=iMin,iMax
64              KappaRx(i,j,k) = KappaRx(i,j,k)              KappaRx(i,j,k) = KappaRx(i,j,k)
 #ifdef ALLOW_GGL90_SMOOTH  
      &                  +( GGL90diffKrS(i,j,kArg,bi,bj)  
 #else  
65       &                  +( GGL90diffKr(i,j,kArg,bi,bj)       &                  +( GGL90diffKr(i,j,kArg,bi,bj)
 #endif  
 #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))  
      &                     - diffKr(i,j,kArg,bi,bj) )  
 #else  
66       &                     - diffKrNrT(kArg) )       &                     - diffKrNrT(kArg) )
 #endif  
67            ENDDO            ENDDO
68           ENDDO           ENDDO
69        ENDIF        ENDIF
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22