Subroutine vom_adapt_foliage


VARIABLES

iiinteger 
Counter
2134, 2167, 2170, 2171, 2172, 2180, 2183
jmax25g_tmpreal*8 
Temporary jmax25g for comparison
2135, 2181, 2189
lai_g_tmpreal*8 
Temporary leaf area index for comparison
2136, 2180, 2190
max_netcgreal*8 
Maximum daily grass net carbon profit grasses
2137, 2164, 2177, 2182
max_netcg_tmpreal*8 
Temporary max net carbon profit
2138, 2174, 2177, 2182
netcg_dreal*8(3,3)
Daily grass net carbon profit
2139, 2170, 2171, 2172, 2173, 2174
netct_dreal*8(3,3)
Daily grass net carbon profit
2140, 2148, 2149, 2150, 2151
pcg_d_tmpreal*8 
Temporary grass cover
2141, 2179, 2188
posmainteger(1)
Pointer to variable values that achieved maximum assimilation
2142
posbestinteger(2)
Pointer to variable values that achieved maximum net assimilation
2143, 2151, 2154, 2155, 2173, 2174, 2179, 2181, 2183