Skip to content

Commit

Permalink
Secure, that best guess for max_blocks is always >= 1 (#431)
Browse files Browse the repository at this point in the history
  • Loading branch information
mhrib authored Apr 10, 2020
1 parent d529df8 commit a7c2893
Showing 1 changed file with 1 addition and 0 deletions.
1 change: 1 addition & 0 deletions cicecore/cicedynB/infrastructure/ice_domain.F90
Original file line number Diff line number Diff line change
@@ -188,6 +188,7 @@ subroutine init_domain_blocks
( (dble(nx_global-1)/dble(block_size_x + 1)) * &
(dble(ny_global-1)/dble(block_size_y + 1)) ) &
/ dble(nprocs))
max_blocks=max(1,max_blocks)
write(nu_diag,'(/,a52,i6,/)') &
'(ice_domain): max_block < 1: max_block estimated to ',max_blocks
endif

0 comments on commit a7c2893

Please sign in to comment.