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

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

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

revision 1.226 by mlosch, Mon Nov 23 16:15:54 2009 UTC revision 1.227 by jmc, Sun Nov 29 03:12:32 2009 UTC
# Line 187  C--   Continuous equation parameters Line 187  C--   Continuous equation parameters
187       & momPressureForcing, metricTerms, vectorInvariantMomentum,       & momPressureForcing, metricTerms, vectorInvariantMomentum,
188       & tempDiffusion, tempAdvection, tempForcing,       & tempDiffusion, tempAdvection, tempForcing,
189       & saltDiffusion, saltAdvection, saltForcing,       & saltDiffusion, saltAdvection, saltForcing,
190       & implicSurfPress, implicDiv2Dflow,       & implicSurfPress, implicDiv2Dflow, implicitNHPress,
191       & implicitFreeSurface, rigidLid, freeSurfFac,       & implicitFreeSurface, rigidLid, freeSurfFac,
192       & hFacMin, hFacMinDz, hFacMinDp, hFacMinDr,       & hFacMin, hFacMinDz, hFacMinDp, hFacMinDr,
193       & exactConserv, linFSConserveTr, uniformLin_PhiSurf,       & exactConserv, linFSConserveTr, uniformLin_PhiSurf,
# Line 413  C--   Set default "physical" parameters Line 413  C--   Set default "physical" parameters
413        convertFW2Salt = UNSET_RL        convertFW2Salt = UNSET_RL
414        tAlpha              = UNSET_RL        tAlpha              = UNSET_RL
415        sBeta               = UNSET_RL        sBeta               = UNSET_RL
416          implicitNHPress     = UNSET_RL
417        tempVertAdvScheme = 0        tempVertAdvScheme = 0
418        saltVertAdvScheme = 0        saltVertAdvScheme = 0
419  C--   z,p,r coord input switching.  C--   z,p,r coord input switching.
# Line 481  C-     No barotropic solver selected => Line 482  C-     No barotropic solver selected =>
482        IF ( gBaro .EQ. UNSET_RL ) gBaro=gravity        IF ( gBaro .EQ. UNSET_RL ) gBaro=gravity
483        IF ( rhoConst .EQ. UNSET_RL ) rhoConst=rhoNil        IF ( rhoConst .EQ. UNSET_RL ) rhoConst=rhoNil
484        IF ( rhoConstFresh .EQ. UNSET_RL ) rhoConstFresh=rhoConst        IF ( rhoConstFresh .EQ. UNSET_RL ) rhoConstFresh=rhoConst
485          IF ( implicitNHPress.EQ.UNSET_RL )
486         &     implicitNHPress = implicSurfPress
487        IF ( omega .EQ. UNSET_RL ) THEN        IF ( omega .EQ. UNSET_RL ) THEN
488          omega = 0. _d 0          omega = 0. _d 0
489          IF ( rotationPeriod .NE. 0. _d 0 )          IF ( rotationPeriod .NE. 0. _d 0 )
Legend:
Removed from v.1.226  
changed lines
  Added in v.1.227
  ViewVC Help
Powered by ViewVC 1.1.22