Changeset 4860 for LMDZ6/trunk/libf/phylmd/ecrad/radiation/radiation_aerosol_optics_data.F90

Timestamp:

Mar 20, 2024, 4:57:32 PM (8 months ago)

Author:

idelkadi

Message:

Bug correction (​https://github.com/ecmwf-ifs/ecrad/issues/14)

File:

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

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

@@ -718 +718 @@
       if (i_start_new == 0) then
         is_fail = .true.
-        cycle
+       ! https://github.com/ecmwf-ifs/ecrad/issues/14
+       ! cycle
+        exit
       else
         istart = istart + i_start_new