From 903f6e949509f0b84e5c5c72f318fdfd5e30e5b9 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Wed, 7 Jul 2021 15:02:52 +0200
Subject: [PATCH] Quentin 07/07/2021: bugfix remove tests-for-development code
---
src/MNH/ini_modeln.f90 | 6 ------
src/MNH/radiations.f90 | 8 --------
2 files changed, 14 deletions(-)
diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90
index f45f479b7..48b3a7348 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 87c377fdd..e0bda3fca 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
--
GitLab