diff options
| author | Dominik Brodowski <linux@dominikbrodowski.net> | 2010-05-16 12:00:00 +0200 |
|---|---|---|
| committer | Dominik Brodowski <linux@dominikbrodowski.net> | 2017-09-24 10:40:24 +0200 |
| commit | 7ed82363738eaea243257040f2951d83cb240900 (patch) | |
| tree | 64a9e14e08848dee5bb514133e2bac486d71e60d /nrlmsise-00.c | |
| parent | 3af5a3f87b09803478c82dea3dfe933cee6cc592 (diff) | |
| download | nrlmsise-00-7ed82363738eaea243257040f2951d83cb240900.tar.gz | |
Bugfix concerning Argon densities
Noted by Dr. Choliy Vasyl.
Signed-off-by: Dominik Brodowski <linux@dominikbrodowski.net>
Diffstat (limited to 'nrlmsise-00.c')
| -rw-r--r-- | nrlmsise-00.c | 2 |
1 files changed, 1 insertions, 1 deletions
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 */ |