Index | Rundeck: E6F40 | Created: Fri May 17 03:30:27 EDT 2024 |
tanlk_cael | Module: LAKES | File: LAKES.f |
Author :
Version:
Declaration:
real*8 function tanlk_cael(cell_m2, hlake0)
- cell_m2 :
real*8, intent(in)
- flake0 :
real*8
- pi :
real*8, parameter
- pi
Initial Value= 3.1415926535897932d0
- hlake0 :
real*8, intent(out)
- sizeclass :
integer, parameter
- Initial Value
= 5
- a_equator_2x2h_m2 :
real*8, parameter
- Initial Value
= 61809004544d0
- area :
integer, parameter
- Initial Value
= 1
- h :
integer, parameter
- Initial Value
= 2
- dens :
integer, parameter
- Initial Value
= 3
- a_m2 :
real*8
- cael_lut :
real*8, parameter, dimension(3, 7)
- Initial Value
= RESHAPE ( (/ 2.88E+04, 2.61, 1.82E-07, 2.61E+05, 4.07, 2.92E-08, 2.39E+06, 6.41, 2.54E-09, 2.51E+07, 10.38, 1.86E-10, 2.51E+08, 16.58, 1.49E-11, 2.55E+09, 26.44, 1.62E-12, 5.10E+10, 156.86, 1.53E-13 /), (/ 3, 7/ ) )