Philippe 15/02/2023: bugfix: namelist names provided to POSNAM must be upper case

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

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)

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)