From a834ad3c427c3d54d107086bce4bd01a2c3dcf9b Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Wed, 16 Apr 2014 09:36:00 +0000
Subject: [PATCH] Juan 15/04/2014: add write to all Z files for all FMWRITX0_ll
variables
---
src/LIB/SURCOUCHE/src/fmwrit_ll.f90 | 34 +++++++++++++++++++++++++++--
1 file changed, 32 insertions(+), 2 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/fmwrit_ll.f90 b/src/LIB/SURCOUCHE/src/fmwrit_ll.f90
index dd14b8a95..648c175a6 100644
--- a/src/LIB/SURCOUCHE/src/fmwrit_ll.f90
+++ b/src/LIB/SURCOUCHE/src/fmwrit_ll.f90
@@ -217,6 +217,10 @@ CONTAINS
SUBROUTINE FMWRITX0_ll(HFILEM,HRECFM,HFIPRI,HDIR,PFIELD,KGRID,&
KLENCH,HCOMMENT,KRESP)
+!
+! Modification
+! J.Escobar 15/04/2014 : add write to all Z files for all FMWRITX0_ll variables
+!
USE MODD_IO_ll, ONLY : ISP,GSMONOPROC
USE MODD_FM
USE MODE_FD_ll, ONLY : GETFD,JPFINL,FD_LL
@@ -250,7 +254,12 @@ CONTAINS
TYPE(FD_ll), POINTER :: TZFD
INTEGER :: IRESP
TYPE(FMHEADER) :: TZFMH
-
+ !JUANZIO
+ INTEGER :: IK_FILE,IK_rank
+ CHARACTER(len=5) :: YK_FILE
+ CHARACTER(len=128) :: YFILE_IOZ
+ TYPE(FD_ll), POINTER :: TZFD_IOZ
+ !JUANZIO
!
!* 1.1 THE NAME OF LFIFM
!
@@ -318,7 +327,28 @@ CONTAINS
END IF
!
CALL MPI_BCAST(IRESP,1,MPI_INTEGER,TZFD%OWNER-1,TZFD%COMM,IERR)
- END IF
+ END IF ! multiprocessor execution
+ IF (TZFD%nb_procio.gt.1) THEN
+ ! write the data in all Z files
+ DO IK_FILE=1,TZFD%nb_procio
+ write(YK_FILE ,'(".Z",i3.3)') IK_FILE
+ YFILE_IOZ = TRIM(HFILEM)//YK_FILE//".lfi"
+ TZFD_IOZ => GETFD(YFILE_IOZ)
+ IK_RANK = TZFD_IOZ%OWNER
+ IF ( ISP == IK_RANK ) THEN
+ TZFMH%GRID=KGRID
+ TZFMH%COMLEN=KLENCH
+ 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)
+ END IF
+#else
+ CALL FM_WRIT_ll(TZFD_IOZ%FLU,HRECFM,.FALSE.,1,PFIELD,TZFMH,IRESP)
+#endif
+ END IF
+ END DO
+ ENDIF
ELSE
IRESP = -61
END IF
--
GitLab