Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
reflectance | Module: OCALBEDO_MOD | File: ocalbedo.f |
Author :
Version:
Declaration:
logical function reflectance(r2, chl_in, lam, nlt, ilon, jlat)
- nstep : used from model_com
- Initial Value
= >itime
- nlt :
integer
- lam :
real*8, dimension(nlt)
- bbw_out :
real*8, dimension(nlt)
- aw_out :
real*8, dimension(nlt)
- kw_out :
real*8, dimension(nlt)
- kd :
real*8, dimension(nlt)
- a :
real*8, dimension(nlt)
- r2 :
real*8, dimension(nlt)
- mud :
real*8, dimension(nlt)
- i :
integer
- j :
integer
- key :
logical
- ilon :
integer
- jlat :
integer
- x :
real*8, dimension(33)
- Initial Value
= (/0.234333,0.173333,0.15300, 0.13100,0.11748,0.12086,0.10165,0.08287, 0.06579,0.05072,0.04111,0.03400,0.03400, 0.04000,0.04500,0.05200,0.03000, 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0./)
- e :
real*8, dimension(33)
- Initial Value
= (/0.99800,0.83300,0.77800, 0.70000,0.64358,0.66259,0.67692,0.68657, 0.68880,0.67649,0.64927,0.61500,0.62600, 0.64700,0.67200,0.69700,0.60000,0.50000, 0.30000,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0./)
- u2 :
real*8, dimension(nlt)
- bbt :
real*8, dimension(nlt)
- bb :
real*8, dimension(nlt)
- chl_in :
real*8
- bp550 :
real*8
- var_exp :
real*8
- c :
real*8
- discr :
real*8
- count_loops :
integer
- iterator :
integer