Bug fix of openning flux file for parallel netcdf read. (NOAA-EMC#75)

lgannoaa · Feb 14, 2020 · 28fcb61 · 28fcb61
1 parent 6d74f35
commit 28fcb61
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f b/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f
@@ -840,8 +840,8 @@ SUBROUTINE INITPOST_GFS_NETCDF_PARA(ncid3d)
       deallocate(recname)
 
 ! open flux file
-      Status = nf90_open(trim(fileNameFlux),NF90_NOWRITE, ncid2d)
-
+      Status = nf90_open(trim(fileNameFlux),ior(nf90_nowrite, nf90_mpiio), &
+                         ncid2d,comm=mpi_comm_world,info=mpi_info_null) 
       if ( Status /= 0 ) then
         print*,'error opening ',fileNameFlux, ' Status = ', Status
         print*,'skip reading of flux file'