Skip to content

Commit

Permalink
Added walalw and psebqqarmax to output file
Browse files Browse the repository at this point in the history
  • Loading branch information
ym1906 committed Sep 15, 2023
1 parent 229656c commit 26861a3
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions source/fortran/physics.f90
Original file line number Diff line number Diff line change
Expand Up @@ -3190,7 +3190,7 @@ subroutine outplas(outfile)
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

use constraint_variables, only: maxradwallload, peakradwallload, fbetatry, &
taulimit, peakfactrad
taulimit, peakfactrad, psepbqarmax, walalw
use current_drive_variables, only: bscf_nevins, bscfmax, cboot, &
bscf_wilson, bscf_sauter, pinjmw, bscf_iter89, bootipf, pinjimw, pinjemw, &
psipf, pscf_scene, diacf_hender, diacf_scene, diaipf
Expand All @@ -3212,7 +3212,7 @@ subroutine outplas(outfile)
taup, sarea, ti0, plhthresh, bp, dnitot, pradmw, pradsolmw, csawth, rndfuel, q95, &
rhopedt, tauratio, pperim, tesep, vsind, ibss, alphaj, dnz, q, ssync, &
psolradmw, tauei, ishape, plinepv, palpmw, palpfwmw, icurr, pdivt, &
gammaft, powfmw
gammaft, powfmw, wallmw
use physics_variables, only: betaft, tauscl, fgwsep, rmajor, falpha, &
nesep, facoh, kappa, dlimit, beta, dlimit, eps, pthrmw, dnla, bt, &
pthrmw, pthrmw, pthrmw, idivrt, ips, idia
Expand Down Expand Up @@ -3276,6 +3276,8 @@ subroutine outplas(outfile)
call ovarrf(outfile,'Major radius (m)','(rmajor)',rmajor)
call ovarrf(outfile,'Minor radius (m)','(rminor)',rminor, 'OP ')
call ovarrf(outfile,'Aspect ratio','(aspect)',aspect)
call ovarrf(outfile,'Max ratio psep bt qar','(psepbqarmax)',psepbqarmax)
call ovarrf(outfile,'Maximum neutron wall load','(walalw)',walalw)

select case (ishape)
case (0,6,8)
Expand Down

0 comments on commit 26861a3

Please sign in to comment.