48 integer (kind=int_kind),
parameter :: &
integer(kind=int_kind), parameter nilyr
integer(kind=int_kind), parameter jmt_global
integer(kind=int_kind), parameter imt_global
integer(kind=int_kind), parameter ncat
integer(kind=int_kind), parameter ntilay