/[MITgcm]/MITgcm/pkg/ptracers/ptracers_advection.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_advection.F

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

revision 1.1 by adcroft, Mon Mar 4 19:01:29 2002 UTC revision 1.2 by jmc, Sat Jan 3 00:50:29 2004 UTC
# Line 17  C !USES: =============================== Line 17  C !USES: ===============================
17        IMPLICIT NONE        IMPLICIT NONE
18  #include "SIZE.h"  #include "SIZE.h"
19  #include "EEPARAMS.h"  #include "EEPARAMS.h"
20    #include "PARAMS.h"
21    #include "DYNVARS.h"
22  #include "PTRACERS.h"  #include "PTRACERS.h"
23  #include "GAD.h"  #include "GAD.h"
24    
# Line 52  c    &     multiDimAdvection .AND. Line 54  c    &     multiDimAdvection .AND.
54       &     PTRACERS_advScheme(iTracer).NE.ENUM_CENTERED_2ND .AND.       &     PTRACERS_advScheme(iTracer).NE.ENUM_CENTERED_2ND .AND.
55       &     PTRACERS_advScheme(iTracer).NE.ENUM_UPWIND_3RD .AND.       &     PTRACERS_advScheme(iTracer).NE.ENUM_UPWIND_3RD .AND.
56       &     PTRACERS_advScheme(iTracer).NE.ENUM_CENTERED_4TH ) THEN       &     PTRACERS_advScheme(iTracer).NE.ENUM_CENTERED_4TH ) THEN
57              CALL GAD_ADVECTION(bi,bj,              CALL GAD_ADVECTION(
58         I                        .FALSE.,
59       I                        PTRACERS_advScheme(iTracer),       I                        PTRACERS_advScheme(iTracer),
60       I                        GAD_TR1,       I                        GAD_TR1,
61       U                        pTracer(1-Olx,1-Oly,1,1,1,iTracer),       I                        uVel, vVel, wVel,
62       U                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),       I                        pTracer(1-Olx,1-Oly,1,1,1,iTracer),
63       I                        myTime,myIter,myThid)       O                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),
64         I                        bi,bj,myTime,myIter,myThid)
65         ENDIF         ENDIF
66    
67    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22