Changeset 5185 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/radiation_flux.F90

Timestamp:

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

Author:

abarral

Message:

Replace REPROBUS CPP KEY by logical using handmade wonky wrapper

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/radiation_flux.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/radiation_flux.F90

@@ -361 +361 @@
     if (lhook) call dr_hook('radiation_flux:calc_surface_spectral',0,hook_handle)
 
-    if (config%do_sw .and. config%do_surface_sw_spectral_flux) then
+    if (config%do_sw .AND. config%do_surface_sw_spectral_flux) then
 
       if (use_indexed_sum_vec) then
@@ -420 +420 @@
 
     ! Fluxes in bands required for canopy radiative transfer
-    if (config%do_sw .and. config%do_canopy_fluxes_sw) then
+    if (config%do_sw .AND. config%do_canopy_fluxes_sw) then
       if (config%use_canopy_full_spectrum_sw) then
         this%sw_dn_diffuse_surf_canopy(:,istartcol:iendcol) = this%sw_dn_diffuse_surf_g(:,istartcol:iendcol)
@@ -472 +472 @@
     end if ! do_canopy_fluxes_sw
 
-    if (config%do_lw .and. config%do_canopy_fluxes_lw) then
+    if (config%do_lw .AND. config%do_canopy_fluxes_lw) then
       if (config%use_canopy_full_spectrum_lw) then
         this%lw_dn_surf_canopy(:,istartcol:iendcol) = this%lw_dn_surf_g(:,istartcol:iendcol)