#64 Updated comments.

stfc · Jan 31, 2024 · 79bc758 · 79bc758
1 parent a7d7479
commit 79bc758
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/finite_difference/src/grid_mod.f90 b/finite_difference/src/grid_mod.f90
@@ -430,13 +430,15 @@ subroutine grid_init(grid, dxarg, dyarg, tmask)
        !> TODO add support for PBCs in parallel
     else
        ! No T-mask supplied. Check if grid has PBCs, which isn't
-       ! supported yet
-       if( (get_num_ranks() > 1) .and.  &
-           ( (grid%boundary_conditions(1) == GO_BC_PERIODIC) .or. &
-             (grid%boundary_conditions(2) == GO_BC_PERIODIC) )  ) then
+       ! supported yet in case of distributed memory usage (i.e.
+       ! if there is more than one process)
+       if ( (get_num_ranks() > 1) .and.  &
+            ( (grid%boundary_conditions(1) == GO_BC_PERIODIC) .or. &
+              (grid%boundary_conditions(2) == GO_BC_PERIODIC) )  ) then
           call gocean_stop('grid_init: ERROR: Periodic boundary conditions ' &
                       & // 'are not yet supported.')
        end if
+
        ! Initialise an artificial all-wet tmask. If using OpenMP then apply
        ! first-touch policy for data locality.
        !$OMP PARALLEL DO schedule(runtime), default(none), private(ji,jj), &