/[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.5 by jmc, Tue Jul 13 16:47:48 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_SIZE.h"
23  #include "PTRACERS.h"  #include "PTRACERS.h"
24  #include "GAD.h"  #include "GAD.h"
25    
# Line 48  C Loop over tracers Line 51  C Loop over tracers
51        DO iTracer=1,PTRACERS_numInUse        DO iTracer=1,PTRACERS_numInUse
52    
53         IF (         IF (
54  c    &     multiDimAdvection .AND.       &     multiDimAdvection .AND.
55       &     PTRACERS_advScheme(iTracer).NE.ENUM_CENTERED_2ND .AND.       &     PTRACERS_advScheme(iTracer).NE.ENUM_CENTERED_2ND .AND.
56       &     PTRACERS_advScheme(iTracer).NE.ENUM_UPWIND_3RD .AND.       &     PTRACERS_advScheme(iTracer).NE.ENUM_UPWIND_3RD .AND.
57       &     PTRACERS_advScheme(iTracer).NE.ENUM_CENTERED_4TH ) THEN       &     PTRACERS_advScheme(iTracer).NE.ENUM_CENTERED_4TH ) THEN
58              CALL GAD_ADVECTION(bi,bj,              CALL GAD_ADVECTION(
59         I                        .FALSE.,
60         I                        PTRACERS_advScheme(iTracer),
61       I                        PTRACERS_advScheme(iTracer),       I                        PTRACERS_advScheme(iTracer),
62       I                        GAD_TR1,       I                        GAD_TR1,
63       U                        pTracer(1-Olx,1-Oly,1,1,1,iTracer),       I                        uVel, vVel, wVel,
64       U                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),       I                        pTracer(1-Olx,1-Oly,1,1,1,iTracer),
65       I                        myTime,myIter,myThid)       O                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),
66         I                        bi,bj,myTime,myIter,myThid)
67         ENDIF         ENDIF
68    
69    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22