diff --git a/src/MNH/ini_segn.f90 b/src/MNH/ini_segn.f90 index a5a3b07aa35f81ce2f930a356bc62e0fe0604d31..27b0371944b3abb8704768644995268c8fe34dcc 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 be813a80af861d29ce3fdf2f17818dca43c49861..2c71729d884b8ec91a113ffa59d15de72481bb08 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 d5afd54b514a4e731ed5c6cfb1993ffcc7b830cf..c83aa71855f2be9da4b9ea5369f7a0dc6c20f8fe 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)