6 |
C !AUTHORS: adcroft@mit.edu |
C !AUTHORS: adcroft@mit.edu |
7 |
C !INTRODUCTION: Generic Advection Diffusion Package |
C !INTRODUCTION: Generic Advection Diffusion Package |
8 |
C |
C |
9 |
C Package "generic\_advdiff" provides a common set of routines for calculating |
C Package ``generic\_advdiff'' provides a common set of routines for calculating |
10 |
C advective/diffusive fluxes for tracers (cell centered quantities on a C-grid). |
C advective/diffusive fluxes for tracers (cell centered quantities on a C-grid). |
11 |
C |
C |
12 |
C Many different advection schemes are available: the standard centered |
C Many different advection schemes are available: the standard centered |
30 |
|
|
31 |
#include "GAD_OPTIONS.h" |
#include "GAD_OPTIONS.h" |
32 |
|
|
33 |
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
34 |
CBOP |
CBOP |
35 |
C !ROUTINE: GAD_ADVECTION |
C !ROUTINE: GAD_ADVECTION |
36 |
|
|
40 |
I uVel, vVel, wVel, tracer, |
I uVel, vVel, wVel, tracer, |
41 |
O gTracer, |
O gTracer, |
42 |
I bi,bj, myTime,myIter,myThid) |
I bi,bj, myTime,myIter,myThid) |
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
|
43 |
|
|
44 |
C !DESCRIPTION: |
C !DESCRIPTION: |
45 |
C Calculates the tendancy of a tracer due to advection. |
C Calculates the tendancy of a tracer due to advection. |