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

fixed rhot print in central ray output (fort.4)

Browse Source
This commit is contained in:
Lorenzo Figini 2017-02-10 10:41:24 +00:00
parent e2fac977ab
commit 526870458f
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/gray_params.f90
View File

@ -232,8 +232,8 @@ contains
read(u,*) prfparam%iprof, prfparam%irho ! irho=0,1,2 -> num profiles vs rhot,rhop,psin read(u,*) prfparam%iprof, prfparam%irho ! irho=0,1,2 -> num profiles vs rhot,rhop,psin
read(u,*) prfparam%filenm read(u,*) prfparam%filenm
! psbnd value of psi ( > 1 ) of density boundary ! psbnd value of psi ( > 1 ) of density boundary
read(u,*) prfparam%psnbnd !, prfparam%sspld read(u,*) prfparam%psnbnd, prfparam%sspld
prfparam%sspld=0.001_wp_ ! prfparam%sspld=0.001_wp_
! iscal ne Te scaling 0: nustar=const, 1: n_greenw=const; 2 no rescaling ! iscal ne Te scaling 0: nustar=const, 1: n_greenw=const; 2 no rescaling
! factT factn factor for Te&ne scaling ! factT factn factor for Te&ne scaling
read(u,*) prfparam%factte, prfparam%factne, prfparam%iscal read(u,*) prfparam%factte, prfparam%factne, prfparam%iscal

2
src/graycore.f90
View File

@ -1959,7 +1959,7 @@ bb: do
if(jk.eq.1) then if(jk.eq.1) then
phideg=atan2(yym,xxm)/degree phideg=atan2(yym,xxm)/degree
if(psinv>=zero .and. psinv<=one) then if(psinv>=zero .and. psinv<=one) then
rhot=frhotor(psinv) rhot=frhotor(sqrt(psinv))
else else
rhot=1.0_wp_ rhot=1.0_wp_
end if end if