Changeset 4936 for LMDZ6/trunk/libf/phylmd/ecrad

Timestamp:

May 7, 2024, 4:42:50 PM (8 months ago)

Author:

lguez

Message:

Circumvent a bug of ifort

Same commit as revision 4802. This modification was erased in revision
4853.

File:

• LMDZ6/trunk/libf/phylmd/ecrad/radiation/radiation_general_cloud_optics_data.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/ecrad/radiation/radiation_general_cloud_optics_data.F90

@@ -187 +187 @@
 
     ! Thin averaging
+
+    ! Circumvent ifort bug (see https://github.com/ecmwf-ifs/ecrad/issues/13):
+    allocate(this%mass_ext(size(mapping, 1), nre))
+
     this%mass_ext  = matmul(mapping, mass_ext)
     this%ssa       = matmul(mapping, mass_ext*ssa) / this%mass_ext