diff --git a/src/MNH/get_nb_procio_read_mnh.f90 b/src/MNH/get_nb_procio_read_mnh.f90 index b016a1cdd99dace6e2b2213c94ccc25506a92326..0d5cec1c4a1736ee86c7a7bf5ef01ccf80e3bbcd 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 2e2d2695e1ebdbe674de9f82d0a8cd146d559da3..13df98f2dcd7b9af068f7af43a7762551f62ee60 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