diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90 index 1ac91c3c2b8247c3fc48d6a176358570238f22db..c2e9afcee898e6b6c74cd0e69161fcbbbbd2f90d 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, &