OB.DAAC Logo
NASA Logo
Ocean Color Science Software

ocssw V2022
afrt_rt1.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine af_rt1_read (infile, phsdir, outdir, ozone_lut, atm_lut, coeff_lut, nsd, iair, iprin, ipsudo, ioptn, idus iaprof, iblyr, icld, nch, nt55, nrh, kset, ilam1, ilam2, isd1, isd2, itau1, itau2, kznum, krhum, deltau, psrfc, ht_dust, sigma_dust, pcldtop, pcldbtm, taum55, xlamb, c0, c1, c2, beta, rho, ppo, x101, temp101, htdd, ppodd, dxdd, znpdd, nortau, ioznab, nrmww, oqst, oqtt, oqst5, oqtt5)
 
subroutine af_rt1_process (outdir, ailam, aisd, airh, aitau, iair, iprin, ipsudo, ioptn, idust, iaprof, iblyr, icld, nch, nt55, nsd nrh, kset, kznum, krhum, adeltau, psrfc, ht_dust, sigma_dust, pcldtop, pcldbtm, taum55, xlamb, c0, c1, c2, beta, rho, ppo, x101, temp101, htdd, ppodd, dxdd, znpdd, nortau, ioznab, nrmww, aqst, aqtt, aqst5, aqtt5, ohtlvl, opplvl, ofr, ofn, ofa, oftot, odtrr, odtmm, odtaa, odtot, otrp, otmp, otap, osalb, oturbhl, odx, ox, otozn101, ohtdv, opdv, otaur, otaum, otaua, otau, owvlth, opsrfc, orho, oozamtp, otautot, odtau1, onolyr, otcar, otwat, otoznp, oifc, onmodl)
 
subroutine tauint (itau, isd, ih, il, ifc, iair, iprin, ipsudo, ioptn, idust iblyr, icld, nd, nm, ndvsrf, psrfc, deltau, qst, qtt, tmt, znp, zpp, pdv, fr, fn, fa, ftot, tau, taum, taua, taur, tauw, tauc, tauozn, ppod, lgppod, lgpdv, x, dx, xd, dxd, htlvl, pplvl, htd, dtrr, dtmm, dtaa, dtot, htdv, tr, tcar, wvlth, rrho, ohtlvl, opplvl, ofr, ofn, ofa, oftot, odtrr, odtmm, odtaa, odtot, osalb, oturbhl, otrp, otmp, otap, o temp101, x101, ppo, otozn101, ohtdv, opdv, otaur, otaum, otaua, otau, opsrfc, orho, oozamtp, otautot, odtau1, onolyr, otcar, otwat, otoznp, oifc, onmodl, aqst, aqtt, aqst5, aqtt5)
 
subroutine part2 (nm, pdv, ppod, htd, znp, zpp, qtt, tmt, taum)
 
subroutine water (twat, pdv, watr, ppod, ht, nm, ndv, tauw)
 
subroutine ozn3
 
subroutine co2 (tcar, pdv, tauc, ndv)
 
subroutine linear (xp, x, y, n, yp)
 
subroutine part1 (nm, pdv, ppod, htd, znp, zpp, qtt, tmt, taum)
 
subroutine dust_prof (znpdd, htdd)
 
subroutine ozn3_abs (temp101, ppo)
 
subroutine cloud_prof (pcldtop, pcldbtm, ppodd, htdd, znpdd)
 

Function/Subroutine Documentation

◆ af_rt1_process()

subroutine af_rt1_process ( character*255  outdir,
integer*4  ailam,
integer*4  aisd,
integer*4  airh,
integer*4  aitau,
integer*4, dimension(3)  iair,
integer*4  iprin,
integer*4  ipsudo,
integer*4  ioptn,
integer*4  idust,
integer*4  iaprof,
integer*4  iblyr,
integer*4  icld,
integer*4  nch,
integer*4  nt55,
integer*4  nsd,
integer*4  nrh,
integer*4  kset,
integer*4  kznum,
integer*4, dimension(ksd)  krhum,
real*8  adeltau,
real*8  psrfc,
real*8  ht_dust,
real*8  sigma_dust,
real*8  pcldtop,
real*8  pcldbtm,
real*8, dimension(ktau)  taum55,
real*8, dimension(klam)  xlamb,
real*8, dimension(klam)  c0,
real*8, dimension(klam)  c1,
real*8, dimension(kl rho(klam),ppo(koznp),x101(koznp),temp101(koznp), htdd(kmac),ppodd(kmac),dxdd(kmac),znpdd(kmac),watrdd(kmac)  c2,
real*8, dimension(klam)  beta,
  rho,
  ppo,
  x101,
  temp101,
  htdd,
  ppodd,
  dxdd,
  znpdd,
integer*4  nortau,
integer*4  ioznab,
integer*4  nrmww,
real*8  aqst,
real*8  aqtt,
real*8  aqst5,
real*8  aqtt5,
real*8, dimension(klyr)  ohtlvl,
real*8, dimension(klyr)  opplvl,
real*8, dimension(klyr)  ofr,
real*8, dimension(klyr)  ofn,
real*8, dimension(klyr)  ofa,
real*8, dimension(klyr)  oftot,
real*8, dimension(klyr)  odtrr,
real*8, dimension(klyr)  odtmm,
real*8, dimension(klyr)  odtaa,
real*8, dimension(klyr)  odtot,
real*8  otrp,
real*8  otmp,
real*8  otap,
real*8, dimension(klyr)  osalb,
real*8, dimension(klyr)  oturbhl,
real*8, dimension(koznp)  odx,
real*8, dimension(koznp)  ox,
real*8, dimension(koznp)  otozn101,
real*8, dimension(kdlvl)  ohtdv,
real*8, dimension(kdlvl)  opdv,
real*8, dimension(klyr)  otaur,
real*8, dimension(klyr)  otaum,
real*8, dimension(klyr)  otaua,
real*8, dimension(klyr)  otau,
real*8  owvlth,
real*8  opsrfc,
real*8  orho,
real*8  oozamtp,
real*8  otautot,
real*8  odtau1,
integer*4  onolyr,
real*8  otcar,
real*8  otwat,
real*8  otoznp,
integer*4  oifc,
integer*4  onmodl 
)

Definition at line 275 of file afrt_rt1.f.

◆ af_rt1_read()

subroutine af_rt1_read ( character*255  infile,
character*255  phsdir,
character*255  outdir,
character*255  ozone_lut,
character*255  atm_lut,
character*255  coeff_lut,
integer*4  nsd,
integer*4, dimension(3)  iair,
integer*4  iprin,
integer*4  ipsudo,
integer*4  ioptn,
  idus,
integer*4  iaprof,
integer*4  iblyr,
integer*4  icld,
integer*4  nch,
integer*4  nt55,
integer*4  nrh,
integer*4  kset,
integer*4  ilam1,
integer*4  ilam2,
  isd1,
  isd2,
integer*4  itau1,
integer*4  itau2,
integer*4  kznum,
integer*4, dimension(ksd)  krhum,
real*8  deltau,
real*8  psrfc,
real*8  ht_dust,
real*8  sigma_dust,
real*8  pcldtop,
real*8  pcldbtm,
real*8, dimension(ktau)  taum55,
real*8, dimension(klam)  xlamb,
real*8, dimension(klam)  c0,
real*8, dimension(klam)  c1,
real*8, dimension(kl rho(klam),ppo(koznp),x101(koznp),temp101(koznp), htdd(kmac),ppodd(kmac),dxdd(kmac),znpdd(kmac),watrdd(kmac)  c2,
real*8, dimension(klam)  beta,
  rho,
  ppo,
  x101,
  temp101,
  htdd,
  ppodd,
  dxdd,
  znpdd,
integer*4  nortau,
integer*4  ioznab,
integer*4  nrmww,
real*8, dimension(ktau,ksd,klam)  oqst,
real*8, dimension(ktau,ksd,klam)  oqtt,
real*8, dimension(ktau,ksd,klam)  oqst5,
real*8, dimension(ktau,ksd,klam)  oqtt5 
)

Definition at line 19 of file afrt_rt1.f.

◆ cloud_prof()

subroutine cloud_prof ( real*8  pcldtop,
real*8  pcldbtm,
real*8, dimension(kmac)  ppodd,
real*8, dimension(kmac)  htdd,
real*8, dimension(kmac)  znpdd 
)

Definition at line 1411 of file afrt_rt1.f.

◆ co2()

subroutine co2 (   tcar,
real*8, dimension(kdlvl)  pdv,
real*8, dimension(kdlvl)  tauc,
  ndv 
)

Definition at line 1237 of file afrt_rt1.f.

◆ dust_prof()

subroutine dust_prof ( real*8, dimension(kmac)  znpdd,
real*8, dimension(kmac)  htdd 
)

Definition at line 1340 of file afrt_rt1.f.

◆ linear()

subroutine linear (   xp,
real*8, dimension(n)  x,
real*8, dimension(n)  y,
  n,
  yp 
)

Definition at line 1255 of file afrt_rt1.f.

◆ ozn3()

subroutine ozn3

Definition at line 1217 of file afrt_rt1.f.

◆ ozn3_abs()

subroutine ozn3_abs ( real*8, dimension(koznp)  temp101,
real*8, dimension(koznp)  ppo 
)

Definition at line 1368 of file afrt_rt1.f.

◆ part1()

subroutine part1 ( integer*4  nm,
real*8, dimension(kdlvl)  pdv,
real*8, dimension(kmac)  ppod,
real*8, dimension(kmac)  htd,
real*8, dimension(kmac)  znp,
real*8, dimension(kdlvl)  zpp,
real*8  qtt,
real*8  tmt,
real*8, dimension(klyr)  taum 
)

Definition at line 1285 of file afrt_rt1.f.

◆ part2()

subroutine part2 ( integer*4  nm,
  pdv,
real*8, dimension(kmac)  ppod,
real*8, dimension(kmac)  htd,
real*8, dimension( dxd(kmac),watr(kmac),dx(kozn),x(koznp),pdv(kdlvl),htdv(kdlv dtrr(klyr),dtmm(klyr),abozn(klam), dtaa(klyr),dtot(klyr), temp1(klyr),xxd(kmacp),tozn101(koznp),xd(kmac),temp2(klyr)  znp,
real*8, dimension(kdlvl)  zpp,
real*8  qtt,
real*8  tmt,
real*8, dimension(klyr)  taum 
)

Definition at line 1011 of file afrt_rt1.f.

◆ tauint()

subroutine tauint ( integer*4  itau,
integer*4  isd,
integer*4  ih,
integer*4  il,
integer*4  ifc,
integer*4, dimension(3)  iair,
integer*4  iprin,
integer*4  ipsudo,
integer*4  ioptn,
integer*4  idust,
integer*4  iblyr,
  icld,
integer*4  nd,
integer*4  nm,
integer*4  ndvsrf,
real*8  psrfc,
real*8  deltau,
real*8  qst,
real*8  qtt,
real*8  tmt,
real*8, dimension(kmac)  znp,
real*8, dimension(kdlvl)  zpp,
real*8, dimension(kdlvl)  pdv,
real*8, dimension(klyr)  fr,
real*8, dimension(klyr)  fn,
real*8, dimension(klyr)  fa,
real*8, dimension(klyr)  ftot,
real*8, dimension(klyr)  tau,
real*8, dimension(klyr)  taum,
real*8, dimension(klyr)  taua,
real*8, dimension(klyr)  taur,
real*8, dimension(klyr)  tauw,
real*8, dimension(klyr)  tauc,
real*8, dimension(klyr)  tauozn,
real*8, dimension(kmac)  ppod,
real*8, dimension(kmac)  lgppod,
real*8, dimension(kdlvl)  lgpdv,
real*8, dimension(koznp)  x,
real*8, dimension(kozn)  dx,
real*8, dimension(kmac)  xd,
real*8, dimension(kmac)  dxd,
real*8, dimension(klyr)  htlvl,
real*8, dimension(klyr)  pplvl,
real*8, dimension(kma dtrr(klyr),dtmm(klyr),dtaa(klyr),dtot(klyr),htdv(kdlvl)  htd,
  dtrr,
  dtmm,
  dtaa,
  dtot,
  htdv,
real*8  tr,
  tcar,
real*8  wvlth,
real*8  rrho,
real*8, dimension(klyr)  ohtlvl,
real*8, dimension(klyr)  opplvl,
real*8, dimension(klyr)  ofr,
real*8, dimension(klyr)  ofn,
real*8, dimension(kly oftot(klyr)  ofa,
  oftot,
real*8, dimension(klyr)  odtrr,
real*8, dimension(klyr)  odtmm,
real*8, dimension(klyr)  odtaa,
real*8, dimension(klyr)  odtot,
real*8, dimension(klyr)  osalb,
real*8, dimension(klyr)  oturbhl,
real*8  otrp,
real*8  otmp,
real*8  otap,
  o,
real*8, dimension(koznp)  temp101,
real*8, dimension(koznp)  x101,
real*8, dimension(koznp)  ppo,
real*8, dimension(koznp)  otozn101,
real*8, dimension(kdlvl)  ohtdv,
real*8, dimension(kdlvl)  opdv,
real*8, dimension(klyr)  otaur,
real*8, dimension(klyr)  otaum,
real*8, dimension(klyr)  otaua,
real*8, dimension(klyr)  otau,
real*8  opsrfc,
real*8  orho,
real*8  oozamtp,
real*8  otautot,
real*8  odtau1,
integer*4  onolyr,
real*8  otcar,
real*8  otwat,
real*8  otoznp,
integer*4  oifc,
integer*4  onmodl,
real*8  aqst,
real*8  aqtt,
real*8  aqst5,
real*8  aqtt5 
)

Definition at line 573 of file afrt_rt1.f.

◆ water()

subroutine water (   twat,
real*8, dimension(1000)  pdv,
real*8, dimension(1000)  watr,
real*8, dimension(1000)  ppod,
real*8, dimension(1000)  ht,
  nm,
  ndv,
real*8, dimension(1000)  tauw 
)

Definition at line 1168 of file afrt_rt1.f.