Juan 19/04/2016 : Pb IOZ/NETCDF , missing OPARALLELIO=.FALSE. for PGD files
authorJuan Escobar <juan.escobar@aero.obs-mip.fr>
Wed, 20 Apr 2016 08:49:40 +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/ini_modeln.f90
src/MNH/ini_size_spawn.f90
src/MNH/mnhclose_aux_io_surf.f90
src/MNH/mnhopen_aux_io_surf.f90
src/MNH/modeln.f90
src/MNH/open_nestpgd_files.f90
src/MNH/open_prc_files.f90
src/MNH/prep_nest_pgd.f90
src/MNH/spawning.f90

index c6ab8f6..47e7df0 100644 (file)
@@ -264,6 +264,7 @@ END MODULE MODI_INI_MODEL_n
 !!                   Dec 2014 (C.Lac) : For reproducibility START/RESTA
 !!                   J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 
 !!       V. Masson     Feb 2015 replaces, for aerosols, cover fractions by sea, town, bare soil fractions
+!!                   J.Escobar : 19/04/2016 : Pb IOZ/NETCDF , missing OPARALLELIO=.FALSE. for PGD files
 !---------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -1879,7 +1880,7 @@ END IF
 IF (CSURF=='EXTE' .AND. (CPROGRAM=='MESONH' .OR. CPROGRAM=='DIAG  ')) THEN
   ! ouverture du fichier PGD
   IF  ( LEN_TRIM(CINIFILEPGD) > 0 ) THEN
-    CALL FMOPEN_ll(CINIFILEPGD,'READ',HLUOUT,0,2,NVERB,ININAR,IRESP) 
+    CALL FMOPEN_ll(CINIFILEPGD,'READ',HLUOUT,0,2,NVERB,ININAR,IRESP,OPARALLELIO=.FALSE.
     IF (IRESP/=0) THEN
       WRITE(ILUOUT,FMT=*) "INI_MODEL_n ERROR TO OPEN THE FILE CINIFILEPGD=",CINIFILEPGD
       WRITE(ILUOUT,FMT=*) "CHECK YOUR NAMELIST NAM_LUNITn"
@@ -1918,7 +1919,7 @@ ELSE
 END IF
 IF (CSURF=='EXTE' .AND. (CPROGRAM=='SPAWN ')) THEN
   ! ouverture du fichier PGD
-  CALL FMOPEN_ll(CINIFILEPGD,'READ',HLUOUT,0,2,NVERB,ININAR,IRESP) 
+  CALL FMOPEN_ll(CINIFILEPGD,'READ',HLUOUT,0,2,NVERB,ININAR,IRESP,OPARALLELIO=.FALSE.
   IF (IRESP/=0) THEN
     WRITE(ILUOUT,FMT=*) "INI_MODEL_n ERROR TO OPEN THE FILE CINIFILEPGD=",CINIFILEPGD
     WRITE(ILUOUT,FMT=*) "CHECK YOUR NAMELIST NAM_LUNIT2_SPA"
index 78be2fd..b0a1712 100644 (file)
@@ -67,7 +67,8 @@ END MODULE MODI_INI_SIZE_SPAWN
 !!         M.Faivre  2014
 !!         M.Moge    07/2015  bug fix : files opened multiple times
 !!         M.Moge    08/2015  bug fix : turning the special case for // case into general case in part 1.4
-!!   J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1
+!!         J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1
+!!         J.Escobar : 19/04/2016 : Pb IOZ/NETCDF , missing OPARALLELIO=.FALSE. for PGD files
 !-------------------------------------------------------------------------------
 !
 !*       0.     DECLARATIONS
@@ -268,7 +269,7 @@ IF (LEN_TRIM(CDOMAIN)>0) THEN
 ! initialize grid2 dims, xor, xend and ratio so to initialize in INI_CHILD 
 ! structures TCRRT_COMDATA%T_CHILDREN%T_SPLITB and TCRRT_PROCONF%T_CHILDREN
 !$20140602 add condition on npproc
-  CALL FMOPEN_ll(CDOMAIN,'READ',CLUOUT,0,2,NVERB,ININAR,IRESP)
+  CALL FMOPEN_ll(CDOMAIN,'READ',CLUOUT,0,2,NVERB,ININAR,IRESP,OPARALLELIO=.FALSE.)
   !
   YDIR='--'
   CALL FMREAD(CDOMAIN,'DXRATIO',CLUOUT,YDIR,NDXRATIO,IGRID,ILENCH,YCOMMENT,IRESP)
@@ -277,7 +278,7 @@ IF (LEN_TRIM(CDOMAIN)>0) THEN
   CALL FMREAD(CDOMAIN,'YOR',CLUOUT,YDIR,NYOR,IGRID,ILENCH,YCOMMENT,IRESP)
   CALL FMREAD(CDOMAIN,'IMAX',CLUOUT,YDIR,IIMAX_ll,IGRID,ILENCH,YCOMMENT,IRESP)
   CALL FMREAD(CDOMAIN,'JMAX',CLUOUT,YDIR,IJMAX_ll,IGRID,ILENCH,YCOMMENT,IRESP)
-  CALL FMCLOS_ll(CDOMAIN,'KEEP',CLUOUT,IRESP)
+  CALL FMCLOS_ll(CDOMAIN,'KEEP',CLUOUT,IRESP,OPARALLELIO=.FALSE.)
   NXEND=NXOR+IIMAX_ll/NDXRATIO+2*JPHEXT-1
   NYEND=NYOR+IJMAX_ll/NDYRATIO+2*JPHEXT-1
   !
@@ -341,9 +342,9 @@ IF (LEN_TRIM(CDOMAIN)>0) THEN
 !
 !*     1.4   read grid in file CDOMAIN if available :
 !
-  CALL FMOPEN_ll(CDOMAIN,'READ',CLUOUT,0,2,NVERB,ININAR,IRESP)
+  CALL FMOPEN_ll(CDOMAIN,'READ',CLUOUT,0,2,NVERB,ININAR,IRESP,OPARALLELIO=.FALSE.)
   CALL READ_HGRID(2,CDOMAIN,YMY_NAME,YDAD_NAME,YSTORAGE_TYPE)
-  CALL FMCLOS_ll(CDOMAIN,'KEEP',CLUOUT,IRESP)
+  CALL FMCLOS_ll(CDOMAIN,'KEEP',CLUOUT,IRESP,OPARALLELIO=.FALSE.)
   CALL RETRIEVE1_NEST_INFO_n(1,2,NXOR,NYOR,NXSIZE,NYSIZE,NDXRATIO,NDYRATIO)
   DEALLOCATE(XZS,XZSMT,XXHAT,XYHAT)
 !
index dcdeac6..c1f9963 100644 (file)
@@ -53,6 +53,7 @@ END MODULE MODI_MNHCLOSE_AUX_IO_SURF
 !!    MODIFICATIONS
 !!    -------------
 !!      Original    09/2003 
+!!      J.Escobar : 19/04/2016 : Pb IOZ/NETCDF , missing OPARALLELIO=.FALSE. for PGD files
 !-------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -81,7 +82,7 @@ INTEGER           :: IRESP          ! return-code if a problem appears
 !-------------------------------------------------------------------------------
 !
 IF (CACTION=='OPEN  ') THEN
-  CALL FMCLOS_ll(HFILE,'KEEP',COUT,IRESP)
+  CALL FMCLOS_ll(HFILE,'KEEP',COUT,IRESP,OPARALLELIO=.FALSE.)
   CACTION='      '
 END IF
 !
index 8186641..7999a4e 100644 (file)
@@ -48,7 +48,8 @@ END MODULE MODI_MNHOPEN_AUX_IO_SURF
 !!    -------------
 !!      Original    09/2003 
 !!         M.Moge   04/2015  parallelization og PREP_PGD on son model
-!!   J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 
+!!         J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 
+!!         J.Escobar : 19/04/2016 : Pb IOZ/NETCDF , missing OPARALLELIO=.FALSE. for PGD files
 !-------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -121,7 +122,7 @@ IF (LEN_TRIM(CACTION)>0) THEN
 END IF
 !
 IF (HFILE/=COUTFMFILE .AND. HFILE/=CPGDFILE) THEN
-  CALL FMOPEN_ll(HFILE,'READ',COUT,0,2,5,ININAR,IRESP)
+  CALL FMOPEN_ll(HFILE,'READ',COUT,0,2,5,ININAR,IRESP,OPARALLELIO=.FALSE.)
   CACTION = 'OPEN  '
 END IF
 !
index a8fcfa6..4e8b927 100644 (file)
@@ -234,7 +234,8 @@ END MODULE MODI_MODEL_n
 !!       C.Lac    11/09/2015: correction of the budget due to FIT temporal scheme
 !!      J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1
 !!                   Sep 2015 (S. Bielli) : Remove YDADFILE from argument call 
-!                              of write_phys_param
+!!                              of write_phys_param
+!!      J.Escobar : 19/04/2016 : Pb IOZ/NETCDF , missing OPARALLELIO=.FALSE. for PGD files
 !!-------------------------------------------------------------------------------
 !
 !*       0.     DECLARATIONS
@@ -2037,7 +2038,7 @@ IF (OEXIT) THEN
   CALL FMCLOS_ll(CFMDIAC,'KEEP',CLUOUT,IRESP)
   !
   CALL FMCLOS_ll(CINIFILE,'KEEP',CLUOUT,IRESP)
-  IF (CSURF=="EXTE") CALL FMCLOS_ll(CINIFILEPGD,'KEEP',CLUOUT,IRESP)
+  IF (CSURF=="EXTE") CALL FMCLOS_ll(CINIFILEPGD,'KEEP',CLUOUT,IRESP,OPARALLELIO=.FALSE.)
 !
 !*       28.1   print statistics!
 !
index 2875839..7d83dcd 100644 (file)
@@ -67,6 +67,7 @@ END MODULE MODI_OPEN_NESTPGD_FILES
 !!                   11/2015 (M.Moge) disable the creation of files on multiple 
 !!                                 Z-levels when using parallel IO for PREP_PGD
 !!                   01/2016 (M.Moge) Bug fix : open the output file using Z-parallel IO
+!!                   J.Escobar : 19/04/2016 : Pb IOZ/NETCDF , missing OPARALLELIO=.FALSE. for PGD files
 !-------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -314,7 +315,7 @@ CALL CLOSE_ll(HPRE_NEST_PGD)
 !
 DO JPGD=1,NMODEL
   CALL FMOPEN_ll(HPGD(JPGD),'READ',CLUOUT0,0,2,NVERB,ININAR,IRESP,OPARALLELIO=.FALSE.)
-  CALL FMOPEN_ll(HNESTPGD(JPGD),'WRITE',CLUOUT0,0,1,NVERB,ININAR,IRESP)
+  CALL FMOPEN_ll(HNESTPGD(JPGD),'WRITE',CLUOUT0,0,1,NVERB,ININAR,IRESP,OPARALLELIO=.FALSE.)
 END DO
 !
 !-------------------------------------------------------------------------------
index 587f257..9b9025d 100644 (file)
@@ -88,6 +88,7 @@ END MODULE MODI_OPEN_PRC_FILES
 !!                            (V. Masson)
 !!      Modification 15/10/01 allow namelists in different orders (I. Mallet)
 !!      J.ESCOBAR    12/11/2008  Improve checking --> add STATUS=OLD in open_ll(PRE_REAL1.nam,...
+!!      J.Escobar : 19/04/2016 : Pb IOZ/NETCDF , missing OPARALLELIO=.FALSE. for PGD files
 !-------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -262,7 +263,7 @@ ELSE
 !*       5.    OPENNING THE PHYSIOGRAPHIC DATA FILE
 !              ------------------------------------
 !
-  CALL FMOPEN_ll(HPGDFILE,'READ',CLUOUT0,0,2,NVERB,ININAR,IRESP)
+  CALL FMOPEN_ll(HPGDFILE,'READ',CLUOUT0,0,2,NVERB,ININAR,IRESP,OPARALLELIO=.FALSE.)
   IF (IRESP/=0) THEN
     WRITE(ILUOUT0,*) 'STOP: problem during opening of PGD file ',HPGDFILE
 !callabortstop
index 5393c8b..a377c30 100644 (file)
@@ -90,7 +90,8 @@
 !!                  30/07/97 (Masson) split of mode_lfifm_pgd
 !!                  2014 (M.Faivre)
 !!                  06/2015 (M.Moge) parallelization 
-!!   J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 
+!!      J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 
+!!      J.Escobar : 19/04/2016 : Pb IOZ/NETCDF , missing OPARALLELIO=.FALSE. for PGD files
 !-------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -416,8 +417,8 @@ END DO
 !              --------------------
 !
 DO JPGD=1,NMODEL
-  CALL FMCLOS_ll(CPGD    (JPGD),'KEEP',CLUOUT0,IRESP)
-  CALL FMCLOS_ll(CNESTPGD(JPGD),'KEEP',CLUOUT0,IRESP)
+  CALL FMCLOS_ll(CPGD    (JPGD),'KEEP',CLUOUT0,IRESP,OPARALLELIO=.FALSE.)
+  CALL FMCLOS_ll(CNESTPGD(JPGD),'KEEP',CLUOUT0,IRESP,OPARALLELIO=.FALSE.)
 END DO
 !
 !* loop to spare enough time to transfer commands before end of program
index 8840dde..c4a50e1 100644 (file)
@@ -72,6 +72,7 @@
 !!      Modification 19/03/2008 (J.Escobar) rename INIT to INIT_MNH --> grib problem
 !!      Modification 05/02/2015 (M.Moge) read namelist NAM_CONFZ, before INIT_MNH
 !!      J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 
+!!      J.Escobar : 19/04/2016 : Pb IOZ/NETCDF , missing OPARALLELIO=.FALSE. for PGD files
 !-------------------------------------------------------------------------------
 !
 !*       0.     DECLARATIONS
@@ -198,7 +199,7 @@ CALL CLOSE_ll(YEXSPA)
 CALL INIT_MNH
 !
 CALL FMCLOS_ll(CINIFILE,'KEEP',CLUOUT,IRESP)
-CALL FMCLOS_ll(CINIFILEPGD,'KEEP',CLUOUT,IRESP)
+CALL FMCLOS_ll(CINIFILEPGD,'KEEP',CLUOUT,IRESP,OPARALLELIO=.FALSE.)
 !-------------------------------------------------------------------------------
 !
 !*       4.    INITIALIZATION OF OUTER POINTS OF MODEL 1