/[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.45 by jmc, Wed Jan 10 18:53:25 2007 UTC revision 1.46 by adcroft, Sat Jan 20 21:20:11 2007 UTC
# Line 383  CADJ &     comlev1_bibj_k_gad_pass, key= Line 383  CADJ &     comlev1_bibj_k_gad_pass, key=
383            CALL GAD_DST3FL_ADV_X(    bi,bj,k, dTtracerLev(k),            CALL GAD_DST3FL_ADV_X(    bi,bj,k, dTtracerLev(k),
384       I                              uTrans, uFld, maskLocW, localTij,       I                              uTrans, uFld, maskLocW, localTij,
385       O                              af, myThid )       O                              af, myThid )
386            ELSEIF (advectionScheme.EQ.ENUM_OS7MP ) THEN
387              CALL GAD_OS7MP_ADV_X(     bi,bj,k, dTtracerLev(k),
388         I                              uTrans, uFld, maskLocW, localTij,
389         O                              af, myThid )
390          ELSE          ELSE
391           STOP 'GAD_ADVECTION: adv. scheme incompatibale with multi-dim'           STOP 'GAD_ADVECTION: adv. scheme incompatibale with multi-dim'
392          ENDIF          ENDIF
# Line 550  CADJ &     comlev1_bibj_k_gad_pass, key= Line 554  CADJ &     comlev1_bibj_k_gad_pass, key=
554            CALL GAD_DST3FL_ADV_Y(    bi,bj,k, dTtracerLev(k),            CALL GAD_DST3FL_ADV_Y(    bi,bj,k, dTtracerLev(k),
555       I                              vTrans, vFld, maskLocS, localTij,       I                              vTrans, vFld, maskLocS, localTij,
556       O                              af, myThid )       O                              af, myThid )
557            ELSEIF (advectionScheme.EQ.ENUM_OS7MP ) THEN
558              CALL GAD_OS7MP_ADV_Y(     bi,bj,k, dTtracerLev(k),
559         I                              vTrans, vFld, maskLocS, localTij,
560         O                              af, myThid )
561          ELSE          ELSE
562           STOP 'GAD_ADVECTION: adv. scheme incompatibale with mutli-dim'           STOP 'GAD_ADVECTION: adv. scheme incompatibale with mutli-dim'
563          ENDIF          ENDIF
# Line 788  C-    Compute vertical advective flux in Line 796  C-    Compute vertical advective flux in
796             CALL GAD_DST3FL_ADV_R(    bi,bj,k, dTtracerLev(k),             CALL GAD_DST3FL_ADV_R(    bi,bj,k, dTtracerLev(k),
797       I                               rTrans, wFld, localTijk,       I                               rTrans, wFld, localTijk,
798       O                               fVerT(1-Olx,1-Oly,kUp), myThid )       O                               fVerT(1-Olx,1-Oly,kUp), myThid )
799             ELSEIF (vertAdvecScheme.EQ.ENUM_OS7MP ) THEN
800               CALL GAD_OS7MP_ADV_R(     bi,bj,k, dTtracerLev(k),
801         I                               rTrans, wFld, localTijk,
802         O                               fVerT(1-Olx,1-Oly,kUp), myThid )
803           ELSE           ELSE
804            STOP 'GAD_ADVECTION: adv. scheme incompatibale with mutli-dim'            STOP 'GAD_ADVECTION: adv. scheme incompatibale with mutli-dim'
805           ENDIF           ENDIF
Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46
  ViewVC Help
Powered by ViewVC 1.1.22