OB.DAAC Logo
NASA Logo
Ocean Color Science Software

ocssw V2022
viirs_aerosol_luts Module Reference

Functions/Subroutines

integer function, public load_viirs_aerosol_luts (lut_file)
 
subroutine, public unload_viirs_aerosol_luts (status)
 
subroutine, public aero_470 (dflag, refl, x1, x2, x3, mm, nn, ll, ma, imod, r470, tau_x470, tau_x470_flag, trflg, model_frac, debug)
 
subroutine, public aero_650 (dflag, refl, x1, x2, x3, mm, nn, ll, ma, r650, tau_x650, tau_x650_flag, tau_x470_flag, tau_x412, tau_x470, tau_x412_flag_91, trflg)
 
subroutine, public aero_412 (dflag, refl, x1, x2, x3, mm, nn, ll, ma, imod, r412, tau_x412, tau_x412_flag, trflg, model_frac, debug)
 
subroutine, public aero_412_abs (dflag, refl, x1, x2, x3, mm, nn, ll, r412, tau_x, w0_x)
 
subroutine, public aero_470_abs (dflag2, refl, x1, x2, x3, mm, nn, ll, r470, tau_x, w0_x)
 
subroutine, public aero_470_dust (dflag, refl, x1, x2, x3, mm, nn, ll, ma, imod, r470, tau_x470, tau_x470_flag, trflg, model_frac, debug)
 
subroutine, public aero_650_dust (dflag, refl, x1, x2, x3, mm, nn, ll, ma, r650, tau_x650, tau_x650_flag, tau_x470_flag, tau_x412, tau_x470, tau_x412_flag_91, trflg)
 
subroutine, public aero_412_dust (dflag, refl, x1, x2, x3, mm, nn, ll, ma, imod, r412, tau_x412, tau_x412_flag, trflg, model_frac, debug)
 
subroutine, public aero_412_abs_dust (dflag, refl, x1, x2, x3, mm, nn, ll, r412, tau_x, w0_x)
 
subroutine, public aero_470_abs_dust (dflag2, refl, x1, x2, x3, mm, nn, ll, r470, tau_x, w0_x)
 
subroutine, public new_intep (x1a, x2a, x3a, ya, m, n, l, ia, x1, x2, x3, y, dy, mbeg, nbeg, frac)
 
subroutine, public polint (xa, ya, n, x, y, dy)
 

Function/Subroutine Documentation

◆ aero_412()

subroutine, public viirs_aerosol_luts::aero_412 ( logical, intent(inout)  dflag,
real, intent(in)  refl,
real, intent(in)  x1,
real, intent(in)  x2,
real, intent(in)  x3,
integer, intent(in)  mm,
integer, intent(in)  nn,
integer, intent(in)  ll,
integer, intent(in)  ma,
integer, intent(in)  imod,
real, intent(in)  r412,
real, intent(inout)  tau_x412,
integer, intent(inout)  tau_x412_flag,
real, intent(in)  trflg,
real, intent(in)  model_frac,
logical, intent(in)  debug 
)

Definition at line 1205 of file viirs_aerosol_luts_nc4.f95.

◆ aero_412_abs()

subroutine, public viirs_aerosol_luts::aero_412_abs ( logical, intent(inout)  dflag,
real, intent(in)  refl,
real, intent(in)  x1,
real, intent(in)  x2,
real, intent(in)  x3,
integer, intent(in)  mm,
integer, intent(in)  nn,
integer, intent(in)  ll,
real, intent(in)  r412,
real, intent(in)  tau_x,
real, intent(inout)  w0_x 
)

Definition at line 1326 of file viirs_aerosol_luts_nc4.f95.

◆ aero_412_abs_dust()

subroutine, public viirs_aerosol_luts::aero_412_abs_dust ( logical, intent(inout)  dflag,
real, intent(in)  refl,
real, intent(in)  x1,
real, intent(in)  x2,
real, intent(in)  x3,
integer, intent(in)  mm,
integer, intent(in)  nn,
integer, intent(in)  ll,
real, intent(in)  r412,
real, intent(in)  tau_x,
real, intent(inout)  w0_x 
)

Definition at line 1907 of file viirs_aerosol_luts_nc4.f95.

◆ aero_412_dust()

subroutine, public viirs_aerosol_luts::aero_412_dust ( logical, intent(inout)  dflag,
real, intent(in)  refl,
real, intent(in)  x1,
real, intent(in)  x2,
real, intent(in)  x3,
integer, intent(in)  mm,
integer, intent(in)  nn,
integer, intent(in)  ll,
integer, intent(in)  ma,
integer, intent(in)  imod,
real, intent(in)  r412,
real, intent(inout)  tau_x412,
integer, intent(inout)  tau_x412_flag,
real, intent(in)  trflg,
real, intent(in)  model_frac,
logical, intent(in)  debug 
)

Definition at line 1786 of file viirs_aerosol_luts_nc4.f95.

◆ aero_470()

subroutine, public viirs_aerosol_luts::aero_470 ( logical, intent(inout)  dflag,
real, intent(in)  refl,
real, intent(in)  x1,
real, intent(in)  x2,
real, intent(in)  x3,
integer, intent(in)  mm,
integer, intent(in)  nn,
integer, intent(in)  ll,
integer, intent(in)  ma,
integer, intent(in)  imod,
real, intent(in)  r470,
real, intent(inout)  tau_x470,
integer, intent(inout)  tau_x470_flag,
real, intent(inout)  trflg,
real, intent(in)  model_frac,
logical, intent(in)  debug 
)

Definition at line 893 of file viirs_aerosol_luts_nc4.f95.

◆ aero_470_abs()

subroutine, public viirs_aerosol_luts::aero_470_abs ( logical, intent(inout)  dflag2,
real, intent(in)  refl,
real, intent(in)  x1,
real, intent(in)  x2,
real, intent(in)  x3,
integer, intent(in)  mm,
integer, intent(in)  nn,
integer, intent(in)  ll,
real, intent(in)  r470,
real, intent(in)  tau_x,
real, intent(inout)  w0_x 
)

Definition at line 1399 of file viirs_aerosol_luts_nc4.f95.

◆ aero_470_abs_dust()

subroutine, public viirs_aerosol_luts::aero_470_abs_dust ( logical, intent(inout)  dflag2,
real, intent(in)  refl,
real, intent(in)  x1,
real, intent(in)  x2,
real, intent(in)  x3,
integer, intent(in)  mm,
integer, intent(in)  nn,
integer, intent(in)  ll,
real, intent(in)  r470,
real, intent(in)  tau_x,
real, intent(inout)  w0_x 
)

Definition at line 1980 of file viirs_aerosol_luts_nc4.f95.

◆ aero_470_dust()

subroutine, public viirs_aerosol_luts::aero_470_dust ( logical, intent(inout)  dflag,
real, intent(in)  refl,
real, intent(in)  x1,
real, intent(in)  x2,
real, intent(in)  x3,
integer, intent(in)  mm,
integer, intent(in)  nn,
integer, intent(in)  ll,
integer, intent(in)  ma,
integer, intent(in)  imod,
real, intent(in)  r470,
real, intent(inout)  tau_x470,
integer, intent(inout)  tau_x470_flag,
real, intent(inout)  trflg,
real, intent(in)  model_frac,
logical, intent(in)  debug 
)

Definition at line 1477 of file viirs_aerosol_luts_nc4.f95.

◆ aero_650()

subroutine, public viirs_aerosol_luts::aero_650 ( logical, intent(inout)  dflag,
real, intent(in)  refl,
real, intent(in)  x1,
real, intent(in)  x2,
real, intent(in)  x3,
integer, intent(in)  mm,
integer, intent(in)  nn,
integer, intent(in)  ll,
integer, intent(in)  ma,
real, intent(in)  r650,
real, intent(inout)  tau_x650,
integer, intent(inout)  tau_x650_flag,
integer, intent(in)  tau_x470_flag,
real, intent(in)  tau_x412,
real, intent(in)  tau_x470,
integer, intent(in)  tau_x412_flag_91,
real, intent(in)  trflg 
)

Definition at line 1021 of file viirs_aerosol_luts_nc4.f95.

◆ aero_650_dust()

subroutine, public viirs_aerosol_luts::aero_650_dust ( logical, intent(inout)  dflag,
real, intent(in)  refl,
real, intent(in)  x1,
real, intent(in)  x2,
real, intent(in)  x3,
integer, intent(in)  mm,
integer, intent(in)  nn,
integer, intent(in)  ll,
integer, intent(in)  ma,
real, intent(in)  r650,
real, intent(inout)  tau_x650,
integer, intent(inout)  tau_x650_flag,
integer, intent(in)  tau_x470_flag,
real, intent(in)  tau_x412,
real, intent(in)  tau_x470,
integer, intent(in)  tau_x412_flag_91,
real, intent(in)  trflg 
)

Definition at line 1602 of file viirs_aerosol_luts_nc4.f95.

◆ load_viirs_aerosol_luts()

integer function, public viirs_aerosol_luts::load_viirs_aerosol_luts ( character(len=255), intent(in)  lut_file)

Definition at line 54 of file viirs_aerosol_luts_nc4.f95.

◆ new_intep()

subroutine, public viirs_aerosol_luts::new_intep ( real, dimension(:), intent(in)  x1a,
real, dimension(:), intent(in)  x2a,
real, dimension(:), intent(in)  x3a,
real, dimension(:,:,:,:), intent(in)  ya,
integer, intent(in)  m,
integer, intent(in)  n,
integer, intent(in)  l,
integer, intent(in)  ia,
real, intent(in)  x1,
real, intent(in)  x2,
real, intent(in)  x3,
real, intent(inout)  y,
real, intent(inout)  dy,
integer, intent(in)  mbeg,
integer, intent(in)  nbeg,
real, intent(in)  frac 
)

Definition at line 2461 of file viirs_aerosol_luts_nc4.f95.

◆ polint()

subroutine, public viirs_aerosol_luts::polint ( real, dimension(:), intent(in)  xa,
real, dimension(:), intent(in)  ya,
integer, intent(in)  n,
real, intent(in)  x,
real, intent(inout)  y,
real, intent(inout)  dy 
)

Definition at line 2503 of file viirs_aerosol_luts_nc4.f95.

◆ unload_viirs_aerosol_luts()

subroutine, public viirs_aerosol_luts::unload_viirs_aerosol_luts ( integer, intent(inout)  status)

Definition at line 102 of file viirs_aerosol_luts_nc4.f95.