From 6c4b21ff28b848edf54b4a86202284640a33ed6e Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 12 Feb 2021 10:29:03 +0100
Subject: [PATCH] Philippe 12/02/2021: bugfix: change STATUS for opening files
containing flash information (NEW->UNKNOWN)
---
src/MNH/resolved_elecn.f90 | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/src/MNH/resolved_elecn.f90 b/src/MNH/resolved_elecn.f90
index de8136492..23a5f120e 100644
--- a/src/MNH/resolved_elecn.f90
+++ b/src/MNH/resolved_elecn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2009-2020 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.
@@ -171,7 +171,7 @@ END MODULE MODI_RESOLVED_ELEC_n
! 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 26/04/2019: replace non-standard FLOAT function by REAL function
-!
+! P. Wautelet 12/02/2021: bugfix: change STATUS for opening files containing flash information (NEW->UNKNOWN)
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -869,7 +869,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(TZFILE_FGEOM_DIAG,HPOSITION='APPEND',HSTATUS='NEW')
+ CALL IO_File_open(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*'
@@ -894,7 +894,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(TZFILE_FGEOM_COORD,HPOSITION='APPEND',HSTATUS='NEW')
+ CALL IO_File_open(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****'
@@ -913,7 +913,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(TZFILE_SERIES_CLOUD_ELEC,HPOSITION='APPEND',HSTATUS='NEW')
+ CALL IO_File_open(TZFILE_SERIES_CLOUD_ELEC,HPOSITION='APPEND',HSTATUS='UNKNOWN')
ILU = TZFILE_SERIES_CLOUD_ELEC%NLU
WRITE (UNIT=ILU, FMT='(A)') '----------------------------------------------------'
WRITE (UNIT=ILU, FMT='(A)') '********* RESULTS FROM of LSERIES_ELEC *************'
@@ -975,7 +975,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(TZFILE_LMA,HPOSITION='APPEND',HSTATUS='NEW')
+ CALL IO_File_open(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 ****'
--
GitLab