istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

Add missing module load to close open units

Browse Source
This commit is contained in:
Lorenzo Figini 2022-02-01 16:16:18 +01:00
parent b7bec590d6
commit b151bf568b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/main.f90
View File

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