37 integer,
intent(in) :: isot,ivet
38 real,
dimension(30),
intent(out) :: maxsmc, bb, satpsi
39 integer,
intent(out) :: iret
62 bb =(/4.05, 4.26, 4.74, 5.33, 5.33, 5.25, &
63 6.77, 8.72, 8.17, 10.73, 10.39, 11.55,&
64 5.25, 4.26, 4.05, 4.26, 11.55, 4.05, &
65 4.05, 0.00, 0.00, 0.00, 0.00, 0.00, &
66 0.00, 0.00, 0.00, 0.00, 0.00, 0.00/)
75 maxsmc=(/0.395, 0.421, 0.434, 0.476, 0.476, 0.439, &
76 0.404, 0.464, 0.465, 0.406, 0.468, 0.457, &
77 0.464, 0.421, 0.200, 0.421, 0.457, 0.200, &
78 0.395, 0.000, 0.000, 0.000, 0.000, 0.000, &
79 0.000, 0.000, 0.000, 0.000, 0.000, 0.000/)
81 satpsi=(/0.035, 0.0363, 0.1413, 0.7586, 0.7586, 0.3548, &
82 0.1349, 0.6166, 0.2630, 0.0977, 0.3236, 0.4677,&
83 0.3548, 0.0363, 0.0350, 0.0363, 0.4677, 0.0350,&
84 0.0350, 0.00, 0.00, 0.00, 0.00, 0.00, &
85 0.00, 0.00, 0.00, 0.00, 0.00, 0.00/)
89 print *,
'set_soilveg_snippet not coded for soil type ', isot
110 integer,
intent(in) :: isot,ivet
111 real,
dimension(30),
intent(out) :: maxsmc, bb, satpsi
112 integer,
intent(out) :: iret
114 if (isot .eq. 1)
then 117 maxsmc= (/0.339, 0.421, 0.434, 0.476, 0.484,&
118 & 0.439, 0.404, 0.464, 0.465, 0.406, 0.468, 0.468, &
119 & 0.439, 1.000, 0.200, 0.421, 0.468, 0.200, &
120 & 0.339, 0.339, 0.000, 0.000, 0.000, 0.000, &
121 & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000/)
122 bb= (/2.79, 4.26, 4.74, 5.33, 3.86, 5.25,&
123 & 6.77, 8.72, 8.17, 10.73, 10.39, 11.55, &
124 & 5.25, 0.0, 2.79, 4.26, 11.55, 2.79, &
125 & 2.79, 0.00, 0.00, 0.00, 0.00, 0.00, &
126 & 0.00, 0.00, 0.00, 0.00, 0.00, 0.00/)
127 satpsi= (/0.069, 0.036, 0.141, 0.759, 0.955, &
128 & 0.355, 0.135, 0.617, 0.263, 0.098, 0.324, 0.468, &
129 & 0.355, 0.00, 0.069, 0.036, 0.468, 0.069, &
130 & 0.069, 0.00, 0.00, 0.00, 0.00, 0.00, &
131 & 0.00, 0.00, 0.00, 0.00, 0.00, 0.00/)
134 print*,
'For Noah-MP, set_soilveg is not supported for soil type ', isot
subroutine, public set_soilveg_noah(isot, ivet, maxsmc, bb, satpsi, iret)
This subroutine initializes soil and vegetation parameters needed in global_cycle/land_increment.f90.
subroutine, public set_soilveg_noahmp(isot, ivet, maxsmc, bb, satpsi, iret)
This subroutine initializes soil and vegetation parameters needed in global_cycle/land_increment.f90 for noah-mp.
Below was extracted from namelist_soilveg.f and set_soilveg.f (couldn't get above to compile for doxy...