Changeset 1966 for LMDZ5/trunk/libf/phy1d/1D_decl_cases.h

Timestamp:

Feb 11, 2014, 11:52:47 AM (10 years ago)

Author:

Laurent Fairhead

Message:

Correction de bug pour le cas Sandu.
Nudge au dessus de 700hpa à prendre en compte.
MPL

--This line, and those below, will be ignored--

M phy1d/1D_decl_cases.h
A phy1d/1D_nudge_sandu_astex.h
M phy1d/lmdz1d.F

File:

• LMDZ5/trunk/libf/phy1d/1D_decl_cases.h (modified) (1 diff)

LMDZ5/trunk/libf/phy1d/1D_decl_cases.h

@@ -196 +196 @@
         parameter (mth_ini_sandu=7)
         parameter (day_ini_sandu=15)  ! 196 = 15 juillet 2006
-        real dt_sandu
+        real dt_sandu, tau_sandu
         logical  :: trouve_700=.true.
         parameter (dt_sandu=6.*3600.)   ! forcages donnes ttes les 6 heures par ifa_sandu.txt
-!       parameter (tau_sandu=3600.)  ! temps de relaxation u,v,thetal,qt vers profil init et au dessus 700hPa
+        parameter (tau_sandu=3600.)  ! temps de relaxation u,v,thetal,qt vers profil init et au dessus 700hPa
 !!
         real ts_sandu(nt_sandu)