Changeset 4648

Timestamp:

Aug 11, 2023, 5:06:49 PM (17 months ago)

Author:

idelkadi

Message:

Correction: variable allocation already done.

File:

• LMDZ6/branches/LMDZ_ECRad/libf/phylmd/ecrad/setup_aerosol_optics_lmdz_m.F90 (modified) (1 diff)

LMDZ6/branches/LMDZ_ECRad/libf/phylmd/ecrad/setup_aerosol_optics_lmdz_m.F90

@@ -113 +113 @@
 
     ! Allocate memory for mapping arrays
-    ao%ntype = ao%n_type_phobic + ao%n_type_philic
-    allocate(ao%iclass(ao%ntype))
-    allocate(ao%itype(ao%ntype))
+!    ao%ntype = ao%n_type_phobic + ao%n_type_philic
+!    allocate(ao%iclass(ao%ntype))
+!    allocate(ao%itype(ao%ntype))
 
-    ao%iclass = IAerosolClassUndefined
-    ao%itype  = 0
+!    ao%iclass = IAerosolClassUndefined
+!    ao%itype  = 0
 
   end subroutine setup_aerosol_optics_lmdz