diff options
Diffstat (limited to 'Atmos.com')
| -rwxr-xr-x | Atmos.com | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/Atmos.com b/Atmos.com new file mode 100755 index 0000000..86ac940 --- /dev/null +++ b/Atmos.com @@ -0,0 +1,62 @@ + +c****************************************************************************** +c these common blocks mainly have quantities related to the model +c atmosphere and input/output file names/numbers, and program control +c****************************************************************************** + + real*8 t(100), theta(100), tkev(100), tlog(100), + . pgas(100), ne(100), nhtot(100), numdens(8,2,100), + . molweight(100), vturb(100), scont(100), + . kapref(100), kaplam(100), tauref(100), taulam(100), + . kaplamabs(100), kaplamsca(100), + . rho(100), rhox(100), xref(100), xdepth(100) + real*8 elem(95), xabund(95), xabu(95), u(95,4,100) + real*8 flux, fudge, wavref, abscale, deltaabund + integer ntau, jtau5, iunits, itru, iraf, modelnum + integer nfparam, nfmodel, nflines, nfslines, nfobs, nftable + integer nf1out, nf2out, nf3out, nf4out, nf5out, nf6out, + . nf7out, nf8out, nf9out, nf10out, + . nfbarklem, nfbarklemUV + integer modprintopt, linprintopt, linprintalt, + . fluxintopt, plotopt, dampingopt, specfileopt, + . linfileopt, printstrong, linecount, oldcount, + . scatopt + character*80 f1out, f2out, f3out, f4out, f5out, f6out, + . f7out, f8out, f9out, f10out, + . fparam, fmodel, flines, fslines, fobs, ftable, + . fbarklem, fbarklemUV + character*60 moogpath + character*2 names(95) + character*10 modtype + character*7 control + character*3 machine + character*1 silent + + common/atmos/t, theta, tkev, tlog, + . pgas, ne, nhtot, numdens, + . molweight, vturb, scont, + . kapref, kaplam, tauref, taulam, + . kaplamabs, kaplamsca, + . rho, rhox, xref, xdepth, + . elem, xabund, xabu, u, + . flux, fudge, wavref, abscale, deltaabund, + . ntau, jtau5, iunits, itru, iraf, modelnum, + . nfparam, nfmodel, nflines, nfslines, nfobs, nftable, + . nf1out, nf2out, nf3out, nf4out, nf5out, nf6out, + . nf7out, nf8out, nf9out, nf10out, + . nfbarklem, nfbarklemUV, + . modprintopt, linprintopt, linprintalt, + . fluxintopt, plotopt, dampingopt, specfileopt, + . linfileopt, printstrong, linecount, oldcount, scatopt + + common/charstuff/ f1out, f2out, f3out, f4out, f5out, f6out, + . f7out, f8out, f9out, f10out, + . fparam, fmodel, flines, fslines, fobs, ftable, + . fbarklem, fbarklemUV, + . moogpath, + . names, + . modtype, + . control, + . machine, + . silent + |