From 1fa1a8cf4b9bbf010d4ffa45a39e5848d1bd6f2d Mon Sep 17 00:00:00 2001 From: "Eric R. Scott" Date: Thu, 9 Feb 2023 09:30:22 -0500 Subject: [PATCH] typo in message and comment (poi -> point, none -> node) --- ED/src/memory/ed_mem_alloc.f90 | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/ED/src/memory/ed_mem_alloc.f90 b/ED/src/memory/ed_mem_alloc.f90 index 5efba6ce5..e4370265c 100644 --- a/ED/src/memory/ed_mem_alloc.f90 +++ b/ED/src/memory/ed_mem_alloc.f90 @@ -72,15 +72,15 @@ subroutine ed_memory_allocation(proc_type) call ed_nullify_work(work_e(ng)) call ed_alloc_work(work_e(ng),nmxp(ng),nmyp(ng),maxsite) end do - + !---------------------------------------------------------------------------------------! ! Allocate the top most hierachical memory structures for the ED2 LSM. We changed the ! ! the way the standalone deals with different regions ans sites of interest. Now it ! - ! allocates each region and each poi in a different grid. This is done to ease the way ! - ! the parallel code is implemented, to take full advantage of MPI. By doing this, we ! - ! can split the polygons among the different nodes for the regional run, and split the ! - ! patches and cohorts in different nodes in the POI grids --- the latter is yet to be ! - ! implemented. ! + ! allocates each region and each point in a different grid. This is done to ease the ! + ! way the parallel code is implemented, to take full advantage of MPI. By doing this, ! + ! we can split the polygons among the different nodes for the regional run, and split ! + ! the patches and cohorts in different nodes in the POI grids --- the latter is yet to ! + ! be implemented. ! !---------------------------------------------------------------------------------------! write (unit=*,fmt='(a,i5,a)') ' + Polygon array allocation, node ',mynum,';' @@ -90,7 +90,7 @@ subroutine ed_memory_allocation(proc_type) call allocate_edtype(edgrid_g(ng),gdpy(mynum,ng)) end do - write (unit=*,fmt='(a,i5,a)') ' + Memory successfully allocated on none ',mynum,';' + write (unit=*,fmt='(a,i5,a)') ' + Memory successfully allocated on node ',mynum,';' return end subroutine ed_memory_allocation !---------------------------------------------------------------------------------------!