Allocate elevclass_o before use in mkglcmecMod.F90

slevis-lmwg · Sep 30, 2024 · d3d4e2e · d3d4e2e
1 parent f88d050
commit d3d4e2e
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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"