Changeset 3665 for LMDZ6/branches/IPSLCM6.0.15/libf

Timestamp:

Apr 20, 2020, 10:46:42 AM (5 years ago)

Author:

oboucher

Message:

Correct dimension for alpha_bin, piz_bin and cg_bin

File:

• LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phys_local_var_mod.F90 (modified) (1 diff)

LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phys_local_var_mod.F90

@@ -825 +825 @@
       ALLOCATE (OCS_lifetime(klon,klev))
       ALLOCATE (SO2_lifetime(klon,klev))
-      ALLOCATE (alpha_bin(nbands_sw_rrtm+nbands_lw_rrtm+nwave+nwave_lw,nbtr))
-      ALLOCATE (piz_bin(nbands_sw_rrtm+nbands_lw_rrtm+nwave+nwave_lw,nbtr))
-      ALLOCATE (cg_bin(nbands_sw_rrtm+nbands_lw_rrtm+nwave+nwave_lw,nbtr))
+      ALLOCATE (alpha_bin(nbands_sw_rrtm+nbands_lw_rrtm+nwave,nbtr))
+      ALLOCATE (piz_bin(nbands_sw_rrtm+nbands_lw_rrtm+nwave,nbtr))
+      ALLOCATE (cg_bin(nbands_sw_rrtm+nbands_lw_rrtm+nwave,nbtr))
       ALLOCATE (tau_strat_550(klon,klev))
       ALLOCATE (tau_strat_1020(klon,klev))