From ab467a3a13b778f40b899a2775117371c4c86974 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Mon, 18 Dec 2023 18:40:40 +0100
Subject: [PATCH] Quentin 18/12/2023 minors, remove prints and update mesonh
filesToSupress (no need of ini_phyex)
---
src/mesonh/filesToSuppress.txt | 4 +++-
src/testprogs/rain_ice/main_rain_ice.F90 | 3 ---
2 files changed, 3 insertions(+), 4 deletions(-)
diff --git a/src/mesonh/filesToSuppress.txt b/src/mesonh/filesToSuppress.txt
index ee29ebd25..71a1b5ea2 100644
--- a/src/mesonh/filesToSuppress.txt
+++ b/src/mesonh/filesToSuppress.txt
@@ -1,6 +1,6 @@
#This file contains the source codes that must not be included
#for the model compilation. These codes already exist in the Meso-NH model
-#and are used outside of the physics
+#and are used outside of the physics, or are not useful for Meso-NH (i.e. for testsprogs only)
# must be written with lower case .f90 (because prep_code already transformed it)
aux/mode_msg.f90
@@ -20,6 +20,8 @@ aux/modi_gradient_u.f90
aux/modi_gradient_v.f90
aux/modi_gradient_w.f90
aux/mode_io_field_write.f90
+aux/modi_ini_phyex.f90
+aux/ini_phyex.f90
#old version of rain_ice
micro/mode_rain_ice_old_fast_rg.f90
diff --git a/src/testprogs/rain_ice/main_rain_ice.F90 b/src/testprogs/rain_ice/main_rain_ice.F90
index 31ce55e04..cce067f60 100644
--- a/src/testprogs/rain_ice/main_rain_ice.F90
+++ b/src/testprogs/rain_ice/main_rain_ice.F90
@@ -206,9 +206,6 @@ JBLK2 = (NGPBLKS * (ITID+1)) / NTID
YLSTACK%L = 0
YLSTACK%U = 0
#endif
-print*,"PHYEX%MISC%OELEC = ",PHYEX%MISC%OELEC
-print*,"PHYEX%MISC%OSEDIM_BEARD = ",PHYEX%MISC%OSEDIM_BEARD
-print*,"ZTHVREFZIKB = ",ZTHVREFZIKB
CALL RAIN_ICE (D, PHYEX%CST, PHYEX%PARAM_ICEN, PHYEX%RAIN_ICE_PARAMN, &
& PHYEX%RAIN_ICE_DESCRN, PHYEX%ELEC_PARAM, PHYEX%ELEC_DESCR, &
& PHYEX%MISC%TBUCONF, OELEC=PHYEX%MISC%OELEC, OSEDIM_BEARD=PHYEX%MISC%OSEDIM_BEARD, &
--
GitLab