From 7ed82363738eaea243257040f2951d83cb240900 Mon Sep 17 00:00:00 2001 From: Dominik Brodowski Date: Sun, 16 May 2010 12:00:00 +0200 Subject: Bugfix concerning Argon densities Noted by Dr. Choliy Vasyl. Signed-off-by: Dominik Brodowski --- nrlmsise-00.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'nrlmsise-00.c') 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 */ -- cgit v1.2.3