Changeset 3324 for LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/physiq_mod.F90
- Timestamp:
- May 15, 2018, 5:56:55 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/physiq_mod.F90
r3318 r3324 1263 1263 IF (debut) THEN 1264 1264 CALL suphel ! initialiser constantes et parametres phys. 1265 ! tau_gl : constante de rappel de la temperature a la surface de la glace - en 1266 tau_gl=5. 1267 CALL getin_p('tau_gl', tau_gl) 1268 ! tau_gl : constante de rappel de la temperature a la surface de la glace - en secondes 1269 tau_gl=86400.*tau_gl 1270 print*,'debut physiq_mod tau_gl=',tau_gl 1265 1271 CALL getin_p('iflag_alp_wk_cond', iflag_alp_wk_cond) 1266 1272 CALL getin_p('random_notrig_max',random_notrig_max)
Note: See TracChangeset
for help on using the changeset viewer.