From aa98f7dcaa01454c004f94015ab521a6cab070a0 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Fri, 28 Jul 2023 10:27:37 +0200 Subject: [PATCH] Philippe 28/07/2023: ARCH_SRC: ported modification to POSNAM --- src/ARCH_SRC/MNHZ/prep_ideal_case.f90 | 14 +++++++------- src/ARCH_SRC/bug_pgi/open_nestpgd_files.f90 | 2 +- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/src/ARCH_SRC/MNHZ/prep_ideal_case.f90 b/src/ARCH_SRC/MNHZ/prep_ideal_case.f90 index 6609c8597..a1ee5ec17 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 dc7e466ef..7b19b2eb3 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(:) = ' ' ! -- GitLab