Changeset 5185 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_interface.F90

Timestamp:

Sep 11, 2024, 4:27:07 PM (2 months ago)

Author:

abarral

Message:

Replace REPROBUS CPP KEY by logical using handmade wonky wrapper

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_interface.F90 (modified) (3 diffs)

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

@@ -83 +83 @@
 
     if (config%do_lw_aerosol_scattering &
-         & .and. .not. config%do_lw_cloud_scattering) then
+         & .AND. .not. config%do_lw_cloud_scattering) then
       write(nulerr, '(a)') '*** Error: longwave aerosol scattering requires longwave cloud scattering'
       call radiation_abort('Radiation configuration error')
@@ -114 +114 @@
     ! solver_lw as they will be needed.
     if (config%do_lw_cloud_scattering &
-         &  .and. config%i_solver_lw == ISolverMcICA) then
+         &  .AND. config%i_solver_lw == ISolverMcICA) then
       config%n_g_lw_if_scattering = config%n_g_lw
     end if
@@ -404 +404 @@
       ! a NetCDF file
       if (config%do_save_radiative_properties) then
-        if (istartcol == 1 .and. iendcol == ncol) then
+        if (istartcol == 1 .AND. iendcol == ncol) then
           rad_prop_file_name = rad_prop_base_file_name // ".nc"
         else