diff --git a/src/ARCH_SRC/MNHZ/prep_ideal_case.f90 b/src/ARCH_SRC/MNHZ/prep_ideal_case.f90
index 6609c859788cc41565186a5f39ca44d6e12ebd05..a1ee5ec177fa4765aa0805452083832d8a29a851 100644
--- a/src/ARCH_SRC/MNHZ/prep_ideal_case.f90
+++ b/src/ARCH_SRC/MNHZ/prep_ideal_case.f90
@@ -594,22 +594,22 @@ CALL OPEN_ll(UNIT=NLUPRE,FILE=CEXPRE,IOSTAT=NRESP,ACTION='READ', &
 !*       3.2   read in NLUPRE the namelist informations
 !
 WRITE(NLUOUT,FMT=*) 'attempt to read ',TRIM(CEXPRE),' file'
-CALL POSNAM(NLUPRE,'NAM_REAL_PGD',GFOUND,NLUOUT)
+CALL POSNAM(NLUPRE,'NAM_REAL_PGD',GFOUND)
 IF (GFOUND) READ(UNIT=NLUPRE,NML=NAM_REAL_PGD)
 !
 !
-CALL POSNAM(NLUPRE,'NAM_CONF_PRE',GFOUND,NLUOUT)
+CALL POSNAM(NLUPRE,'NAM_CONF_PRE',GFOUND)
 IF (GFOUND) READ(UNIT=NLUPRE,NML=NAM_CONF_PRE)
-CALL POSNAM(NLUPRE,'NAM_GRID_PRE',GFOUND,NLUOUT)
+CALL POSNAM(NLUPRE,'NAM_GRID_PRE',GFOUND)
 IF (GFOUND) READ(UNIT=NLUPRE,NML=NAM_GRID_PRE)
-CALL POSNAM(NLUPRE,'NAM_GRIDH_PRE',GFOUND,NLUOUT)
+CALL POSNAM(NLUPRE,'NAM_GRIDH_PRE',GFOUND)
 IF (GFOUND) READ(UNIT=NLUPRE,NML=NAM_GRIDH_PRE)
-CALL POSNAM(NLUPRE,'NAM_VPROF_PRE',GFOUND,NLUOUT)
+CALL POSNAM(NLUPRE,'NAM_VPROF_PRE',GFOUND)
 IF (GFOUND) READ(UNIT=NLUPRE,NML=NAM_VPROF_PRE)
-CALL POSNAM(NLUPRE,'NAM_BLANK',GFOUND,NLUOUT)
+CALL POSNAM(NLUPRE,'NAM_BLANK',GFOUND)
 IF (GFOUND) READ(UNIT=NLUPRE,NML=NAM_BLANK)
 CALL READ_PRE_IDEA_NAM_n(NLUPRE,NLUOUT)
-CALL POSNAM(NLUPRE,'NAM_DUST_PRE',GFOUND,NLUOUT)
+CALL POSNAM(NLUPRE,'NAM_DUST_PRE',GFOUND)
 IF (GFOUND) READ(UNIT=NLUPRE,NML=NAM_DUST_PRE)
 !
 !
diff --git a/src/ARCH_SRC/bug_pgi/open_nestpgd_files.f90 b/src/ARCH_SRC/bug_pgi/open_nestpgd_files.f90
index dc7e466ef4abd8b692eba85401657477c46d6630..7b19b2eb3bc28943afeda488d414fc893be395b6 100644
--- a/src/ARCH_SRC/bug_pgi/open_nestpgd_files.f90
+++ b/src/ARCH_SRC/bug_pgi/open_nestpgd_files.f90
@@ -251,7 +251,7 @@ END DO
 !*       5.    NAMES OF OUTPUT PGD FILES
 !              -------------------------
 !
-CALL POSNAM(IPRE_NEST_PGD,'NAM_NEST_PGD',GFOUND,ILUOUT0)
+CALL POSNAM(IPRE_NEST_PGD,'NAM_NEST_PGD',GFOUND)
 IF (GFOUND) READ(UNIT=IPRE_NEST_PGD,NML=NAM_NEST_PGD)
 HNESTPGD(:) = '                            '
 !