From 26861a35c2d026098c59e10522a9fc6083307520 Mon Sep 17 00:00:00 2001 From: ym1906 Date: Fri, 15 Sep 2023 14:36:31 +0100 Subject: [PATCH] Added walalw and psebqqarmax to output file --- source/fortran/physics.f90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/source/fortran/physics.f90 b/source/fortran/physics.f90 index 9e074c0a..6f36e49a 100644 --- a/source/fortran/physics.f90 +++ b/source/fortran/physics.f90 @@ -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 @@ -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 @@ -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)