From 5b8432a4ddf80db8d0a9eeda7da91b47af62eddd Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 2 May 2017 11:11:26 +0200
Subject: [PATCH] Philippe 02/05/2017: IO: bug correction: write in correct
file + add header
---
src/MNH/prep_ideal_case.f90 | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90
index edaa146d6..bc6f8c9d8 100644
--- a/src/MNH/prep_ideal_case.f90
+++ b/src/MNH/prep_ideal_case.f90
@@ -576,7 +576,7 @@ REAL :: ZZS_MAX, ZZS_MAX_ll
INTEGER :: IJPHEXT
!
TYPE(TFILEDATA),TARGET :: TZFILE
-TYPE(TFILEDATA) :: TZINIFILEPGD
+TYPE(TFILEDATA),TARGET :: TZINIFILEPGD
!
!
!* 0.2 Namelist declarations
@@ -1782,6 +1782,8 @@ TZFILE%NLFIVERB = NVERB
!
CALL IO_FILE_OPEN_ll(TZFILE,CLUOUT,NRESP)
!
+CALL IO_WRITE_HEADER(TZFILE,CLUOUT)
+!
CALL WRITE_DESFM_n(1,CDESFM,CLUOUT)
!
CALL WRITE_LFIFM_n(TZFILE,' ') ! There is no DAD model for PREP_IDEAL_CASE
@@ -1866,7 +1868,9 @@ IF (CSURF =='EXTE') THEN
CALL IO_WRITE_FIELD(TZINIFILEPGD,'L2D', CLUOUT,IRESP,L2D)
CALL IO_WRITE_FIELD(TZINIFILEPGD,'PACK',CLUOUT,IRESP,LPACK)
CALL WRITE_HGRID(1,TZINIFILEPGD)
+ TFILE_SURFEX => TZINIFILEPGD
CALL WRITE_PGD_SURF_ATM_n(YSURF_CUR,'MESONH')
+ NULLIFY(TFILE_SURFEX)
CSTORAGE_TYPE='TT'
ENDIF
!
--
GitLab