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

added re-normalization of Pins and Currins in spec subroutine

Browse Source
This commit is contained in:
Lorenzo Figini 2017-09-19 16:32:53 +00:00
parent d8fc72dd3e
commit 9fcc54804f
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/pec.f90
View File

@ -138,6 +138,8 @@ contains
dpdv=facpds*(dpdv/dvol) dpdv=facpds*(dpdv/dvol)
ajphiv=facjs*(ajphiv/darea) ajphiv=facjs*(ajphiv/darea)
ajcd=ajphiv*ratjbv ajcd=ajphiv*ratjbv
pins=facpds*pins
currins=facjs*currins
! now dpdv is dP/dV [MW/m^3] ! now dpdv is dP/dV [MW/m^3]
! now ajphiv is J_phi=dI/dA [MA/m^2] ! now ajphiv is J_phi=dI/dA [MA/m^2]