Fix mesh mask check in nuopc/cmeps cap (CICE-Consortium#873)

ESCOMP · Sep 25, 2023 · 55342ca · 55342ca
1 parent a5bb4f9
commit 55342ca
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/cicecore/drivers/nuopc/cmeps/ice_mesh_mod.F90 b/cicecore/drivers/nuopc/cmeps/ice_mesh_mod.F90
@@ -668,13 +668,13 @@ subroutine ice_mesh_check(gcomp, ice_mesh, rc)
     n=0
     do iblk = 1, nblocks
        this_block = get_block(blocks_ice(iblk),iblk)
+       ilo = this_block%ilo
+       ihi = this_block%ihi
+       jlo = this_block%jlo
+       jhi = this_block%jhi
        do j = jlo, jhi
-          jlo = this_block%jlo
-          jhi = this_block%jhi
           do i = ilo, ihi
-             ilo = this_block%ilo
-             ihi = this_block%ihi
-             n = n+1
+             n = n + 1
              mask_internal = nint(hm(i,j,iblk),kind=dbl_kind)
              mask_file = model_mask(n)
              if (mask_internal /= mask_file) then