Index: /LMDZ5/trunk/libf/phylmd/newmicro.F90
===================================================================
--- /LMDZ5/trunk/libf/phylmd/newmicro.F90	(revision 2595)
+++ /LMDZ5/trunk/libf/phylmd/newmicro.F90	(revision 2596)
@@ -17,4 +17,7 @@
   ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930910
   ! O.   Boucher (LMD/CNRS) mise a jour en 201212
+  ! I. Musat (LMD/CNRS) : prise en compte de la meme hypothese de recouvrement
+  !                       pour les nuages que pour le rayonnement rrtm via
+  !                       le parametre novlp de radopt.h : 20160721
   ! Objet: Calculer epaisseur optique et emmissivite des nuages
   ! ======================================================================
@@ -53,7 +56,10 @@
   include "radopt.h"
 
-  ! choix de l'hypothese de recouvrememnt nuageuse
-  LOGICAL random, maximum_random, maximum
-  PARAMETER (random=.FALSE., maximum_random=.TRUE., maximum=.FALSE.)
+  ! choix de l'hypothese de recouvrement nuageuse via radopt.h (IM, 19.07.2016)
+  ! !novlp=1: max-random
+  ! !novlp=2: maximum
+  ! !novlp=3: random
+! LOGICAL random, maximum_random, maximum
+! PARAMETER (random=.FALSE., maximum_random=.TRUE., maximum=.FALSE.)
 
   LOGICAL, SAVE :: first = .TRUE.
@@ -512,6 +518,6 @@
       reffclwtop(i) = 0.
       cldncl(i) = 0.
-      IF (random .OR. maximum_random) tcc(i) = 1.
-      IF (maximum) tcc(i) = 0.
+      IF (novlp.EQ.3 .OR. novlp.EQ.1) tcc(i) = 1.
+      IF (novlp.EQ.2) tcc(i) = 0.
     END DO
 
@@ -524,5 +530,5 @@
         IF (pcltau(i,k)>thres_tau .AND. pclc(i,k)>thres_neb) THEN
 
-          IF (maximum) THEN
+          IF (novlp.EQ.2) THEN
             IF (first) THEN
               WRITE (*, *) 'Hypothese de recouvrement: MAXIMUM'
@@ -533,5 +539,5 @@
           END IF
 
-          IF (random) THEN
+          IF (novlp.EQ.3) THEN
             IF (first) THEN
               WRITE (*, *) 'Hypothese de recouvrement: RANDOM'
@@ -542,5 +548,5 @@
           END IF
 
-          IF (maximum_random) THEN
+          IF (novlp.EQ.1) THEN
             IF (first) THEN
               WRITE (*, *) 'Hypothese de recouvrement: MAXIMUM_ &
@@ -567,5 +573,5 @@
       END DO ! loop over k
 
-      IF (random .OR. maximum_random) tcc(i) = 1. - tcc(i)
+      IF (novlp.EQ.3 .OR. novlp.EQ.1) tcc(i) = 1. - tcc(i)
 
     END DO ! loop over i
Index: /LMDZ5/trunk/libf/phylmd/rrtm/swr.F90
===================================================================
--- /LMDZ5/trunk/libf/phylmd/rrtm/swr.F90	(revision 2595)
+++ /LMDZ5/trunk/libf/phylmd/rrtm/swr.F90	(revision 2596)
@@ -192,5 +192,6 @@
     ZCLOUD(JL) = ZSS1(JL)
   ELSEIF (NOVLP == 2) THEN
-   stop 'provisoire pour verifier option novlp=1b'
+!IM150716  stop 'provisoire pour verifier option novlp=1b'
+   print*,'rrtm provisoire pour verifier option novlp=2 maximum'
 !* maximum
     ZCLOUD(JL) = MAX( ZSS1(JL) , ZCLOUD(JL) )
@@ -198,5 +199,6 @@
 !++MODIFCODE
   ELSEIF ((NOVLP == 3).OR.((NOVLP  >=  5).AND.(NOVLP /= 8))) THEN
-   stop 'provisoire pour verifier option novlp=1c'
+!IM150716  stop 'provisoire pour verifier option novlp=1c'
+    print*,'rrtm provisoire pour verifier option novlp=3 random'
 !--MODIFCODE
 !* random