From 6fad7c495ced4647a521f395ca8c7e2bc28f1980 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Mon, 23 Jun 2014 14:25:11 +0000
Subject: [PATCH] Juan 23/06/2014 : bug , replace .FALSE. to .TRUE. = OREAL
type transmetted to FM_WRIT_ll
---
src/LIB/SURCOUCHE/src/fmwrit_ll.f90 | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/fmwrit_ll.f90 b/src/LIB/SURCOUCHE/src/fmwrit_ll.f90
index 648c175a6..cd37f28c0 100644
--- a/src/LIB/SURCOUCHE/src/fmwrit_ll.f90
+++ b/src/LIB/SURCOUCHE/src/fmwrit_ll.f90
@@ -220,6 +220,7 @@ CONTAINS
!
! Modification
! J.Escobar 15/04/2014 : add write to all Z files for all FMWRITX0_ll variables
+! J.Escobar 23/06/2014 : bug , replace .FALSE. to .TRUE. = OREAL type transmetted to FM_WRIT_ll
!
USE MODD_IO_ll, ONLY : ISP,GSMONOPROC
USE MODD_FM
@@ -341,10 +342,10 @@ CONTAINS
TZFMH%COMMENT=HCOMMENT
#ifdef MNH_NCWRIT
IF ( DEF_NC .AND. LLFIFM ) THEN
- CALL FM_WRIT_ll(TZFD_IOZ%FLU,HRECFM,.FALSE.,1,PFIELD,TZFMH,IRESP)
+ CALL FM_WRIT_ll(TZFD_IOZ%FLU,HRECFM,.TRUE.,1,PFIELD,TZFMH,IRESP)
END IF
#else
- CALL FM_WRIT_ll(TZFD_IOZ%FLU,HRECFM,.FALSE.,1,PFIELD,TZFMH,IRESP)
+ CALL FM_WRIT_ll(TZFD_IOZ%FLU,HRECFM,.TRUE.,1,PFIELD,TZFMH,IRESP)
#endif
END IF
END DO
--
GitLab