afrt.h

Go to the documentation of this file.

/*
 * afrt.h
 *
 *  Created on: Mar 22, 2019
 *      Author: Samuel Anderson
 */
 
#ifndef SRC_AFRT_AFRT_H_
#define SRC_AFRT_AFRT_H_
 
#include <vector>
#include <AfrtProcess.h>
 
class Afrt
{
public:
    string  output_filepath_;
 
    // output file attributes
 
    string title_ ;
    string prod_name_ ;
 
    Afrt();
 
    virtual ~Afrt();
 
    virtual int initialize();
 
    int ocn();
    int rt1();
    int rt2(int ilm, int isd, int itau, int iwnd,
                rt2_in* rt2in, rt2_out* rt2out,
                rt1_in* rt1in, rt1_out* rt1out,
                ocn_in* ocnin, ocn_out* ocnout,
                phs_in* phsin, phs_out* phsout);
 
    int hump(double cnst, double t[][ntf], double tp[][nlyr],
            int nm, double lp, double rmu[], double thd[], int ixy);
    int anglw();
    int frs(double xx, double xr, double xi, double& rfsea);
    int matrx(int ii, int kk);
    int mats(int ii, int kk, int l);
    int depol(int ii, int kk, int l);
    int single_down();
    int single_up();
    int getrad();
    int multp1d();
    int multp2d();
    int geocor();
    int geom(double a, double b, double c, double& r, double& g);
    int rsea_new();
    int fluxlvl(double buft[][2*nsza][nstk], double& sumg, int iflag);
    int xntpln(double x,double x1,double x2,double y1,double y2,double &y);
    int mdiffn(int ib, int ie, int il, double dlyr);
 
    string history_;
 
    void setHistory(std::string history) {
        history_ = history;
    }
    std::string getHistory() {
        return history_;
    }
 
protected:
    struct fdat {
        double f[nphi][2*nsza][nstk];
    };
    std::vector<fdat> unit53;
    std::vector<fdat> unit54;
    std::vector<fdat> unit55;
    std::vector<fdat> unit64;
    std::vector<fdat> unit65;
    std::vector<fdat> unit71;
    std::vector<fdat> unit72;
 
    std::vector<fdat>* irad;
    std::vector<fdat>* iwrt;
 
    fdat  fnull;
    fdat  fio;
    fdat  fiib;
    fdat  fiic;
    fdat  ftmp;
    fdat  ftmpa;
    fdat  ftmpb;
    fdat  sngla;
    fdat  snglb;
    fdat  fioup;
    fdat  fioup_btm;
    fdat  fiodn;
    fdat  fglint;
 
    double ee[nstk];
    double ei[nstk];
    double eo[nstk];
    double p[2*nphi][32];
    double pp[nstk][nlyr];
    double qq[nstk][nlyr];
    double rmu[2*nthe];
    double cmu[2*nthe];
    double dcmu[2*nthe];
    double dcmu2[2*nthe];
    double cosmu[2*nthe];
    double sinmu[2*nthe];
    double the[2*nsza];
    double c[2*nsza];
    double phi[2*nphi];
    double costh[2*nphi];
    double sinth[2*nphi];
    double taupl[nlyr];
    double totl[nlyr];
    double efact[nlyr];
    double efactb[nlyr];
    double emdtm[2*nsza][nlyr];
    double emtm[2*nsza][nlyr];
    double t[nstk][ntf];
    double thd[ntf];
    double pfs[2*nsza][2*nphi][32];
    double ppin[2*nsza][2*nsza][2*nphi][32];
    double atnflx[nsza][nlyr];
    double qsp[nsza];
    double fdown[nsza];
    double fup[nsza];
    double fdirc[nsza];
    double oalb[nsza];
    double sbarz[nsza];
    double albtdr[nsza];
    double albtdf[nsza];
    double albtrf[nsza];
    double albtdt[nsza];
    double albwl[nsza];
    double albrdr[nsza];
    double albrdf[nsza];
    double rfair[2*nsza];
    double rfwat[2*nsza];
    double txx[nsza][nthe][nphi][16];
    double raddir[nphi][nthe][nsza];
    double radocn[nphi][nthe][nsza];
    double radsky[nphi][nthe][nsza];
    double geoiup[nphi][nsza][20];
    double geoidn[nphi][nsza][20];
    double fluxu[nlyr][20];
    double fluxd[nlyr][20];
    double xzeroz[nphi][nthe][nsza][nstk];
    double xzerod[nphi][nthe][nsza][nstk];
    double xzero_up[nphi][nthe][nsza];
    double xzero_btm[nphi][nthe][nsza];
    double tupz[nphi][nthe][nsza][nstk];
    double tdwnz[nphi][nthe][nsza][nstk];
    double dtmm[nlyr];
    double dtrr[nlyr];
    double dtaa[nlyr];
    double dtot[nlyr];
    double tmsl;
    double trsl;
    double dlyr;
    double factr;
    double calb;
    double amuo;
    double nx;
    double dphi;
    double qsqt;
    double wvlth;
    double ddphi;
    double cnst;
    double conr;
    double xrw;
    double xiw;
    double vz;
    double alw;
    double amusq;
    double amumu;
    double amups;
    double copsi;
    double copsq;
    double cfisq;
    double copcs;
    double sfisq;
    double rho;
    double tautot;
    int    msza[nsza];
    int    ifc;
    int    iref;
    int    iglint;
    int    itrans;
    int    iwatr;
    int    ifoam;
    int    ipol;
    int    nolyr;
    int    nmu;
    int    nophi;
    int    jpart;
    int    jpass;
    int    kzz;
    int    ksza;
    int    kkx;
    int    kdx;
    int    insz;
 
};
 
 
 
 
 
#endif /* SRC_AFRT_AFRT_H_ */