Add missing mpp_land_bcast_real8() subroutine

NCAR · Jan 26, 2022 · 0e2d472 · 0e2d472
1 parent 3120c84
commit 0e2d472
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 2 deletions.
diff --git 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
@@ -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