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

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

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

revision 1.1 by adcroft, Mon Sep 10 01:22:48 2001 UTC revision 1.2 by adcroft, Mon Sep 10 13:09:04 2001 UTC
# Line 200  C-    Compute vertical advective flux in Line 200  C-    Compute vertical advective flux in
200          CALL GAD_FLUXLIMIT_ADV_R(          CALL GAD_FLUXLIMIT_ADV_R(
201       &       bi,bj,k,deltaTtracer,rTrans,wVel,localTijk,af,myThid)       &       bi,bj,k,deltaTtracer,rTrans,wVel,localTijk,af,myThid)
202         ELSEIF (advectionScheme.EQ.ENUM_DST3 ) THEN         ELSEIF (advectionScheme.EQ.ENUM_DST3 ) THEN
203  c       CALL GAD_DST3_ADV_R(          CALL GAD_DST3_ADV_R(
204  c    &       bi,bj,k,deltaTtracer,rTrans,wVel,localTijk,af,myThid)       &       bi,bj,k,deltaTtracer,rTrans,wVel,localTijk,af,myThid)
         STOP 'GAD_ADVECTION: adv. scheme not avail. yet'  
205         ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN         ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN
206  c       CALL GAD_DST3FL_ADV_R(          CALL GAD_DST3FL_ADV_R(
207  c    &       bi,bj,k,deltaTtracer,rTrans,wVel,localTijk,af,myThid)       &       bi,bj,k,deltaTtracer,rTrans,wVel,localTijk,af,myThid)
         STOP 'GAD_ADVECTION: adv. scheme not avail. yet'  
208         ELSE         ELSE
209          STOP 'GAD_ADVECTION: adv. scheme incompatibale with mutli-dim'          STOP 'GAD_ADVECTION: adv. scheme incompatibale with mutli-dim'
210         ENDIF         ENDIF
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22