Merge branch 'develop' into feature/no_wgrib2

Fixes ufs-community#591
GeorgeGayno-NOAA · Feb 11, 2022 · ede7c52 · ede7c52
2 parents 44d2696 + d1bdd10
commit ede7c52
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/sorc/chgres_cube.fd/input_data.F90 b/sorc/chgres_cube.fd/input_data.F90
@@ -3167,10 +3167,7 @@ subroutine read_input_atm_grib2_file(localpet)
 
  endif ! Read of dzdt
 
-! This variable needs to be availabe on all tasks. The original
-! code has a bug. To make comparisons easier, keep the bug 
-! for now.  Uncomment to fix bug.
-!call MPI_BCAST(conv_omega,1,MPI_LOGICAL,0,MPI_COMM_WORLD,rc)
+ call mpi_bcast(conv_omega,1,MPI_LOGICAL,0,MPI_COMM_WORLD,rc)
 
  if (localpet == 0) print*,"- CALL FieldScatter FOR INPUT DZDT."
  call ESMF_FieldScatter(dzdt_input_grid, dummy3d, rootpet=0, rc=rc)
@@ -3384,7 +3381,7 @@ subroutine read_input_atm_grib2_file(localpet)
                     farrayPtr=presptr, rc=rc)
   if(ESMF_logFoundError(rcToCheck=rc,msg=ESMF_LOGERR_PASSTHRU,line=__LINE__,file=__FILE__)) &
     call error_handler("IN FieldGet", rc)
-    
+
   call convert_omega(wptr,presptr,tptr,qptr,clb,cub)
 
  endif