|
integer | kpdtsf |
|
integer | kpdwet |
|
integer | kpdsno |
|
integer | kpdzor |
|
integer | kpdais |
|
integer | kpdtg3 |
|
integer | kpdplr |
|
integer | kpdgla |
|
integer, dimension(4), parameter | kpdalb_0 =(/212,215,213,216/) |
|
integer, dimension(4), parameter | kpdalb_1 =(/189,190,191,192/) |
|
integer, dimension(2), parameter | kpdalf =(/214,217/) |
|
real(kind=kind_io8), parameter | ten =10.0 |
|
real(kind=kind_io8), parameter | one =1.0 |
|
real(kind=kind_io8), parameter | zero =0.0 |
|
integer, parameter | xdata =7200 |
|
integer, parameter | ydata =3600 |
|
integer, parameter | mdata =xdata*ydata |
|
integer | veg_type_landice |
|
integer | soil_type_landice |
|
integer | num_threads |
|