diff options
| author | Dominik Brodowski <linux@dominikbrodowski.net> | 2004-03-22 12:00:00 +0100 |
|---|---|---|
| committer | Dominik Brodowski <linux@dominikbrodowski.net> | 2017-09-24 10:30:55 +0200 |
| commit | 3c78ada4256564ae7446fc8928a5d2eae03789ff (patch) | |
| tree | 67468195a91539fa31d8c607137c8fea12b30ff6 | |
| parent | b2500526fa38b98605b7a2345190ec55b9cad2a5 (diff) | |
| download | nrlmsise-00-3c78ada4256564ae7446fc8928a5d2eae03789ff.tar.gz | |
Fix gtd7d output if sw->flags[0] is set
Bugfix to error noted by Dr. Vasiliy Yurasov.
Signed-off-by: Dominik Brodowski <linux@dominikbrodowski.net>
| -rw-r--r-- | nrlmsise-00.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/nrlmsise-00.c b/nrlmsise-00.c index 17413d0..af48e19 100644 --- a/nrlmsise-00.c +++ b/nrlmsise-00.c @@ -1061,6 +1061,8 @@ void gtd7(struct nrlmsise_input *input, struct nrlmsise_flags *flags, struct nrl void gtd7d(struct nrlmsise_input *input, struct nrlmsise_flags *flags, struct nrlmsise_output *output) { gtd7(input, flags, output); output->d[5] = 1.66E-24 * (4.0 * output->d[0] + 16.0 * output->d[1] + 28.0 * output->d[2] + 32.0 * output->d[3] + 40.0 * output->d[4] + output->d[6] + 14.0 * output->d[7] + 16.0 * output->d[8]); + if (flags->sw[0]) + output->d[5]=output->d[5]/1000; } |