diff --git a/src/MNH/resolved_elecn.f90 b/src/MNH/resolved_elecn.f90 index b878c77397f46ef8e1cbb5661d87ca5776254598..b359b8e76e570564e2a874dfded349ce8a789959 100644 --- a/src/MNH/resolved_elecn.f90 +++ b/src/MNH/resolved_elecn.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 2009-2019 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2009-2021 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -169,7 +169,7 @@ END MODULE MODI_RESOLVED_ELEC_n ! P. Wautelet 10/01/2019: use NEWUNIT argument of OPEN ! P. Wautelet 22/01/2019: use standard FLUSH statement instead of non standard intrinsics ! P. Wautelet 14/03/2019: bugfix: correct management of files -!! +! P. Wautelet 12/02/2021: bugfix: change STATUS for opening files containing flash information (NEW->UNKNOWN) !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS @@ -854,7 +854,7 @@ IF (KTCOUNT==1 .AND. IPROC==0) THEN YASCFILE = CEXP//"_fgeom_diag.asc" TZFILE_FGEOM_DIAG => NULL() CALL IO_FILE_ADD2LIST(TZFILE_FGEOM_DIAG,YASCFILE,'TXT','WRITE') - CALL IO_FILE_OPEN_ll(TZFILE_FGEOM_DIAG,HPOSITION='APPEND',HSTATUS='NEW') + CALL IO_FILE_OPEN_ll(TZFILE_FGEOM_DIAG,HPOSITION='APPEND',HSTATUS='UNKNOWN') ILU = TZFILE_FGEOM_DIAG%NLU WRITE (UNIT=ILU, FMT='(A)') '--------------------------------------------------------' WRITE (UNIT=ILU, FMT='(A)') '*FLASH CHARACTERISTICS FROM FLASH_GEOM_ELEC*' @@ -879,7 +879,7 @@ IF (KTCOUNT==1 .AND. IPROC==0) THEN YASCFILE = CEXP//"_fgeom_coord.asc" TZFILE_FGEOM_COORD => NULL() CALL IO_FILE_ADD2LIST(TZFILE_FGEOM_COORD,YASCFILE,'TXT','WRITE') - CALL IO_FILE_OPEN_ll(TZFILE_FGEOM_COORD,HPOSITION='APPEND',HSTATUS='NEW') + CALL IO_FILE_OPEN_ll(TZFILE_FGEOM_COORD,HPOSITION='APPEND',HSTATUS='UNKNOWN') ILU = TZFILE_FGEOM_COORD%NLU WRITE (UNIT=ILU,FMT='(A)') '------------------------------------------' WRITE (UNIT=ILU,FMT='(A)') '*****FLASH COORD. FROM FLASH_GEOM_ELEC****' @@ -898,7 +898,7 @@ IF (KTCOUNT==1 .AND. IPROC==0) THEN YASCFILE = CEXP//"_series_cloud_elec.asc" TZFILE_SERIES_CLOUD_ELEC => NULL() CALL IO_FILE_ADD2LIST(TZFILE_SERIES_CLOUD_ELEC,YASCFILE,'TXT','WRITE') - CALL IO_FILE_OPEN_ll(TZFILE_SERIES_CLOUD_ELEC,HPOSITION='APPEND',HSTATUS='NEW') + CALL IO_FILE_OPEN_ll(TZFILE_SERIES_CLOUD_ELEC,HPOSITION='APPEND',HSTATUS='UNKNOW') ILU = TZFILE_SERIES_CLOUD_ELEC%NLU WRITE (UNIT=ILU, FMT='(A)') '----------------------------------------------------' WRITE (UNIT=ILU, FMT='(A)') '********* RESULTS FROM of LSERIES_ELEC *************' @@ -960,7 +960,7 @@ IF (LFLASH_GEOM .AND. LLMA) THEN IF ( IPROC .EQ. 0 ) THEN TZFILE_LMA => NULL() CALL IO_FILE_ADD2LIST(TZFILE_LMA,CLMA_FILE,'TXT','WRITE') - CALL IO_FILE_OPEN_ll(TZFILE_LMA,HPOSITION='APPEND',HSTATUS='NEW') + CALL IO_FILE_OPEN_ll(TZFILE_LMA,HPOSITION='APPEND',HSTATUS='UNKNOWN') ILU = TZFILE_LMA%NLU WRITE (UNIT=ILU,FMT='(A)') '----------------------------------------' WRITE (UNIT=ILU,FMT='(A)') '*** FLASH COORD. FROM LMA SIMULATOR ****'