Merge pull request #619 from jedwards4b/remove_shr_mpi_dependance

remove unneeded dependancy on shr_mpi_mod

Author: jedwards4b

cesm/nuopc_cap_share/shr_lnd2rof_tracers_mod.F90

@@ -5,13 +5,12 @@ module shr_lnd2rof_tracers_mod
   ! lnd -> river communications
   !========================================================================
 
-  use ESMF         , only : ESMF_VMGetCurrent, ESMF_VM, ESMF_VMGet
+  use ESMF         , only : ESMF_VMGetCurrent, ESMF_VM, ESMF_VMGet, ESMF_VMBroadcast
   use ESMF         , only : ESMF_LogFoundError, ESMF_LOGERR_PASSTHRU, ESMF_SUCCESS
   use shr_sys_mod  , only : shr_sys_abort
   use shr_log_mod  , only : shr_log_getLogUnit
   use shr_kind_mod , only : r8 => shr_kind_r8, cs => shr_kind_cs
   use shr_nl_mod   , only : shr_nl_find_group_name
-  use shr_mpi_mod  , only : shr_mpi_bcast
 
   implicit none
   private
@@ -34,7 +33,6 @@ subroutine shr_lnd2rof_tracers_readnl(NLFilename, lnd2rof_tracer_list)
 
     !----- local -----
     type(ESMF_VM)      :: vm
-    integer            :: i                      ! Indices
     integer            :: unitn                  ! namelist unit number
     integer            :: ierr                   ! error code
     logical            :: exists                 ! if file exists or not
@@ -84,8 +82,9 @@ subroutine shr_lnd2rof_tracers_readnl(NLFilename, lnd2rof_tracer_list)
           close( unitn )
        end if
     end if
-    call shr_mpi_bcast( lnd2rof_tracers, mpicom )
-
+    call ESMF_VMBroadcast(vm, lnd2rof_tracers, CS, 0, rc=rc)
+    if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, line=__LINE__, file=__FILE__)) return
+    
     if (lnd2rof_tracers /= ' ') then
        lnd2rof_tracer_list = trim(lnd2rof_tracers)
     end if