Changeset 2003 for LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Apr 4, 2014, 2:51:02 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Nouvelle version qui inclut les effets des aérosols et propose les mêmes diagnostics des effets
directs et indirects que l'ancienne version du rayonnement.
OB

---

New RRTM version that includes the effects of aerosols and outputs the same direct and indirect effects
diagnostics as the old version
OB

File:

• LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -334 +334 @@
       allocate(topswcf_aero(klon,3), solswcf_aero(klon,3))
       allocate(d_u_hin(klon,klev),d_v_hin(klon,klev),d_t_hin(klon,klev))
-      allocate(tausum_aero(klon,nwave,naero_spc))
-      allocate(tau3d_aero(klon,klev,nwave,naero_spc)) 
+!      allocate(tausum_aero(klon,nwave,naero_spc))
+!      allocate(tau3d_aero(klon,klev,nwave,naero_spc)) 
+!--correction mini bug OB
+      allocate(tausum_aero(klon,nwave,naero_tot))
+      allocate(tau3d_aero(klon,klev,nwave,naero_tot)) 
       allocate(scdnc(klon, klev))
       allocate(cldncl(klon))