From d3d4e2ee89246654d02b22f286c4365ef63de92b Mon Sep 17 00:00:00 2001 From: Samuel Levis Date: Mon, 30 Sep 2024 17:08:32 -0600 Subject: [PATCH 1/2] Allocate elevclass_o before use in mkglcmecMod.F90 --- tools/mksurfdata_esmf/src/mkglcmecMod.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/tools/mksurfdata_esmf/src/mkglcmecMod.F90 b/tools/mksurfdata_esmf/src/mkglcmecMod.F90 index 25fa4a8edc..4bc3d83e06 100644 --- a/tools/mksurfdata_esmf/src/mkglcmecMod.F90 +++ b/tools/mksurfdata_esmf/src/mkglcmecMod.F90 @@ -100,6 +100,7 @@ subroutine mkglcmecInit( pioid_o ) call shr_sys_abort() end if + allocate(elevclass_o(size(elevclass))) elevclass_o(:) = elevclass(:) if (root_task) write(ndiag, '(a)') trim(subname)//" writing out GLC_MEC" From b15640f6d35ecc95bdeb6157561e8f8cee741e07 Mon Sep 17 00:00:00 2001 From: Samuel Levis Date: Mon, 30 Sep 2024 18:16:33 -0600 Subject: [PATCH 2/2] Remove elevclass_o altogether because it is NOT used --- tools/mksurfdata_esmf/src/mkglcmecMod.F90 | 4 ---- 1 file changed, 4 deletions(-) diff --git a/tools/mksurfdata_esmf/src/mkglcmecMod.F90 b/tools/mksurfdata_esmf/src/mkglcmecMod.F90 index 4bc3d83e06..6dc363ecac 100644 --- a/tools/mksurfdata_esmf/src/mkglcmecMod.F90 +++ b/tools/mksurfdata_esmf/src/mkglcmecMod.F90 @@ -49,7 +49,6 @@ subroutine mkglcmecInit( pioid_o ) ! local variables: type(var_desc_t) :: pio_varid type(io_desc_t) :: pio_iodesc - real(r8), allocatable :: elevclass_o(:) ! elevation classes integer :: rcode character(len=*), parameter :: subname = 'mkglcmecInit' !----------------------------------------------------------------------- @@ -100,9 +99,6 @@ subroutine mkglcmecInit( pioid_o ) call shr_sys_abort() end if - allocate(elevclass_o(size(elevclass))) - elevclass_o(:) = elevclass(:) - if (root_task) write(ndiag, '(a)') trim(subname)//" writing out GLC_MEC" rcode = pio_inq_varid(pioid_o, 'GLC_MEC', pio_varid) rcode = pio_put_var(pioid_o, pio_varid, elevclass)