/[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.4 by jmc, Sat Jun 26 02:38:54 2004 UTC revision 1.5 by jmc, Wed Jul 7 22:25:58 2004 UTC
# Line 31  C     msgBuf      - Informational/error Line 31  C     msgBuf      - Informational/error
31    
32  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
33    
34  C-- Set Temp & Salt muti-Dim Advec. flag according to advection scheme used  C-- Set Temp & Salt multi-Dim Advec. flag according to advection scheme used
35        tempMultiDimAdvec = multiDimAdvection .AND. tempAdvection        tempMultiDimAdvec = multiDimAdvection .AND. tempAdvection
36        saltMultiDimAdvec = multiDimAdvection .AND. saltAdvection        saltMultiDimAdvec = multiDimAdvection .AND. saltAdvection
37        IF ( tempAdvScheme.EQ.ENUM_CENTERED_2ND        IF ( tempAdvScheme.EQ.ENUM_CENTERED_2ND
# Line 45  C-- Set Temp & Salt muti-Dim Advec. flag Line 45  C-- Set Temp & Salt muti-Dim Advec. flag
45             saltMultiDimAdvec = .FALSE.             saltMultiDimAdvec = .FALSE.
46        ENDIF        ENDIF
47    
48    C-- Set general multi-Dim Advec. flag when at least 1 tracer use multi-Dim Advec.
49          useMultiDimAdvec = .FALSE.
50          useMultiDimAdvec = useMultiDimAdvec.OR.tempMultiDimAdvec
51          useMultiDimAdvec = useMultiDimAdvec.OR.saltMultiDimAdvec
52    
53  C-- Set Temp & Salt Adams-Bashforth flag according to advection scheme used  C-- Set Temp & Salt Adams-Bashforth flag according to advection scheme used
54        tempAdamsBashforth = .FALSE.        tempAdamsBashforth = .FALSE.
55        saltAdamsBashforth = .FALSE.        saltAdamsBashforth = .FALSE.
# Line 68  C-- Set Temp & Salt Adams-Bashforth flag Line 73  C-- Set Temp & Salt Adams-Bashforth flag
73             tr1_MultiDimAdvec = .FALSE.             tr1_MultiDimAdvec = .FALSE.
74             tr1_AdamsBashforth = .TRUE.             tr1_AdamsBashforth = .TRUE.
75        ENDIF        ENDIF
76          useMultiDimAdvec = useMultiDimAdvec.OR.tr1_MultiDimAdvec
77  #endif  #endif
78    
79  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22