NASA Ocean Color

ocssw V2022

 #include "libnav.h"
 #include "sun2000.h"
 #include "nav.h"
 void l_sun_(int *iyr, int *iday, double *sec, float sunr[3], float *rs) {
     float su[3];
     // Get unit Sun vector in geocentric inertial coordinates
     sun2000(*iyr, *iday, *sec, su, rs);
     //  Get Greenwich mean sideral angle
     double day = *iday + *sec / 864.e2;
     double gha;
     gha2000(*iyr, day, &gha);
     double ghar = gha / radeg;
     // Transform Sun vector into geocentric rotating frame
     sunr[0] = su[0]*cos(ghar) + su[1]*sin(ghar);
     sunr[1] = su[1]*cos(ghar) - su[0]*sin(ghar);
     sunr[2] = su[2];
 }

day

int32_t day

Definition: atrem_corl1v2.h:308

l_sun_

void l_sun_(int *iyr, int *iday, double *sec, float sunr[3], float *rs)

c Computes unit Sun vector in geocentric rotating coodinates, using c subprograms to compute inertial...

Definition: l_sun.c:28

gha2000

int gha2000(int32_t iyr, double day, double &gha)

Definition: geolocate_hawkeye.cpp:685

sun2000

int sun2000(size_t sdim, int32_t iyr, int32_t idy, double *sec, orb_array *sun)

Definition: geolocate_hawkeye.cpp:991

int32_t iyr

Definition: atrem_corl1.h:161