/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_calc_rhs.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_calc_rhs.F

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

revision 1.21 by dimitri, Wed Sep 24 04:52:38 2003 UTC revision 1.22 by dimitri, Thu Sep 25 03:01:59 2003 UTC
# Line 43  C !USES: =============================== Line 43  C !USES: ===============================
43  #include "DYNVARS.h"  #include "DYNVARS.h"
44  #include "SURFACE.h"  #include "SURFACE.h"
45  #include "GAD.h"  #include "GAD.h"
 #ifdef ALLOW_PTRACERS  
 #include "PTRACERS_OPTIONS.h"  
 #include "PTRACERS.h"  
 #endif  
46    
47  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
48  #include "tamc.h"  #include "tamc.h"
# Line 408  C *note* should update KPP_TRANSPORT_T t Line 404  C *note* should update KPP_TRANSPORT_T t
404       I     KappaRT,       I     KappaRT,
405       U     df )       U     df )
406  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
407         ELSEIF (tracerIdentity .GE. GAD_TR1 .AND.         ELSEIF (tracerIdentity .GE. GAD_TR1) THEN
      &         tracerIdentity .LE. (GAD_TR1+PTRACERS_numInUse-1)) THEN  
408          CALL KPP_TRANSPORT_PTR(          CALL KPP_TRANSPORT_PTR(
409       I     iMin,iMax,jMin,jMax,bi,bj,k,km1,       I     iMin,iMax,jMin,jMax,bi,bj,k,km1,
410       I     tracerIdentity-GAD_TR1+1,KappaRT,       I     tracerIdentity-GAD_TR1+1,KappaRT,
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22