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

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

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

revision 1.1 by jmc, Sat Jun 15 03:31:17 2002 UTC revision 1.2 by jmc, Wed Jul 3 20:29:20 2002 UTC
# Line 38  C     msgBuf      - Informational/error Line 38  C     msgBuf      - Informational/error
38  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
39    
40  C-- Set Temp & Salt muti-Dim Advec. flag according to advection scheme used  C-- Set Temp & Salt muti-Dim Advec. flag according to advection scheme used
41        tempMultiDimAdvec = multiDimAdvection        tempMultiDimAdvec = multiDimAdvection .AND. tempAdvection
42        saltMultiDimAdvec = multiDimAdvection        saltMultiDimAdvec = multiDimAdvection .AND. saltAdvection
43        IF ( tempAdvScheme.EQ.ENUM_CENTERED_2ND        IF ( tempAdvScheme.EQ.ENUM_CENTERED_2ND
44       & .OR.tempAdvScheme.EQ.ENUM_UPWIND_3RD       & .OR.tempAdvScheme.EQ.ENUM_UPWIND_3RD
45       & .OR.tempAdvScheme.EQ.ENUM_CENTERED_4TH ) THEN       & .OR.tempAdvScheme.EQ.ENUM_CENTERED_4TH ) THEN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22