fix: missing allocation for profiles given vs rhot
This commit is contained in:
parent
5156f94f73
commit
0f2ff9a5a7
@ -57,11 +57,13 @@ program main_std
|
|||||||
else
|
else
|
||||||
call read_profiles(prfp%filenm, xrad, terad, derad, zfc)
|
call read_profiles(prfp%filenm, xrad, terad, derad, zfc)
|
||||||
allocate(psrad(size(xrad)))
|
allocate(psrad(size(xrad)))
|
||||||
if(prfp%irho==0) then
|
if(prfp%irho==0) then ! xrad==rhot
|
||||||
|
allocate(rhot(size(psinr)))
|
||||||
call setqphi_num(psinr,qpsi,psia,rhot)
|
call setqphi_num(psinr,qpsi,psia,rhot)
|
||||||
call set_rhospl(sqrt(psinr),rhot)
|
call set_rhospl(sqrt(psinr),rhot)
|
||||||
|
deallocate(rhot)
|
||||||
psrad=frhopolv(xrad)
|
psrad=frhopolv(xrad)
|
||||||
else if(prfp%irho == 1) then
|
else if(prfp%irho == 1) then ! xrad==rhop
|
||||||
psrad=xrad**2
|
psrad=xrad**2
|
||||||
else
|
else
|
||||||
psrad=xrad
|
psrad=xrad
|
||||||
|
Loading…
Reference in New Issue
Block a user