Changeset 5185 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_driver.F90

Timestamp:

Sep 11, 2024, 4:27:07 PM (9 days ago)

Author:

abarral

Message:

Replace REPROBUS CPP KEY by logical using handmade wonky wrapper

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_driver.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_driver.F90

@@ -200 +200 @@
   end if
 
-  if (driver_config%do_save_cloud_optics .and. config%use_general_cloud_optics) then
+  if (driver_config%do_save_cloud_optics .AND. config%use_general_cloud_optics) then
     call save_general_cloud_optics(config, 'hydrometeor_optics', iverbose=driver_config%iverbose)
   end if