Changeset 2462 for LMDZ5/trunk/libf/phylmd/rrtm

Timestamp:

Mar 10, 2016, 12:18:26 PM (9 years ago)

Author:

fhourdin

Message:

Bug fix
Pour eviter les depassement de tableaux.

File:

• LMDZ5/trunk/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.F90

@@ -383 +383 @@
 !       & (1.0_JPRB - Z_CLDFRAC(I_LEV-1))   
 !    ENDIF
-     if(istcld(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.0) 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)))