Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
bilin_mud | Module: OCALBEDO_MOD | File: ocalbedo.f |
Author :
Version:
Declaration:
logical function bilin_mud(chlin, data_arr, size_arr, intmud)
- size_arr :
integer, intent(in)
- data_arr :
real*8, dimension(size_arr), intent(in)
- intmud :
real*8, dimension(size_arr), intent(out)
- chlin :
real*8, intent(in)
- all_vil :
real*8, dimension(size_arr)
- wl_size :
integer, parameter
- Initial Value
= 10
- wl :
real*8, dimension(wl_size)
- Initial Value
= (/350.0, 400.0, 412.0, 443.0, 490.0, 510.0, 555.0, 620.0, 670.0, 700.0/)
- chlut_size :
integer, parameter
- Initial Value
= 6
- chlut :
real*8, dimension(6)
- Initial Value
= (/0.03, 0.1, 0.3, 1.0, 3.0, 10.0/)
- ch :
real*8, dimension(6)
- Initial Value
= (/0.03, 0.1, 0.3, 1.0, 3.0, 10.0/)
- lutmud :
real*8, dimension(60)
- Initial Value
= (/0.770, 0.769, 0.766, 0.767, 0.767, 0.767, 0.770, 0.769, 0.766, 0.767, 0.767, 0.767, 0.765, 0.770, 0.774, 0.779, 0.782, 0.782, 0.800, 0.797, 0.796, 0.797, 0.799, 0.799, 0.841, 0.824, 0.808, 0.797, 0.791, 0.791, 0.872, 0.855, 0.834, 0.811, 0.796, 0.796, 0.892, 0.879, 0.858, 0.827, 0.795, 0.795, 0.911, 0.908, 0.902, 0.890, 0.871, 0.871, 0.914, 0.912, 0.909, 0.901, 0.890, 0.890, 0.914, 0.912, 0.909, 0.901, 0.890, 0.890/)
- lut :
real*8, dimension(10, 6)
- min :
real*8
- max :
real*8
- min_wl :
real*8
- max_wl :
real*8
- vic :
real*8
- vil :
real*8
- ic :
integer
- Initial Value
= 0
- il :
integer
- Initial Value
= 0
- k :
integer
- row :
integer
- col :
integer
- i :
integer