/[MITgcm]/MITgcm/pkg/gmredi/gmredi_xtransport.F
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/gmredi_xtransport.F

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

revision 1.18 by jmc, Wed Jan 20 01:20:29 2010 UTC revision 1.19 by jmc, Sat Apr 26 19:47:46 2014 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "GMREDI_OPTIONS.h"  #include "GMREDI_OPTIONS.h"
5    #ifdef ALLOW_CTRL
6    # include "CTRL_OPTIONS.h"
7    #endif
8    
9        SUBROUTINE GMREDI_XTRANSPORT(        SUBROUTINE GMREDI_XTRANSPORT(
10       I     iMin,iMax,jMin,jMax,bi,bj,K,       I     iMin,iMax,jMin,jMax,bi,bj,K,
# Line 21  C     == GLobal variables == Line 24  C     == GLobal variables ==
24  #include "PARAMS.h"  #include "PARAMS.h"
25  #include "GRID.h"  #include "GRID.h"
26  #include "GMREDI.h"  #include "GMREDI.h"
27    #ifdef ALLOW_CTRL
28    # include "CTRL_FIELDS.h"
29    #endif
30    
31  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
32  # include "tamc.h"  # include "tamc.h"
# Line 109  C--   Area integrated zonal flux Line 115  C--   Area integrated zonal flux
115       &    *Kux(i,j,k,bi,bj)       &    *Kux(i,j,k,bi,bj)
116  #else  #else
117  #ifdef ALLOW_KAPREDI_CONTROL  #ifdef ALLOW_KAPREDI_CONTROL
118       &    *(kapredi(i,j,k,bi,bj)       &    *(kapRedi(i,j,k,bi,bj)
119  #else  #else
120       &    *(GM_isopycK       &    *(GM_isopycK
121  #endif  #endif
# Line 145  C-        Vertical gradients interpolate Line 151  C-        Vertical gradients interpolate
151       &           (Tracer( i ,j,k,bi,bj)-Tracer( i ,j,kp1,bi,bj))       &           (Tracer( i ,j,k,bi,bj)-Tracer( i ,j,kp1,bi,bj))
152       &       )      )       &       )      )
153    
   
154          ENDDO          ENDDO
155         ENDDO         ENDDO
156  #ifdef GM_AUTODIFF_EXCESSIVE_STORE  #ifdef GM_AUTODIFF_EXCESSIVE_STORE
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22