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

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

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

revision 1.74 by edhill, Mon Oct 18 16:04:20 2004 UTC revision 1.80 by jmc, Tue Jan 4 15:57:22 2005 UTC
# Line 103  C-    Always use 1 day in the past but s Line 103  C-    Always use 1 day in the past but s
103        diffKrBL79Ho        = -2000.D0        diffKrBL79Ho        = -2000.D0
104        viscA4              = 0.D11        viscA4              = 0.D11
105        viscA4Grid          = 0.D0        viscA4Grid          = 0.D0
106          viscA4GridMax       = 0.D0
107          viscA4GridMin       = 0.D0
108        viscA4Max           = 1.D21        viscA4Max           = 1.D21
109        viscC4leith         = 0.D0        viscC4leith         = 0.D0
110        diffK4T             = 0.D11        diffK4T             = 0.D11
# Line 153  Cml      sBeta               = 7.4D-4 Line 155  Cml      sBeta               = 7.4D-4
155        writePickupWithTracer = .FALSE.        writePickupWithTracer = .FALSE.
156        tempAdvScheme       = 2        tempAdvScheme       = 2
157        saltAdvScheme       = 2        saltAdvScheme       = 2
       tracerAdvScheme     = 2  
158        multiDimAdvection   = .TRUE.        multiDimAdvection   = .TRUE.
159        useCDscheme         = .FALSE.        useCDscheme         = .FALSE.
160        useEnergyConservingCoriolis = .FALSE.        useEnergyConservingCoriolis = .FALSE.
# Line 179  C--   Set (free)surface-related paramete Line 180  C--   Set (free)surface-related paramete
180        useRealFreshWaterFlux = .FALSE.        useRealFreshWaterFlux = .FALSE.
181        temp_EvPrRn = UNSET_RL        temp_EvPrRn = UNSET_RL
182        salt_EvPrRn = 0.        salt_EvPrRn = 0.
       trac_EvPrRn = UNSET_RL  
183    
184  C--   Atmospheric physical parameters (e.g.: EOS)  C--   Atmospheric physical parameters (e.g.: EOS)
185        celsius2K = 273.16 _d 0        celsius2K = 273.16 _d 0
# Line 203  C--   Elliptic solver parameters Line 203  C--   Elliptic solver parameters
203        cg3dChkResFreq     = 1        cg3dChkResFreq     = 1
204    
205  C--   Time stepping parameters  C--   Time stepping parameters
206        deltaT            = 0.        deltaT            = 0. _d 0
207          deltaTmom         = 0. _d 0
208          deltaTfreesurf    = 0. _d 0
209          DO k=1,Nr
210            dTtracerLev(k)  = 0. _d 0
211          ENDDO
212        nIter0            = 0        nIter0            = 0
213        startTime         = deltaT*float(nIter0)        startTime         = deltaT*float(nIter0)
214        pickupSuff        = ' '        pickupSuff        = ' '
# Line 253  C--   Input files Line 258  C--   Input files
258        thetaClimFile   = ' '        thetaClimFile   = ' '
259        saltClimFile    = ' '        saltClimFile    = ' '
260        EmPmRfile       = ' '        EmPmRfile       = ' '
261          saltFluxFile    = ' '
262        surfQfile       = ' '        surfQfile       = ' '
263        surfQnetFile    = ' '        surfQnetFile    = ' '
264        surfQswFile     = ' '        surfQswFile     = ' '
Legend:
Removed from v.1.74  
changed lines
  Added in v.1.80
  ViewVC Help
Powered by ViewVC 1.1.22