Changeset 3327 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

May 16, 2018, 3:58:59 PM (6 years ago)

Author:

musat

Message:

tau_gl declare dans clesphys.h et lu dans physiq_mod.
Par defaut tau_gl=86400.*5. pour coherence avec versions anciennes.

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -1267 +1267 @@
     IF (debut) THEN
        CALL suphel ! initialiser constantes et parametres phys.
+! tau_gl : constante de rappel de la temperature a la surface de la glace - en
+       tau_gl=5.
+       CALL getin_p('tau_gl', tau_gl)
+! tau_gl : constante de rappel de la temperature a la surface de la glace - en
+! secondes
+       tau_gl=86400.*tau_gl
+       print*,'debut physiq_mod tau_gl=',tau_gl
        CALL getin_p('iflag_alp_wk_cond', iflag_alp_wk_cond) 
        CALL getin_p('random_notrig_max',random_notrig_max)