aboutsummaryrefslogtreecommitdiff
path: root/Atmos.com
diff options
context:
space:
mode:
authorJoseph Hunkeler <jhunkeler@gmail.com>2021-08-03 14:49:58 -0400
committerJoseph Hunkeler <jhunkeler@gmail.com>2021-08-03 14:49:58 -0400
commite9293da11f685d17e2002bb06f0fd756845dadfd (patch)
tree0ce16357b71b44bf5af0be717830b361ecc25700 /Atmos.com
parentaf8fa097905186e0d8ba257e4d70d63fe8901264 (diff)
downloadmoog-e9293da11f685d17e2002bb06f0fd756845dadfd.tar.gz
Changeset:
* Simplify Makefile * Accept input file as command line argument * Increase path length to 1024 for all path-related variables * Replace hard-coded path to \*.dat files with environment variable MOOG_DATA * SM needs double precision for several of its functions. Pass REAL8 not REAL4 to those.
Diffstat (limited to 'Atmos.com')
-rwxr-xr-xAtmos.com5
1 files changed, 2 insertions, 3 deletions
diff --git a/Atmos.com b/Atmos.com
index 86ac940..6daa905 100755
--- a/Atmos.com
+++ b/Atmos.com
@@ -21,11 +21,10 @@ c******************************************************************************
. fluxintopt, plotopt, dampingopt, specfileopt,
. linfileopt, printstrong, linecount, oldcount,
. scatopt
- character*80 f1out, f2out, f3out, f4out, f5out, f6out,
+ character*1024 f1out, f2out, f3out, f4out, f5out, f6out,
. f7out, f8out, f9out, f10out,
. fparam, fmodel, flines, fslines, fobs, ftable,
- . fbarklem, fbarklemUV
- character*60 moogpath
+ . fbarklem, fbarklemUV, moogpath
character*2 names(95)
character*10 modtype
character*7 control