NASA Ocean Color

ocssw V2022

 #include "libnav.h"
 #include "nav.h"
  // something wrong with fsol? Need to check
  // check jd
 double esdist_(int *iyr, int *iday, int *msec) {
     double t = jd(*iyr, 1, *iday) - 2451545.0e0 + (*msec / 1000.e0 - 43200.e0) / 86400.e0;
     // c  Compute mean anomaly
     double gs = 357.52772e0 + 0.9856002831e0 * t;
     //   Compute solar distance (AU)
     const static double radeg_to_match_fortran = 57.295780181884766e0;
     return 1.00014e0 - 0.01671e0 * cos(gs / radeg_to_match_fortran) - 0.00014e0 * cos(2.0e0 * gs / radeg_to_match_fortran);
 }

data_t t[NROOTS+1]

Definition: decode_rs.h:77

msec

int32 * msec

Definition: l1_czcs_hdf.c:31

esdist_

double esdist_(int *iyr, int *iday, int *msec)

c This subroutine computes the earth-sun distance in AU. It uses the model c referenced in The Astron...

Definition: esdist.c:21

nav.h

libnav.h

jd.jd

def jd(i, j, k)

Definition: jd.py:1

iyr

int32_t iyr

Definition: atrem_corl1.h:161