Changeset 5185 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/radiation_ifs_rrtm.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_ifs_rrtm.F90 (modified) (2 diffs)

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

@@ -639 +639 @@
       DO jcol = istartcol,iendcol
         temperature = thermodynamics%temperature_hl(jcol,jlev+ilevoffset)
-        if (temperature < 339.0_jprb .and. temperature >= 160.0_jprb) then
+        if (temperature < 339.0_jprb .AND. temperature >= 160.0_jprb) then
           ! Linear interpolation between -113 and 66 degC
           ind(jcol)  = int(temperature - 159.0_jprb)
@@ -765 +765 @@
     DO jcol = istartcol,iendcol
       Tsurf = temperature(jcol)
-      if (Tsurf < 339.0_jprb .and. Tsurf >= 160.0_jprb) then
+      if (Tsurf < 339.0_jprb .AND. Tsurf >= 160.0_jprb) then
         ! Linear interpolation between -113 and 66 degC
         ind(jcol)  = int(Tsurf - 159.0_jprb)