From a7c2893e0dc3d69e608da3fd7d2676bc979a8eec Mon Sep 17 00:00:00 2001
From: mhrib <38077893+mhrib@users.noreply.github.com>
Date: Fri, 10 Apr 2020 02:22:01 +0200
Subject: [PATCH] Secure, that best guess for max_blocks is always >= 1 (#431)

---
 cicecore/cicedynB/infrastructure/ice_domain.F90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/cicecore/cicedynB/infrastructure/ice_domain.F90 b/cicecore/cicedynB/infrastructure/ice_domain.F90
index 51a9eaa69..3be2449f7 100644
--- a/cicecore/cicedynB/infrastructure/ice_domain.F90
+++ b/cicecore/cicedynB/infrastructure/ice_domain.F90
@@ -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