remove ccpp_bcast in aerinterp.F90/read_netfaer_dl due to UFS hanging

Author: grantfirl

physics/MP/Morrison_Gettelman/aerinterp.F90

@@ -905,7 +905,6 @@ subroutine read_netfaer_dl(mpicomm, mpirank, mpiroot, fname, nf, iflip, nt, errm
       integer ierr
 
 !! ===================================================================
-      read_and_broadcast: if (mpirank==mpiroot) then
       allocate (buff(lonsaer, latsaer, levsw))
       allocate (pres_tmp(lonsaer, levsw))
       allocate (buffx(lonsaer, latsaer, levsw, 1))
@@ -997,10 +996,7 @@ subroutine read_netfaer_dl(mpicomm, mpirank, mpiroot, fname, nf, iflip, nt, errm
 
       deallocate (buff, pres_tmp)
       deallocate (buffx)
-      endif read_and_broadcast
 
-      call ccpp_bcast(aer_pres, mpiroot, mpicomm, ierr)
-      call ccpp_bcast(aerin,    mpiroot, mpicomm, ierr)
       END SUBROUTINE read_netfaer_dl
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
       subroutine read_netfaer(mpicomm, mpirank, mpiroot, nf, iflip, nt, errmsg, errflg)