From 5c442691faf6fc3e208f867d528b55d54021aacc Mon Sep 17 00:00:00 2001
From: JorisP <pianezze.joris@gmail.com>
Date: Tue, 3 Oct 2023 14:22:52 +0200
Subject: [PATCH] Add NVERB to OASIS print
---
src/MNH/ini_modeln.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90
index 1ac91c3c2..c2e9afcee 100644
--- a/src/MNH/ini_modeln.f90
+++ b/src/MNH/ini_modeln.f90
@@ -2581,7 +2581,7 @@ IF (CSURF=='EXTE' .AND. (CPROGRAM=='MESONH' .OR. CPROGRAM=='DIAG ')) THEN
CALL GOTO_SURFEX(KMI)
#ifdef CPLOASIS
CALL SFX_OASIS_READ_NAM(CPROGRAM,XTSTEP)
- WRITE(*,*) 'SFX-OASIS: READ NAM_SFX_SEA_CPL OK'
+ IF (NVERB .GE. 5) WRITE(ILUOUT,FMT=*) 'SFX-OASIS: READ NAM_SFX_SEA_CPL OK'
#endif
!* initialization of surface
CALL INIT_GROUND_PARAM_n ('ALL',SIZE(CSV),CSV,ZCO2, &
--
GitLab