Changeset 5185 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ecckd_interface.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/radiation/radiation_ecckd_interface.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ecckd_interface.F90

@@ -39 +39 @@
     if (lhook) call dr_hook('radiation_ecckd_interface:setup_gas_optics',0,hook_handle)
 
-    if (config%do_sw .and. config%i_gas_model_sw == IGasModelECCKD) then
+    if (config%do_sw .AND. config%i_gas_model_sw == IGasModelECCKD) then
 
       ! Read shortwave ecCKD gas optics NetCDF file
@@ -84 +84 @@
     end if
 
-    if (config%do_lw .and. config%i_gas_model_lw == IGasModelECCKD) then
+    if (config%do_lw .AND. config%i_gas_model_lw == IGasModelECCKD) then
 
       ! Read longwave ecCKD gas optics NetCDF file
@@ -255 +255 @@
     end if
     
-    if (config%do_sw .and. config%i_gas_model_sw == IGasModelECCKD) then
+    if (config%do_sw .AND. config%i_gas_model_sw == IGasModelECCKD) then
 
       if (is_volume_mixing_ratio) then
@@ -293 +293 @@
     end if
 
-    if (config%do_lw .and. config%i_gas_model_lw == IGasModelECCKD) then
+    if (config%do_lw .AND. config%i_gas_model_lw == IGasModelECCKD) then
 
       if (is_volume_mixing_ratio) then