/[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.5 by jmc, Tue Jul 13 16:47:48 2004 UTC revision 1.6 by jmc, Sun Dec 5 22:22:06 2004 UTC
# Line 56  C Loop over tracers Line 56  C Loop over tracers
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(              CALL GAD_ADVECTION(
59       I                        .FALSE.,       I                        PTRACERS_ImplVertAdv(iTracer),
60       I                        PTRACERS_advScheme(iTracer),       I                        PTRACERS_advScheme(iTracer),
61       I                        PTRACERS_advScheme(iTracer),       I                        PTRACERS_advScheme(iTracer),
62       I                        GAD_TR1,       I                        GAD_TR1,
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22