Changeset 3327

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.

Location:

LMDZ6/trunk

Files:

• DefLists/physiq.def_NPv6.1 (added)
• libf/phylmd/clesphys.h (modified) (2 diffs)
• libf/phylmd/ocean_forced_mod.F90 (modified) (1 diff)
• libf/phylmd/physiq_mod.F90 (modified) (1 diff)
• libf/phylmd/surface_data.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/clesphys.h

@@ -56 +56 @@
        Real f_rugoro,z0min
 
+! tau_gl : constante de rappel de la temperature a la surface de la glace
+       REAL tau_gl
+
 !IM lev_histhf  : niveau sorties 6h
 !IM lev_histday : niveau sorties journalieres
@@ -105 +108 @@
      &     , cdmmax,cdhmax,ksta,ksta_ter,f_ri_cd_min,pbl_lmixmin_alpha  &
      &     , fmagic, pmagic                                             &
-     &     , f_cdrag_ter,f_cdrag_oce,f_rugoro,z0min                     &
+     &     , f_cdrag_ter,f_cdrag_oce,f_rugoro,z0min,tau_gl              &
      &     , min_wind_speed,f_gust_wk,f_gust_bl,f_qsat_oce,f_z0qh_oce   &
      &     , z0m_seaice,z0h_seaice                                      &

LMDZ6/trunk/libf/phylmd/ocean_forced_mod.F90

@@ -162 +162 @@
     USE dimphy
     USE calcul_fluxs_mod
-    USE surface_data,     ONLY : calice, calsno, tau_gl
+    USE surface_data,     ONLY : calice, calsno
     USE limit_read_mod
     USE fonte_neige_mod,  ONLY : fonte_neige

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)

LMDZ6/trunk/libf/phylmd/surface_data.F90

@@ -7 +7 @@
 
   REAL, PARAMETER        :: calice=1.0/(5.1444e+06*0.15)
-  REAL, PARAMETER        :: tau_gl=86400.*5.
   REAL, PARAMETER        :: calsno=1./(2.3867e+06*.15)