/[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.3 by jmc, Fri Oct 22 01:41:35 2004 UTC revision 1.4 by jmc, Tue Jan 20 00:26:04 2009 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "MY82_OPTIONS.h"  #include "MY82_OPTIONS.h"
5    
6        SUBROUTINE MY82_CALC_DIFF(        SUBROUTINE MY82_CALC_DIFF(
7       I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,       I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
8       U        KappaRx,       U        KappaRx,
9       I        myThid)       I        myThid)
# Line 18  C     == GLobal variables == Line 18  C     == GLobal variables ==
18  #include "SIZE.h"  #include "SIZE.h"
19  #include "EEPARAMS.h"  #include "EEPARAMS.h"
20  #include "PARAMS.h"  #include "PARAMS.h"
 #include "DYNVARS.h"  
21  #include "GRID.h"  #include "GRID.h"
22  #ifdef ALLOW_MY82  #ifdef ALLOW_3D_DIFFKR
23  #include "MY82.h"  #include "DYNVARS.h"
24  #endif  #endif
25    #include "MY82.h"
26    
27  C     == Routine arguments ==  C     == Routine arguments ==
28  C     bi, bj,   :: tile indices  C     bi, bj,   :: tile indices
# Line 52  C-    do all levels : Line 52  C-    do all levels :
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)
54       &                  +( MYdiffKr(i,j,k,bi,bj)       &                  +( MYdiffKr(i,j,k,bi,bj)
55  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))  #ifdef ALLOW_3D_DIFFKR
56       &                     - diffKr(i,j,k,bi,bj) )       &                     - diffKr(i,j,k,bi,bj) )
57  #else  #else
58       &                     - diffKrNrT(k) )       &                     - diffKrNrT(k) )
# Line 67  C-    do level k=kArg only : Line 67  C-    do level k=kArg only :
67            DO i=iMin,iMax            DO i=iMin,iMax
68              KappaRx(i,j,k) = KappaRx(i,j,k)              KappaRx(i,j,k) = KappaRx(i,j,k)
69       &                  +( MYdiffKr(i,j,kArg,bi,bj)       &                  +( MYdiffKr(i,j,kArg,bi,bj)
70  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))  #ifdef ALLOW_3D_DIFFKR
71       &                     - diffKr(i,j,kArg,bi,bj) )       &                     - diffKr(i,j,kArg,bi,bj) )
72  #else  #else
73       &                     - diffKrNrT(kArg) )       &                     - diffKrNrT(kArg) )
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22