From a28e70d8b94ed112351647b6e5330dc1498057b5 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 15 Feb 2023 09:19:18 +0100
Subject: [PATCH] Philippe 15/02/2023: bugfix: namelist names provided to
POSNAM must be upper case
---
src/MNH/ini_segn.f90 | 2 +-
src/MNH/read_desfmn.f90 | 6 +++---
src/MNH/read_exsegn.f90 | 2 +-
3 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/src/MNH/ini_segn.f90 b/src/MNH/ini_segn.f90
index a5a3b07aa..27b037194 100644
--- a/src/MNH/ini_segn.f90
+++ b/src/MNH/ini_segn.f90
@@ -344,7 +344,7 @@ IF (CPROGRAM=='MESONH') THEN
IF (GFOUND) READ(UNIT=ILUSEG,NML=NAM_CONFIO)
CALL IO_Config_set()
! read Blaze namelist to get NREFINX and NREFINY before INI_FIELD_LIST
- CALL POSNAM(ILUSEG,'NAM_FIREn',GFOUND,ILUOUT)
+ CALL POSNAM(ILUSEG,'NAM_FIREN',GFOUND,ILUOUT)
IF (GFOUND) READ(UNIT=ILUSEG,NML=NAM_FIREn)
END IF
HINIFILEPGD=CINIFILEPGD_n
diff --git a/src/MNH/read_desfmn.f90 b/src/MNH/read_desfmn.f90
index be813a80a..2c71729d8 100644
--- a/src/MNH/read_desfmn.f90
+++ b/src/MNH/read_desfmn.f90
@@ -438,7 +438,7 @@ IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_CH_MNHCn)
CALL UPDATE_NAM_CH_MNHCn
END IF
-CALL POSNAM(ILUDES,'NAM_CH_SOLVERn',GFOUND)
+CALL POSNAM(ILUDES,'NAM_CH_SOLVERN',GFOUND)
CALL INIT_NAM_CH_SOLVERn
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_CH_SOLVERn)
@@ -468,7 +468,7 @@ IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_SERIESn)
CALL UPDATE_NAM_SERIESn
END IF
-CALL POSNAM(ILUDES,'NAM_BLOWSNOWn',GFOUND,ILUOUT)
+CALL POSNAM(ILUDES,'NAM_BLOWSNOWN',GFOUND,ILUOUT)
CALL INIT_NAM_BLOWSNOWn
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_BLOWSNOWn)
@@ -616,7 +616,7 @@ IF (KMI == 1) THEN
CALL POSNAM(ILUDES,'NAM_FOREFIRE',GFOUND,ILUOUT)
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_FOREFIRE)
#endif
- CALL POSNAM(ILUDES,'NAM_FIREn',GFOUND,ILUOUT)
+ CALL POSNAM(ILUDES,'NAM_FIREN',GFOUND,ILUOUT)
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_FIREn)
CALL POSNAM(ILUDES,'NAM_CONDSAMP',GFOUND,ILUOUT)
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_CONDSAMP)
diff --git a/src/MNH/read_exsegn.f90 b/src/MNH/read_exsegn.f90
index d5afd54b5..c83aa7185 100644
--- a/src/MNH/read_exsegn.f90
+++ b/src/MNH/read_exsegn.f90
@@ -852,7 +852,7 @@ IF (KMI == 1) THEN
IF (GFOUND) READ(UNIT=ILUSEG,NML=NAM_2D_FRC)
CALL POSNAM(ILUSEG,'NAM_LATZ_EDFLX',GFOUND)
IF (GFOUND) READ(UNIT=ILUSEG,NML=NAM_LATZ_EDFLX)
- CALL POSNAM(ILUSEG,'NAM_FIREn',GFOUND,ILUOUT)
+ CALL POSNAM(ILUSEG,'NAM_FIREN',GFOUND,ILUOUT)
IF (GFOUND) READ(UNIT=ILUSEG,NML=NAM_FIREn)
CALL POSNAM(ILUSEG,'NAM_BLOWSNOW',GFOUND,ILUOUT)
IF (GFOUND) READ(UNIT=ILUSEG,NML=NAM_BLOWSNOW)
--
GitLab