Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
ocalbedo | Module: OCALBEDO_MOD | File: ocalbedo.f |
Author :
Version:
Declaration:
subroutine ocalbedo(wind, solz, bocvn, xocvn, chl, rod, ros, hycgr, i, j)
- radian : used from constant
- wind :
real*8, intent(in)
- solz :
real*8, intent(in)
- chl :
real*8, intent(in)
- hycgr :
logical, intent(in)
- i :
integer, intent(in)
- j :
integer, intent(in)
- bocvn :
real*8, dimension(6), intent(out)
- xocvn :
real*8, dimension(6), intent(out)
- rod :
real*8, dimension(:), intent(out)
- ros :
real*8, dimension(:), intent(out)
- nl :
integer
- cn :
real*8
- rof :
real*8
- rosps :
real*8
- rospd :
real*8
- rtheta :
real*8
- sintr :
real*8
- rthetar :
real*8
- rmin :
real*8
- rpls :
real*8
- sinrmin :
real*8
- sinrpls :
real*8
- tanrmin :
real*8
- tanrpls :
real*8
- sinp :
real*8
- tanp :
real*8
- a :
real*8
- b :
real*8
- sunz :
real*8
- sum1 :
real*8
- sum2 :
real*8
- part_sum :
real*8
- res :
logical
- refl :
real*8, dimension(nlt)
- weight :
real*8, dimension(31)
- Initial Value
= (/0.0158378,0.0201205,0.0241885,0.0277778, 0.0307124,0.0329082,0.0343586,0.0351143, 0.0352609,0.0349008,0.0341389,0.0330742, 0.0317941,0.0303725,0.0288696,0.0273329, 0.0500921,0.0643897,0.0686573,0.0532013, 0.0416379,0.0330341,0.0265929,0.0217156, 0.0179725,0.0150596,0.0127618,0.0158128, 0.0232875,0.0313132,0.0184843/)
- gband :
integer, dimension(7)
- Initial Value
= (/ 1, 18, 19, 23, 26, 30, 32 /)
- lam8 :
real*8, dimension(nlt)
- roair :
real*8
- rn :
real*8
- ngiss :
integer