Index: LMDZ6/trunk/libf/phylmd/radlwsw_m.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/radlwsw_m.F90	(revision 5665)
+++ LMDZ6/trunk/libf/phylmd/radlwsw_m.F90	(revision 5666)
@@ -679,5 +679,5 @@
        !===== iflag_rrtm ================================================
        !      
-       IF (iflag_rrtm == 0) THEN       ! remettre 0 juste pour tester l'ancien rayt via rrtm
+       test_iflag_rrtm: IF (iflag_rrtm == 0) THEN       ! remettre 0 juste pour tester l'ancien rayt via rrtm
           !
           !--- Mise a zero des tableaux output du rayonnement LW-AR4 ----------              
@@ -802,5 +802,5 @@
           ENDDO
           !
-       ELSE IF (iflag_rrtm == 1) then  
+       ELSE IF (iflag_rrtm == 1) then test_iflag_rrtm
 #ifdef CPP_RRTM
           !      if (prt_level.gt.10)write(lunout,*)'CPP_RRTM=.T.' 
@@ -1166,5 +1166,5 @@
           !======================================================================
           ! AI fev 2021
-       ELSE IF(iflag_rrtm == 2) THEN
+       ELSE IF(iflag_rrtm == 2) THEN test_iflag_rrtm
           print*,'Traitement cas iflag_rrtm = ',iflag_rrtm
           !    print*,'Mise a zero des flux '
@@ -1573,5 +1573,5 @@
           print*,'Fin traitement ECRAD'
           ! Fin ECRAD
-       ENDIF        ! iflag_rrtm
+       ENDIF test_iflag_rrtm
        ! ecrad
        !======================================================================