added re-normalization of Pins and Currins in spec subroutine

2017-09-19 16:32:53 +00:00 · 2017-09-19 16:32:53 +00:00 · 9fcc54804f
commit 9fcc54804f
parent d8fc72dd3e
1 changed files with 2 additions and 0 deletions
--- a/src/pec.f90
+++ b/src/pec.f90
@ -138,6 +138,8 @@ contains
    dpdv=facpds*(dpdv/dvol)
    ajphiv=facjs*(ajphiv/darea)
    ajcd=ajphiv*ratjbv
+    pins=facpds*pins
+    currins=facjs*currins

 ! now dpdv is  dP/dV [MW/m^3]
 ! now ajphiv is J_phi=dI/dA [MA/m^2]