/[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.230 by gforget, Wed Feb 17 21:16:10 2010 UTC revision 1.231 by dimitri, Mon Apr 26 20:37:02 2010 UTC
# Line 216  C--   Continuous equation parameters Line 216  C--   Continuous equation parameters
216       & SadournyCoriolis, useAbsVorticity, upwindShear, selectKEscheme,       & SadournyCoriolis, useAbsVorticity, upwindShear, selectKEscheme,
217       & selectAddFluid, useRealFreshWaterFlux, convertFW2Salt,       & selectAddFluid, useRealFreshWaterFlux, convertFW2Salt,
218       & temp_EvPrRn, salt_EvPrRn, trac_EvPrRn,       & temp_EvPrRn, salt_EvPrRn, trac_EvPrRn,
219       & zonal_filt_lat,       & temp_addMass, salt_addMass, zonal_filt_lat,
220       & inAdExact, smoothAbsFuncRange,       & inAdExact, smoothAbsFuncRange,
221       & balanceEmPmR, balanceQnet, balancePrintMean       & balanceEmPmR, balanceQnet, balancePrintMean
222    
# Line 1352  C     rUnit2mass: from r-coordinate to m Line 1352  C     rUnit2mass: from r-coordinate to m
1352           rUnit2mass = rhoConst           rUnit2mass = rhoConst
1353        ENDIF        ENDIF
1354    
1355    C--   For backward compatibility, set temp_addMass and salt_addMass
1356    C     to temp_EvPrRn and salt_EvPrRn in they are not set in data file
1357          IF (temp_addMass .EQ. UNSET_RL) temp_addMass = temp_EvPrRn
1358          IF (salt_addMass .EQ. UNSET_RL) salt_addMass = salt_EvPrRn
1359    
1360  c-- gradually replacing debugMode by debugLevel  c-- gradually replacing debugMode by debugLevel
1361        IF ( debugMode ) debugLevel = debLevB        IF ( debugMode ) debugLevel = debLevB
1362        IF ( debugLevel .GE. debLevB ) debugMode = .TRUE.        IF ( debugLevel .GE. debLevB ) debugMode = .TRUE.
Legend:
Removed from v.1.230  
changed lines
  Added in v.1.231
  ViewVC Help
Powered by ViewVC 1.1.22