Juan 19/04/2016 : bypass , For pb IOZ/NETCDF , pretende alway 2 ( > 1 ) I/O...

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,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
+  END SUBROUTINE GET_NB_PROCIO_READ_MNH
\ No newline at end of file

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
+  END SUBROUTINE GET_NB_PROCIO_WRITE_MNH
\ No newline at end of file