From 28fcb61d1184a09d722f94276600f8d1a9040adb Mon Sep 17 00:00:00 2001
From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com>
Date: Fri, 14 Feb 2020 09:12:03 -0500
Subject: [PATCH] Bug fix of openning flux file for parallel netcdf read. (#75)

---
 sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f b/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f
index c03c4f651d..6a919e738c 100644
--- 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'