global input in this scatter function (first argument) has lbound and ubound specification and arrays on task complain. For this scatter function, global array in a root node has proper values but array on other tasks do not. The global array is declared with a size. so why this global array is not recognized on other tasks?
|
call shr_mpi_scatterV(segId (nRch_mainstem+1:nRch_in), rch_per_proc(0:nNodes-1), segId_local, ierr, cmessage) |
|
call shr_mpi_scatterV(downSegId(nRch_mainstem+1:nRch_in), rch_per_proc(0:nNodes-1), downSegId_local, ierr, cmessage) |
|
call shr_mpi_scatterV(slope (nRch_mainstem+1:nRch_in), rch_per_proc(0:nNodes-1), slope_local, ierr, cmessage) |
|
call shr_mpi_scatterV(length (nRch_mainstem+1:nRch_in), rch_per_proc(0:nNodes-1), length_local, ierr, cmessage) |
|
|
|
call shr_mpi_scatterV(hruId (nHRU_mainstem+1:nHRU_in), hru_per_proc(0:nNodes-1), hruId_local, ierr, cmessage) |
|
call shr_mpi_scatterV(hruSegId (nHRU_mainstem+1:nHRU_in), hru_per_proc(0:nNodes-1), hruSegId_local, ierr, cmessage) |
|
call shr_mpi_scatterV(area (nHRU_mainstem+1:nHRU_in), hru_per_proc(0:nNodes-1), area_local, ierr, cmessage) |
