diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90
index f45f479b7815d30043928905a0ba116ef4019c17..48b3a7348e239e3db4e139c6687184d781a7365c 100644
--- a/src/MNH/ini_modeln.f90
+++ b/src/MNH/ini_modeln.f90
@@ -2287,14 +2287,8 @@ CALL INI_LW_SETUP (CRAD,NLWB_MNH,XLW_BANDS)
 !
 XCCO2 = 360.0E-06 * 44.0E-03 / XMD
 #ifdef MNH_ECRAD
-#if ( VER_ECRAD == 101 )
 RCCO2 = 360.0E-06 * 44.0E-03 / XMD
 #endif
-#if ( VER_ECRAD == 140 )
-XCCO2 = 0.001*360.0E-06 * 44.0E-03 / XMD
-RCCO2 = 0.001*360.0E-06 * 44.0E-03 / XMD
-#endif
-#endif
 !
 !
 !*      17.2   Externalized surface fields
diff --git a/src/MNH/radiations.f90 b/src/MNH/radiations.f90
index 87c377fdd7570e48bc0e7ce28da5cb6311054e86..e0bda3fcab8d068a4574d5adb6c0baaf8d966406 100644
--- a/src/MNH/radiations.f90
+++ b/src/MNH/radiations.f90
@@ -711,11 +711,6 @@ DO JK=IKUP,KFLEV
   ZQVAVE(:,JK) = 0.5*( PSTATM(JK1,5)/PSTATM(JK1,4)+   &
                  PSTATM(JK2,5)/PSTATM(JK2,4)    )
 END DO
-#ifdef MNH_ECRAD
-#if ( VER_ECRAD == 140 )
-ZQVAVE(:,:) = 0.001*ZQVAVE(:,:)
-#endif
-#endif
 !
 !        2.1 pronostic water concentation fields (C2R2 coupling) 
 !
@@ -1161,8 +1156,6 @@ ELSE
      END DO
    ENDDO  
 END IF
-!PRINT*,"ZALBP",ZALBP
-!PRINT*,"ZALBD",ZALBD
 !
 !
 ! LW emissivity
@@ -1170,7 +1163,6 @@ ZEMIW(:,:)= ZEMIS(:,:)
 !
 !solar constant
 ZRII0= PCORSOL*XI0  ! solar constant multiplied by seasonal variations due to Earth-Sun distance
-!PRINT*,XI0
 !
 !
 !*       5.2   ACCOUNTS FOR THE CLEAR-SKY APPROXIMATION