From c7527b5f781f7948c33c933380a411c6a27cee53 Mon Sep 17 00:00:00 2001 From: Bill Sacks Date: Fri, 6 Sep 2024 13:15:45 -0600 Subject: [PATCH] Set mapunit_value_max to a hard-coded value --- tools/mksurfdata_esmf/src/mksoiltexMod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tools/mksurfdata_esmf/src/mksoiltexMod.F90 b/tools/mksurfdata_esmf/src/mksoiltexMod.F90 index 398bbaf51d..b91683d411 100644 --- a/tools/mksurfdata_esmf/src/mksoiltexMod.F90 +++ b/tools/mksurfdata_esmf/src/mksoiltexMod.F90 @@ -202,7 +202,7 @@ subroutine mksoiltex(file_mesh_i, file_mapunit_i, file_lookup_i, mesh_o, pioid_o ! Determine mapunit_value_max (set it as a module variable so that it can be ! accessible to gen_dominant_mapunit) - this is needed in the dynamic mask routine - mapunit_value_max = maxval(dataptr) + mapunit_value_max = 32056 ! Determine values in field_o call ESMF_FieldGet(field_o, farrayptr=dataptr, rc=rc)