Fix uninitialized mask values

billsacks · Sep 6, 2024 · e2dc0ae · e2dc0ae
1 parent b231f79
commit e2dc0ae
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/tools/mksurfdata_esmf/src/mksoiltexMod.F90 b/tools/mksurfdata_esmf/src/mksoiltexMod.F90
@@ -165,6 +165,8 @@ subroutine mksoiltex(file_mesh_i, file_mapunit_i, file_lookup_i, mesh_o, pioid_o
     do ni = 1,ns_i
        if (mapunit_i(ni) == 0.) then
           mask_i(ni) = 0
+       else
+          mask_i(ni) = 1
        end if
     end do
     call ESMF_MeshSet(mesh_i, elementMask=mask_i, rc=rc)