diff options
| -rw-r--r-- | DOCUMENTATION | 3 | ||||
| -rw-r--r-- | nrlmsise-00.c | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/DOCUMENTATION b/DOCUMENTATION index ba906b9..0e55075 100644 --- a/DOCUMENTATION +++ b/DOCUMENTATION @@ -130,6 +130,9 @@ the in- and output, and the differences between the various functions. 20070727 - bugfix concerning DFA being masked (Stacey Gage) +20100516 - bugfix concernin Argon densities + (Dr. Choliy Vasyl) + 7. TESTING OUTPUT ================= diff --git a/nrlmsise-00.c b/nrlmsise-00.c index ab5624e..77f423a 100644 --- a/nrlmsise-00.c +++ b/nrlmsise-00.c @@ -1361,7 +1361,7 @@ void gts7(struct nrlmsise_input *input, struct nrlmsise_flags *flags, struct nrl /**** AR DENSITY ****/ /* Density variation factor at Zlb */ - g40= flags->sw[20]*globe7(pd[5],input,flags); + g40= flags->sw[21]*globe7(pd[5],input,flags); /* Diffusive density at Zlb */ db40 = pdm[4][0]*exp(g40)*pd[5][0]; /* Diffusive density at Alt */ |