OB.DAAC Logo
NASA Logo
Ocean Color Science Software

ocssw V2022
6sm1.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine ssssss
 
subroutine aeroso (iaer, co, xmud, wldis, FILE)
 
subroutine msrm
 
subroutine akd
 
subroutine biz
 
subroutine difr92
 
subroutine glak (glth, th)
 
subroutine gmf (gf)
 
subroutine soil
 
subroutine soilspec
 
subroutine gmd92
 
subroutine leaf
 
subroutine s13aaf
 
subroutine tav
 
subroutine dakg (u, a, nq)
 
subroutine akbrdf (eei, thmi, uli, sli, rsl1i, wlmoy, rnci, cabi, cwi, vaii, mu, np, rm, rp, brdfint)
 
subroutine akalbe (albbrdf)
 
subroutine atmref (iaer, tamoy, trmoy, pizmoy, tamoyp, trmoyp, palt, phi, xmus, xmuv, phirad, nt, mu, np, rm, gb, rp, rorayl, roaero, romix, xlm1, xlm2)
 
subroutine bbm
 
subroutine bdm
 
subroutine chand (xphi, xmuv, xmus, xtau, xrray)
 
subroutine csalbr (xtau, xalb)
 
real function fintexp3 (xtau)
 
real function fintexp1 (xtau)
 
subroutine discom (idatmp, iaer, xmus, xmuv, phi, taer55, taer55p, palt, phirad, nt, mu, np, rm, gb, rp, ftray, xlm1, xlm2)
 
subroutine discre (ta, ha, tr, hr, it, nt, yy, dd, ppp2, ppp1, zx)
 
subroutine dust
 
subroutine enviro (difr, difa, r, palt, xmuv, fra, fae, fr)
 
subroutine equivwl (iinf, isup, step, wlmoy)
 
subroutine gauss (x1, x2, x, w, n)
 
subroutine interp (iaer, idatmp, wl, taer55, taer55p, xmud, romix, rorayl, roaero, phaa, phar, tsca, tray, trayp, taer, taerp, dtott, utott, astot, asray, asaer, utotr, utota, dtotr, dtota)
 
subroutine iso (tamoy, trmoy, pizmoy, tamoyp, trmoyp, palt, nt, mu, rm, gb, xf)
 
subroutine kernel (is, mu, rm, xpl, psl, bp)
 
subroutine midsum
 
subroutine midwin
 
subroutine mie (iaer, wldis, ex, sc, asy)
 
subroutine exscphase (X, nr, ni, Qext, Qsca, p11)
 
subroutine ocea
 
subroutine oda550 (iaer, v, taer55)
 
subroutine odrayl (wl, tray)
 
subroutine os (tamoy, trmoy, pizmoy, tamoyp, trmoyp, palt, phirad, nt, mu, np, rm, gb, rp, xl)
 
subroutine possol (month, jday, tu, xlon, xlat, asol, phi0)
 
subroutine day_number (jday, month, ia, j)
 
subroutine pos_fft (j, tu, xlon, xlat, asol, phi0)
 
subroutine presplane (uw, uo3, xpp, ftray)
 
subroutine pressure (uw, uo3, xps)
 
subroutine print_error (tex)
 
subroutine scatra (taer, taerp, tray, trayp, piza, palt, nt, mu, rm, gb, xmus, xmuv, ddirtt, ddiftt, udirtt, udiftt, sphalbt, ddirtr, ddiftr, udirtr, udiftr, sphalbr, ddirta, ddifta, udirta, udifta, sphalba)
 
subroutine soot
 
subroutine specinterp (wl, taer55, taer55p, tamoy, tamoyp, pizmoy, pizmoyp)
 
subroutine splie2 (x2a, ya, m, n, y2a)
 
subroutine splin2 (x1a, x2a, ya, y2a, m, n, x1, x2, y)
 
subroutine stm
 
subroutine subsum
 
subroutine subwin
 
subroutine tropic
 
subroutine trunca (coeff)
 
subroutine us62
 
subroutine varsol (jday, month, dsol)
 
subroutine wate
 

Function/Subroutine Documentation

◆ aeroso()

subroutine aeroso ( integer  iaer,
real, dimension(4)  co,
real  xmud,
real, dimension(10)  wldis,
character  FILE 
)

Definition at line 1350 of file 6sm1.f.

◆ akalbe()

subroutine akalbe ( real  albbrdf)

Definition at line 3146 of file 6sm1.f.

◆ akbrdf()

subroutine akbrdf ( real  eei,
real  thmi,
real  uli,
real  sli,
real  rsl1i,
real  wlmoy,
real  rnci,
real  cabi,
real  cwi,
real  vaii,
integer  mu,
integer  np,
real, dimension(-mu:mu)  rm,
real, dimension(np)  rp,
real, dimension(-mu:mu, np)  brdfint 
)

Definition at line 2995 of file 6sm1.f.

◆ akd()

subroutine akd

Definition at line 1683 of file 6sm1.f.

◆ atmref()

subroutine atmref ( integer  iaer,
real  tamoy,
real  trmoy,
real  pizmoy,
real  tamoyp,
real  trmoyp,
real  palt,
real  phi,
real  xmus,
real  xmuv,
real  phirad,
integer  nt,
integer  mu,
integer  np,
real, dimension(-mu:mu)  rm,
real, dimension(-mu:mu)  gb,
real, dimension(np)  rp,
real  rorayl,
real  roaero,
real  romix,
real, dimension(-mu:mu,np)  xlm1,
real, dimension(-mu:mu,np)  xlm2 
)

Definition at line 3219 of file 6sm1.f.

◆ bbm()

subroutine bbm

Definition at line 3281 of file 6sm1.f.

◆ bdm()

subroutine bdm

Definition at line 3414 of file 6sm1.f.

◆ biz()

subroutine biz

Definition at line 1802 of file 6sm1.f.

◆ chand()

subroutine chand ( real  xphi,
real  xmuv,
real  xmus,
real  xtau,
real  xrray 
)

Definition at line 3548 of file 6sm1.f.

◆ csalbr()

subroutine csalbr ( real  xtau,
real  xalb 
)

Definition at line 3618 of file 6sm1.f.

◆ dakg()

subroutine dakg ( dimension(48)  u,
dimension(48)  a,
  nq 
)

Definition at line 2792 of file 6sm1.f.

◆ day_number()

subroutine day_number ( integer  jday,
integer  month,
integer  ia,
integer  j 
)

Definition at line 6066 of file 6sm1.f.

◆ difr92()

subroutine difr92

Definition at line 1966 of file 6sm1.f.

◆ discom()

subroutine discom ( integer  idatmp,
integer  iaer,
real  xmus,
real  xmuv,
real  phi,
real  taer55,
real  taer55p,
real  palt,
real  phirad,
integer  nt,
integer  mu,
integer  np,
real, dimension(-mu:mu)  rm,
real, dimension(-mu:mu)  gb,
real, dimension(np)  rp,
real  ftray,
real, dimension(-mu:mu,np)  xlm1,
real, dimension(-mu:mu,np)  xlm2 
)

Definition at line 3648 of file 6sm1.f.

◆ discre()

subroutine discre ( real  ta,
real  ha,
real  tr,
real  hr,
integer  it,
integer  nt,
real  yy,
real  dd,
real  ppp2,
real  ppp1,
real  zx 
)

Definition at line 3760 of file 6sm1.f.

◆ dust()

subroutine dust

Definition at line 3800 of file 6sm1.f.

◆ enviro()

subroutine enviro ( real  difr,
real  difa,
real  r,
real  palt,
real  xmuv,
real  fra,
real  fae,
real  fr 
)

Definition at line 3964 of file 6sm1.f.

◆ equivwl()

subroutine equivwl ( integer  iinf,
integer  isup,
real  step,
real  wlmoy 
)

Definition at line 4034 of file 6sm1.f.

◆ exscphase()

subroutine exscphase ( double precision  X,
real  nr,
real  ni,
double precision  Qext,
double precision  Qsca,
double precision, dimension(83)  p11 
)

Definition at line 5035 of file 6sm1.f.

◆ fintexp1()

real function fintexp1 ( real  xtau)

Definition at line 3630 of file 6sm1.f.

◆ fintexp3()

real function fintexp3 ( real  xtau)

Definition at line 3624 of file 6sm1.f.

◆ gauss()

subroutine gauss ( real  x1,
real  x2,
real, dimension(n)  x,
real, dimension(n)  w,
integer  n 
)

Definition at line 4055 of file 6sm1.f.

◆ glak()

subroutine glak (   glth,
  th 
)

Definition at line 2039 of file 6sm1.f.

◆ gmd92()

subroutine gmd92

Definition at line 2183 of file 6sm1.f.

◆ gmf()

subroutine gmf (   gf)

Definition at line 2080 of file 6sm1.f.

◆ interp()

subroutine interp ( integer  iaer,
integer  idatmp,
real  wl,
real  taer55,
real  taer55p,
real  xmud,
real  romix,
real  rorayl,
real  roaero,
real  phaa,
real  phar,
real  tsca,
real  tray,
real  trayp,
real  taer,
real  taerp,
real  dtott,
real  utott,
real  astot,
real  asray,
real  asaer,
real  utotr,
real  utota,
real  dtotr,
real  dtota 
)

Definition at line 4090 of file 6sm1.f.

◆ iso()

subroutine iso ( real  tamoy,
real  trmoy,
real  pizmoy,
real  tamoyp,
real  trmoyp,
real  palt,
integer  nt,
integer  mu,
real, dimension(-mu:mu)  rm,
real, dimension(-mu:mu)  gb,
real, dimension(-1:1)  xf 
)

Definition at line 4274 of file 6sm1.f.

◆ kernel()

subroutine kernel ( integer  is,
integer  mu,
real, dimension(-mu:mu)  rm,
real, dimension(-25:25)  xpl,
real, dimension(-1:80,-25:25)  psl,
real, dimension(0:25,-25:25)  bp 
)

Definition at line 4700 of file 6sm1.f.

◆ leaf()

subroutine leaf

Definition at line 2399 of file 6sm1.f.

◆ midsum()

subroutine midsum

Definition at line 4794 of file 6sm1.f.

◆ midwin()

subroutine midwin

Definition at line 4844 of file 6sm1.f.

◆ mie()

subroutine mie ( integer  iaer,
real, dimension(10)  wldis,
real, dimension(4,10)  ex,
real, dimension(4,10)  sc,
real, dimension(4,10)  asy 
)

Definition at line 4894 of file 6sm1.f.

◆ msrm()

subroutine msrm

Definition at line 1618 of file 6sm1.f.

◆ ocea()

subroutine ocea

Definition at line 5233 of file 6sm1.f.

◆ oda550()

subroutine oda550 ( integer  iaer,
real  v,
real  taer55 
)

Definition at line 5397 of file 6sm1.f.

◆ odrayl()

subroutine odrayl ( real  wl,
real  tray 
)

Definition at line 5452 of file 6sm1.f.

◆ os()

subroutine os ( real  tamoy,
real  trmoy,
real  pizmoy,
real  tamoyp,
real  trmoyp,
real  palt,
real  phirad,
integer  nt,
integer  mu,
integer  np,
real, dimension(-mu:mu)  rm,
real, dimension(-mu:mu)  gb,
real, dimension(np)  rp,
real, dimension(-mu:mu,np)  xl 
)

Definition at line 5484 of file 6sm1.f.

◆ pos_fft()

subroutine pos_fft ( integer  j,
real  tu,
real  xlon,
real  xlat,
real  asol,
real  phi0 
)

Definition at line 6082 of file 6sm1.f.

◆ possol()

subroutine possol ( integer  month,
integer  jday,
real  tu,
real  xlon,
real  xlat,
real  asol,
real  phi0 
)

Definition at line 6047 of file 6sm1.f.

◆ presplane()

subroutine presplane ( real  uw,
real  uo3,
real  xpp,
real  ftray 
)

Definition at line 6150 of file 6sm1.f.

◆ pressure()

subroutine pressure ( real  uw,
real  uo3,
real  xps 
)

Definition at line 6248 of file 6sm1.f.

◆ print_error()

subroutine print_error ( character *(*)  tex)

Definition at line 6318 of file 6sm1.f.

◆ s13aaf()

subroutine s13aaf

Definition at line 2480 of file 6sm1.f.

◆ scatra()

subroutine scatra ( real  taer,
real  taerp,
real  tray,
real  trayp,
real  piza,
real  palt,
integer  nt,
integer  mu,
real, dimension(-mu:mu)  rm,
real, dimension(-mu:mu)  gb,
real  xmus,
real  xmuv,
real  ddirtt,
real  ddiftt,
real  udirtt,
real  udiftt,
real  sphalbt,
real  ddirtr,
real  ddiftr,
real  udirtr,
real  udiftr,
real  sphalbr,
real  ddirta,
real  ddifta,
real  udirta,
real  udifta,
real  sphalba 
)

Definition at line 6331 of file 6sm1.f.

◆ soil()

subroutine soil

Definition at line 2116 of file 6sm1.f.

◆ soilspec()

subroutine soilspec

Definition at line 2161 of file 6sm1.f.

◆ soot()

subroutine soot

Definition at line 6460 of file 6sm1.f.

◆ specinterp()

subroutine specinterp ( real  wl,
real  taer55,
real  taer55p,
real  tamoy,
real  tamoyp,
real  pizmoy,
real  pizmoyp 
)

Definition at line 6625 of file 6sm1.f.

◆ splie2()

subroutine splie2 ( real, dimension(n)  x2a,
real, dimension(m,n)  ya,
integer  m,
integer  n,
real, dimension(m,n)  y2a 
)

Definition at line 6664 of file 6sm1.f.

◆ splin2()

subroutine splin2 ( real, dimension(m)  x1a,
real, dimension(n)  x2a,
real, dimension(m,n)  ya,
real, dimension(m,n)  y2a,
integer  m,
integer  n,
real  x1,
real  x2,
real  y 
)

Definition at line 6680 of file 6sm1.f.

◆ ssssss()

subroutine ssssss

Definition at line 2 of file 6sm1.f.

◆ stm()

subroutine stm

Definition at line 6698 of file 6sm1.f.

◆ subsum()

subroutine subsum

Definition at line 6832 of file 6sm1.f.

◆ subwin()

subroutine subwin

Definition at line 6882 of file 6sm1.f.

◆ tav()

subroutine tav

Definition at line 2540 of file 6sm1.f.

◆ tropic()

subroutine tropic

Definition at line 6933 of file 6sm1.f.

◆ trunca()

subroutine trunca ( real  coeff)

Definition at line 6983 of file 6sm1.f.

◆ us62()

subroutine us62

Definition at line 7062 of file 6sm1.f.

◆ varsol()

subroutine varsol ( integer  jday,
integer  month,
real  dsol 
)

Definition at line 7114 of file 6sm1.f.

◆ wate()

subroutine wate

Definition at line 7138 of file 6sm1.f.