Add missing module load to close open units

src/main.f90

@@ -8,6 +8,8 @@ program main_std
      set_rhospl,setqphi_num,frhopolv
   use coreprofiles, only : read_profiles_an,read_profiles,tene_scal
   use reflections, only : range2rect
+  use units, only : uprfin, uflx, ubres, ucnt, uprj0, uwbm, ucenr, uoutr, &
+     udisp, upec, usumm, umaps
   implicit none
   type(antctrl_type) :: antp
   type(eqparam_type) :: eqp
@@ -136,8 +138,8 @@ program main_std
   close(udisp)
   close(ubres)
   close(ucnt)
+  close(umaps)
   close(uoutr)
-  close(ueq)
   close(uprfin)
   close(uflx)
   close(upec)