Changeset 1015 for LMDZ4/trunk/libf/phylmd

Timestamp:

Oct 20, 2008, 5:53:19 PM (16 years ago)

Author:

lsce

Message:

• Ajoute de initialisation a zero pour 2 variables qui ne sont pas calcule dans le cas de Tietke.
• Copure des lignes trop longues
• Correction de nom pour 2 variables

JG

File:

• LMDZ4/trunk/libf/phylmd/physiq.F (modified) (4 diffs)

LMDZ4/trunk/libf/phylmd/physiq.F

@@ -1946 +1946 @@
      s            pmfu, pmfd, pen_u, pde_u, pen_d, pde_d,
      s            kcbot, kctop, kdtop, pmflxr, pmflxs)
+      d_u_con = 0.
+      d_v_con = 0.
+
       WHERE (rain_con < 0.) rain_con = 0.
       WHERE (snow_con < 0.) snow_con = 0.
@@ -2720 +2723 @@
 
          IF (config_inca == 'aero') THEN
-            CALL AEROSOL_METEO_CALC(calday,pdtphys,pplay,paprs,t,pmflxr,pmflxs
-     &           ,prfl,psfl,pctsrf,airephy,xjour,rlat,rlon,u10m,v10m)
+            CALL AEROSOL_METEO_CALC(
+     $           calday,pdtphys,pplay,paprs,t,pmflxr,pmflxs,
+     $           prfl,psfl,pctsrf,airephy,xjour,rlat,rlon,u10m,v10m)
          END IF
 
@@ -2822 +2826 @@
       CALL radlwsw_inca 
      e            (kdlon,kflev,dist, rmu0, fract, solaire,
-     e             paprs, pplay,zxtsol,albsol, albsollw, t_seri,q_seri,
+     e             paprs, pplay,zxtsol,albsol1, albsol2, t_seri,q_seri,
      e             wo,
      e             cldfra, cldemi, cldtau,
@@ -3248 +3252 @@
      $                        pphis,
      $                        zx_rh)
-     $                        xjour)
 
          CALL VTe(VTinca)