/[MITgcm]/MITgcm/model/src/set_parms.F
ViewVC logotype

Diff of /MITgcm/model/src/set_parms.F

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

revision 1.2 by jmc, Thu Jul 13 02:58:03 2006 UTC revision 1.3 by jmc, Tue Apr 1 01:28:39 2008 UTC
# Line 61  C--   On/Off flags for each terms of the Line 61  C--   On/Off flags for each terms of the
61        momImplVertAdv   = momAdvection .AND. momImplVertAdv        momImplVertAdv   = momAdvection .AND. momImplVertAdv
62        implicitViscosity= momViscosity .AND. implicitViscosity        implicitViscosity= momViscosity .AND. implicitViscosity
63        use3Dsolver      = nonHydrostatic.OR. implicitIntGravWave        use3Dsolver      = nonHydrostatic.OR. implicitIntGravWave
64    C--   Set default Vorticity-Term Scheme:
65          IF ( vectorInvariantMomentum ) THEN
66            IF ( selectVortScheme.EQ.UNSET_I ) THEN
67              selectVortScheme = 1
68              IF ( upwindVorticity )    selectVortScheme = 0
69              IF ( highOrderVorticity ) selectVortScheme = 0
70            ENDIF
71          ELSEIF ( selectVortScheme.NE.UNSET_I ) THEN
72            WRITE(msgBuf,'(A,A)') '** WARNING ** SET_PARMS: ',
73         &   'Vector-Invariant Momentum unused => ignore selectVortScheme'
74            CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, SQUEEZE_RIGHT, 1 )
75          ENDIF
76  C--   Momentum viscosity on/off flag.  C--   Momentum viscosity on/off flag.
77        IF ( momViscosity        ) THEN        IF ( momViscosity        ) THEN
78         vfFacMom = 1.D0         vfFacMom = 1.D0
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22