Changeset 5185 for LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.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/rrtm/rrtm_rtrn1a_140gp.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.F90

@@ -383 +383 @@
 !       & (1.0_JPRB - Z_CLDFRAC(I_LEV-1))   
 !    ENDIF
-     if(istcld(i_lev).ne.1.and.i_lev.ne.1) then
+     if(istcld(i_lev).ne.1.AND.i_lev.ne.1) then
         z_faccmb1(i_lev+1) = max(0.,min(z_cldfrac(i_lev+1)-z_cldfrac(i_lev), &
                z_cldfrac(i_lev-1)-z_cldfrac(i_lev)))
@@ -496 +496 @@
 !    Z_FACCMB2D(I_LEV-1) = Z_FACCLD1D(I_LEV-1) * Z_FACCLR2D(I_LEV) *&
 !     & (1.0_JPRB - Z_CLDFRAC(I_LEV+1))  
-    if (istcldd(i_lev).ne.1.and.i_lev.ne.1) then
+    if (istcldd(i_lev).ne.1.AND.i_lev.ne.1) then
        z_faccmb1d(i_lev-1) = max(0.,min(z_cldfrac(i_lev+1)-z_cldfrac(i_lev), &
                             z_cldfrac(i_lev-1)-z_cldfrac(i_lev)))