From 8a4d0fd49fe9adf36dcd100bc453d08924d59fa8 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Tue, 13 Jul 2021 13:55:45 +0200
Subject: [PATCH] Quentin 13/07/2021: minor, abort if CCN_MODES in
NAM_PARAM_LIMA is not what expected
---
src/MNH/init_aerosol_properties.f90 | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/src/MNH/init_aerosol_properties.f90 b/src/MNH/init_aerosol_properties.f90
index dd7c56550..52f7ddc88 100644
--- a/src/MNH/init_aerosol_properties.f90
+++ b/src/MNH/init_aerosol_properties.f90
@@ -149,12 +149,14 @@ IF ( NMOD_CCN .GE. 1 ) THEN
RCCN(:) = (/ 0.01E-6 , 0.05E-6 , 0.008E-6 /)
LOGSIGCCN(:) = (/ 0.788 , 0.993 , 0.916 /)
RHOCCN(:) = (/ 1000. , 2200. , 1000. /)
- CASE DEFAULT
-! d'après Jaenicke 1993, aerosols troposphere libre, masse volumique typique
+ CASE ('FREETROP') ! d'après Jaenicke 1993, aerosols troposphere libre, masse volumique typique
RCCN(:) = (/ 0.0035E-6 , 0.125E-6 , 0.26E-6 /)
LOGSIGCCN(:) = (/ 0.645 , 0.253 , 0.425 /)
RHOCCN(:) = (/ 1000. , 1000. , 1000. /)
- ENDSELECT
+ CASE DEFAULT
+ call Print_msg(NVERB_FATAL,'GEN','INIT_AEROSOL_PROPERTIES','CCN_MODES must be JUNGFRAU, COPT, CAMS, CAMS_JPP,'// &
+ 'CAMS_ACC, CAMS_AIT, SIRTA, CPS00, MOCAGE or FREETROP')
+ ENDSELECT
!
DO I=1, MIN(NMOD_CCN,3)
XR_MEAN_CCN(I) = RCCN(I)
--
GitLab