From 6f80893f458e2a647b4feeec61d26dc51b106e77 Mon Sep 17 00:00:00 2001 From: Juan Escobar <juan.escobar@aero.obs-mip.fr> Date: Wed, 20 Apr 2016 08:49:08 +0000 Subject: [PATCH] Juan 19/04/2016 : bypass , For pb IOZ/NETCDF , pretende alway 2 ( > 1 ) I/O processors for homogenus PGD files --- src/MNH/get_nb_procio_read_mnh.f90 | 10 ++++++---- src/MNH/get_nb_procio_write_mnh.f90 | 8 +++++--- 2 files changed, 11 insertions(+), 7 deletions(-) diff --git a/src/MNH/get_nb_procio_read_mnh.f90 b/src/MNH/get_nb_procio_read_mnh.f90 index b016a1cdd..0d5cec1c4 100644 --- a/src/MNH/get_nb_procio_read_mnh.f90 +++ b/src/MNH/get_nb_procio_read_mnh.f90 @@ -10,7 +10,7 @@ !! PURPOSE !! ------- !! call GET_NB_PROCIO_READ_MNH from SURFEX to get the number of processes used -!! for Iinput of file MODD_IO_SURF_MNH::CFILE in MESO-NH (defined by user in namelist) +!! for Input of file MODD_IO_SURF_MNH::CFILE in MESO-NH (defined by user in namelist) !! !!** METHOD !! ------ @@ -28,7 +28,8 @@ !! !! AUTHOR !! ------ -!! M. Moge *LA - UPS* 08/01/2016 +!! M. Moge *LA - UPS* 08/01/2016 +!! J. escobar 19/04/2016 : bypass , For pb IOZ/NETCDF , pretende alway 2 ( > 1 ) I/O processors for homogenus PGD files !! !! MODIFICATIONS !! ------------- @@ -64,7 +65,8 @@ YFNLFI=TRIM(ADJUSTL(CFILE))//'.lfi' ! TZFD=>GETFD(YFNLFI) IF (ASSOCIATED(TZFD)) THEN - KNB_PROCIO = TZFD%nb_procio +!!$ KNB_PROCIO = TZFD%nb_procio + KNB_PROCIO = 2 ELSE IRESP = -61 END IF @@ -76,4 +78,4 @@ IF (IRESP.NE.0) THEN END IF KRESP = IRESP ! - END SUBROUTINE GET_NB_PROCIO_READ_MNH \ No newline at end of file + END SUBROUTINE GET_NB_PROCIO_READ_MNH diff --git a/src/MNH/get_nb_procio_write_mnh.f90 b/src/MNH/get_nb_procio_write_mnh.f90 index 2e2d2695e..13df98f2d 100644 --- a/src/MNH/get_nb_procio_write_mnh.f90 +++ b/src/MNH/get_nb_procio_write_mnh.f90 @@ -28,7 +28,8 @@ !! !! AUTHOR !! ------ -!! M. Moge *LA - UPS* 08/01/2016 +!! M. Moge *LA - UPS* 08/01/2016 +!! J. escobar 19/04/2016 : bypass , For pb IOZ/NETCDF , pretende alway 2 ( > 1 ) I/O processors for homogenus PGD files !! !! MODIFICATIONS !! ------------- @@ -64,7 +65,8 @@ YFNLFI=TRIM(ADJUSTL(COUTFILE))//'.lfi' ! TZFD=>GETFD(YFNLFI) IF (ASSOCIATED(TZFD)) THEN - KNB_PROCIO = TZFD%nb_procio +!!$ KNB_PROCIO = TZFD%nb_procio + KNB_PROCIO = 2 ELSE IRESP = -61 END IF @@ -76,4 +78,4 @@ IF (IRESP.NE.0) THEN END IF KRESP = IRESP ! - END SUBROUTINE GET_NB_PROCIO_WRITE_MNH \ No newline at end of file + END SUBROUTINE GET_NB_PROCIO_WRITE_MNH -- GitLab