Juan 19/04/2016 : bypass , For pb IOZ/NETCDF , pretende alway 2 ( > 1 ) I/O processor...
authorJuan Escobar <juan.escobar@aero.obs-mip.fr>
Wed, 20 Apr 2016 08:49:08 +0000 (08:49 +0000)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Thu, 19 May 2016 14:44:49 +0000 (16:44 +0200)
src/MNH/get_nb_procio_read_mnh.f90
src/MNH/get_nb_procio_write_mnh.f90

index b016a1c..0d5cec1 100644 (file)
@@ -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
index 2e2d269..13df98f 100644 (file)
@@ -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