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

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

@@ -202 +202 @@
       find_wavenumber = 1
       DO while (wavenumber > this%wavenumber2(find_wavenumber) &
-           &    .and. find_wavenumber < this%nwav)
+           &    .AND. find_wavenumber < this%nwav)
         find_wavenumber = find_wavenumber + 1
       end do
@@ -290 +290 @@
           ! will be applicable
           if (wavenumber(jwav) >= this%wavenumber1_band(jband) &
-               & .and. wavenumber(jwav) <= this%wavenumber2_band(jband)) then
+               & .AND. wavenumber(jwav) <= this%wavenumber2_band(jband)) then
             if (jwav > 1) then
               wavenum1 = max(this%wavenumber1_band(jband), &
@@ -432 +432 @@
                  &       / (this%wavenumber2(isd1)-this%wavenumber1(isd1))
           else
-            if (isd2 >= 1 .and. isd2 <= this%nwav) then
+            if (isd2 >= 1 .AND. isd2 <= this%nwav) then
               ! Right part of triangle
               weight(isd2) = weight(isd2) + 0.5_jprb * (wavenum2-this%wavenumber1(isd2))**2 &
@@ -696 +696 @@
         wavenumber2_bound = 0.01_jprb / wavelength_bound(jint-1)
         where (wavenumber_mid > wavenumber1_bound &
-             & .and. wavenumber_mid <= wavenumber2_bound)
+             & .AND. wavenumber_mid <= wavenumber2_bound)
           i_input = i_intervals(jint)
         end where