| Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
bbw | Module: OCALBEDO_MOD | File: ocalbedo.f |
Author :
Version:
Declaration:
logical function bbw(data_arr, size_arr, bbw_out)- size_arr :
integer, intent(in)
- data_arr :
real*8, dimension(size_arr), intent(in)
- bbw_out :
real*8, dimension(size_arr), intent(out)
- bw_sb81 :
real*8, dimension(61)
- Initial Value
= (/0.151, 0.119, 0.0995, 0.082, 0.0685, 0.0575, 0.0485, 0.0415, 0.0353, 0.0305, 0.0262, 0.0229, 0.02, 0.0175, 0.0153, 0.0134, 0.012, 0.0106, 0.0094, 0.0084, 0.0076, 0.0068, 0.0061, 0.0055, 0.0049, 0.0045, 0.0041, 0.0037, 0.0034, 0.0031, 0.0029, 0.0026, 0.0024, 0.0022, 0.0021, 0.0019, 0.0018, 0.0017, 0.0016, 0.0015, 0.0014, 0.0013, 0.0012, 0.0011, 0.001, 0.001, 0.0008, 0.0008, 0.0007, 0.0007, 0.0007, 0.0007, 0.0006, 0.0006, 0.0006, 0.0005, 0.0005, 0.0005, 0.0004, 0.0004, 0.0004/)
- wl_sb_size :
integer, parameter
- Initial Value
= 61
- wl_sb :
real*8, dimension(wl_sb_size)
- i :
integer
- ri_sb81 :
integer
- vi_sb81 :
real*8
- key :
logical
- min :
real*8
- max :
real*8
- int_bbw :
real*8