Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/radiation_spectral_definition.F90

    r5159 r5185  
    171171      find_wavenumber = 1
    172172      DO while (wavenumber > this%wavenumber2(find_wavenumber) &
    173            &    .and. find_wavenumber < this%nwav)
     173           &    .AND. find_wavenumber < this%nwav)
    174174        find_wavenumber = find_wavenumber + 1
    175175      end do
     
    250250          ! will be applicable
    251251          if (wavenumber(jwav) >= this%wavenumber1_band(jband) &
    252                & .and. wavenumber(jwav) <= this%wavenumber2_band(jband)) then
     252               & .AND. wavenumber(jwav) <= this%wavenumber2_band(jband)) then
    253253            if (jwav > 1) then
    254254              wavenum1 = max(this%wavenumber1_band(jband), &
     
    388388                 &       / (this%wavenumber2(isd1)-this%wavenumber1(isd1))
    389389          else
    390             if (isd2 >= 1 .and. isd2 <= this%nwav) then
     390            if (isd2 >= 1 .AND. isd2 <= this%nwav) then
    391391              ! Right part of triangle
    392392              weight(isd2) = weight(isd2) + 0.5_jprb * (wavenum2-this%wavenumber1(isd2))**2 &
     
    647647        wavenumber2_bound = 0.01_jprb / wavelength_bound(jint-1)
    648648        where (wavenumber_mid > wavenumber1_bound &
    649              & .and. wavenumber_mid <= wavenumber2_bound)
     649             & .AND. wavenumber_mid <= wavenumber2_bound)
    650650          i_input = i_intervals(jint)
    651651        end where
Note: See TracChangeset for help on using the changeset viewer.