Changeset 553 for codes/icosagcm
- Timestamp:
- 09/18/17 15:10:09 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/base/earth_const.f90
r548 r553 19 19 REAL(rstd),SAVE :: mu ! molar mass of the atmosphere 20 20 21 INTEGER, PARAMETER,PUBLIC :: thermo_ theta=1, thermo_entropy=2, &22 thermo_moist=3, thermo_ moist_debug=10, thermo_dry=4, thermo_fake_moist=521 INTEGER, PARAMETER,PUBLIC :: thermo_none=-99, thermo_theta=1, thermo_entropy=2, & 22 thermo_moist=3, thermo_boussinesq=4, thermo_dry=10, thermo_fake_moist=11, thermo_moist_debug=100 23 23 INTEGER, PUBLIC :: caldyn_thermo, physics_thermo 24 24 !$OMP THREADPRIVATE(caldyn_thermo) … … 26 26 27 27 LOGICAL, SAVE :: boussinesq, hydrostatic 28 !$OMP THREADPRIVATE(boussinesq) 29 !$OMP THREADPRIVATE(hydrostatic) 28 30 29 31 CONTAINS … … 48 50 boussinesq=.FALSE. 49 51 CALL getin("boussinesq",boussinesq) 52 PRINT *, "Note : key boussinesq is deprecated, use thermo=boussinesq instead" 53 IF(boussinesq) STOP 50 54 hydrostatic=.TRUE. 51 55 CALL getin("hydrostatic",hydrostatic)
Note: See TracChangeset
for help on using the changeset viewer.