Changeset 2075 for LMDZ5/trunk/libf/phylmd/conf_phys_m.F90
- Timestamp:
- Jul 3, 2014, 2:27:38 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/conf_phys_m.F90
r2072 r2075 99 99 real,SAVE :: ratqshaut_omp 100 100 real,SAVE :: tau_ratqs_omp 101 REAL, SAVE :: t_coupl_omp 101 102 integer,SAVE :: iflag_radia_omp 102 103 integer,SAVE :: iflag_rrtm_omp … … 228 229 WRITE(lunout,*)'You have to update your parameter file physiq.def to succed running' 229 230 CALL abort_gcm('conf_phys','Variable OCEAN no longer existing, use variable name type_ocean',1) 231 END IF 232 233 !Config Key = t_coupl 234 !Config Desc = Pas de temps du couplage atm/oce en sec. 235 !Config Def = 86400 236 !Config Help = This is only for testing purpose 237 ! 238 t_coupl_omp = 86400. 239 call getin('t_coupl', t_coupl_omp) 240 IF (t_coupl_omp == 0) THEN 241 WRITE(lunout,*)'ERROR! Timestep of coupling between atmosphere and ocean' 242 WRITE(lunout,*)'cannot be zero.' 243 CALL abort_gcm('conf_phys','t_coupl = 0.',1) 230 244 END IF 231 245 … … 1823 1837 type_ocean = type_ocean_omp 1824 1838 version_ocean = version_ocean_omp 1839 t_coupl = t_coupl_omp 1825 1840 1826 1841 ok_veget=.true.
Note: See TracChangeset
for help on using the changeset viewer.