fix: missing allocation for profiles given vs rhot

This commit is contained in:
Lorenzo Figini 2016-11-29 08:45:18 +00:00
parent 5156f94f73
commit 0f2ff9a5a7

View File

@ -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