Merge pull request ESCOMP#2804 from slevis-lmwg/alloc_elevclass_o

Remove unused variable elevclass_o in mkglcmecMod.F90
slevis-lmwg · Oct 1, 2024 · ca4caa7 · ca4caa7
2 parents 40fc188 + 62ca130
commit ca4caa7
Showing 1 changed file with 0 additions and 3 deletions.
diff --git 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,8 +99,6 @@ subroutine mkglcmecInit( pioid_o )
        call shr_sys_abort()
     end if
 
-    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)