doc: init_dim_obs, change "local" to "PE-local"

as there are the two concepts
- PE-local (per processor from domain decomposition)
- local in the sense of the local filters (usually one gridcell/column)

Author: jjokella

bldsva/intf_DA/pdaf/framework/init_dim_obs_f_pdaf.F90

@@ -514,7 +514,7 @@ SUBROUTINE init_dim_obs_f_pdaf(step, dim_obs_f)
   ! Dimension of full observation vector
   ! ------------------------------------
 
-  ! add and broadcast size of local observation dimensions using mpi_allreduce 
+  ! add and broadcast size of PE-local observation dimensions using mpi_allreduce
   call mpi_allreduce(dim_obs_p, sum_dim_obs_p, 1, MPI_INTEGER, MPI_SUM, &
        comm_filter, ierror) 
 
@@ -524,20 +524,20 @@ SUBROUTINE init_dim_obs_f_pdaf(step, dim_obs_f)
   ! Check sum of dimensions of PE-local observation vectors against
   ! dimension of full observation vector
   if (.not. sum_dim_obs_p == dim_obs) then
-    print *, "TSMP-PDAF mype(w)=", mype_world, ": ERROR Sum of local observation dimensions"
+    print *, "TSMP-PDAF mype(w)=", mype_world, ": ERROR Sum of PE-local observation dimensions"
     print *, "sum_dim_obs_p=", sum_dim_obs_p
     print *, "dim_obs=", dim_obs
     call abort_parallel()
   end if
 
-  !  Gather local observation dimensions and displacements in arrays
+  !  Gather PE-local observation dimensions and displacements in arrays
   ! ----------------------------------------------------------------
 
-  ! Allocate array of local observation dimensions
+  ! Allocate array of PE-local observation dimensions
   IF (ALLOCATED(local_dims_obs)) DEALLOCATE(local_dims_obs)
   ALLOCATE(local_dims_obs(npes_filter))
 
-  ! Gather array of local observation dimensions
+  ! Gather array of PE-local observation dimensions
   call mpi_allgather(dim_obs_p, 1, MPI_INTEGER, local_dims_obs, 1, MPI_INTEGER, &
        comm_filter, ierror)
 

bldsva/intf_DA/pdaf/framework/init_dim_obs_pdaf.F90

@@ -510,27 +510,27 @@ SUBROUTINE init_dim_obs_pdaf(step, dim_obs_p)
   ! Dimension of full observation vector
   ! ------------------------------------
 
-  ! add and broadcast size of local observation dimensions using mpi_allreduce 
+  ! add and broadcast size of PE-local observation dimensions using mpi_allreduce
   call mpi_allreduce(dim_obs_p, sum_dim_obs_p, 1, MPI_INTEGER, MPI_SUM, &
        comm_filter, ierror) 
 
   ! Check sum of dimensions of PE-local observation vectors against
   ! dimension of full observation vector
   if (.not. sum_dim_obs_p == dim_obs) then
-    print *, "TSMP-PDAF mype(w)=", mype_world, ": ERROR Sum of local observation dimensions"
+    print *, "TSMP-PDAF mype(w)=", mype_world, ": ERROR Sum of PE-local observation dimensions"
     print *, "sum_dim_obs_p=", sum_dim_obs_p
     print *, "dim_obs=", dim_obs
     call abort_parallel()
   end if
 
-  !  Gather local observation dimensions and displacements in arrays
+  !  Gather PE-local observation dimensions and displacements in arrays
   ! ----------------------------------------------------------------
 
-  ! Allocate array of local observation dimensions
+  ! Allocate array of PE-local observation dimensions
   IF (ALLOCATED(local_dims_obs)) DEALLOCATE(local_dims_obs)
   ALLOCATE(local_dims_obs(npes_filter))
 
-  ! Gather array of local observation dimensions
+  ! Gather array of PE-local observation dimensions
   call mpi_allgather(dim_obs_p, 1, MPI_INTEGER, local_dims_obs, 1, MPI_INTEGER, &
        comm_filter, ierror)