remove ccpp_bcast from aerinterp.F90/read_netfaer that causes hanging UFS RTs

Author: grantfirl

physics/MP/Morrison_Gettelman/aerinterp.F90

@@ -586,6 +586,8 @@ SUBROUTINE read_aerdataf (mpicomm, mpirank, mpiroot, iflip, idate, FHOUR, errmsg
       integer, allocatable  :: invardims(:)
 !
       if (.not. allocated(aerin)) then
+        !GJF - put print statement in here to see what each MPI task does?
+        
         allocate(aerin(iamin:iamax,jamin:jamax,levsaer,ntrcaerm,timeaer))
         allocate(aer_pres(iamin:iamax,jamin:jamax,levsaer,timeaer))
       endif
@@ -1019,7 +1021,6 @@ subroutine read_netfaer(mpicomm, mpirank, mpiroot, nf, iflip, nt, errmsg, errflg
       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))
@@ -1111,10 +1112,7 @@ subroutine read_netfaer(mpicomm, mpirank, mpiroot, nf, iflip, nt, errmsg, errflg
       endif
       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
 
 end module aerinterp