From 0e2d47251a899b55c303eb43f87672af1a496e75 Mon Sep 17 00:00:00 2001
From: Ryan Cabell <rcabell@ucar.edu>
Date: Wed, 26 Jan 2022 16:06:18 -0700
Subject: [PATCH] Add missing mpp_land_bcast_real8() subroutine

---
 trunk/NDHMS/MPP/mpp_land.F            | 11 +++++++++++
 trunk/NDHMS/Routing/module_HYDRO_io.F |  3 +--
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/trunk/NDHMS/MPP/mpp_land.F b/trunk/NDHMS/MPP/mpp_land.F
index cbcd3f61e..bb95ff676 100644
--- a/trunk/NDHMS/MPP/mpp_land.F
+++ b/trunk/NDHMS/MPP/mpp_land.F
@@ -1096,6 +1096,17 @@ subroutine mpp_land_bcast_real(size1,inout)
     return
   end subroutine mpp_land_bcast_real
 
+  subroutine mpp_land_bcast_real8(size1,inout)
+      integer size1
+      ! real inout(size1)
+      real*8 , dimension(:) :: inout
+      integer ierr, len
+        call mpi_bcast(inout,size1,MPI_REAL8,   &
+            IO_id,HYDRO_COMM_WORLD,ierr)
+        call mpp_land_sync()
+    return
+  end subroutine mpp_land_bcast_real8
+
   subroutine mpp_land_bcast_int2d(inout)
       integer length1, k,length2
       integer inout(:,:)
diff --git a/trunk/NDHMS/Routing/module_HYDRO_io.F b/trunk/NDHMS/Routing/module_HYDRO_io.F
index c091b2777..988bf1344 100644
--- a/trunk/NDHMS/Routing/module_HYDRO_io.F
+++ b/trunk/NDHMS/Routing/module_HYDRO_io.F
@@ -7167,8 +7167,7 @@ subroutine read_rst_crt_nc(ncid,var,n,varStr)
 #ifdef MPP_LAND
          endif
          if(n .gt. 0) then
-             call mpp_land_bcast(var)
-             !call mpp_land_bcast_real(n,var)
+             call mpp_land_bcast_real8(n,var)
 
          endif
 #endif