CLN CHARACTER(LEN=99), INTENT(IN) :: fcnpspin vh_js !! CLN901 format(A99) $ WHERE (pop%pop_grid(:)%cmass_sum_old.gt.0.1 .and. pop%pop_grid(:)%cmass_sum.gt.0.1 ) $ casapool%Cplant(Iw,2) = casapool%Cplant(Iw,2)(1.0- min( POP%pop_grid(:)%cat_mortality/(POP%pop_grid(:)%cmass_sum_old),0.99)) $ casapool%Nplant(Iw,2) = casapool%Nplant(Iw,2)(1.0- min( POP%pop_grid(:)%cat_mortality/(POP%pop_grid(:)%cmass_sum_old),0.99)) $ ENDWHERE
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real, | intent(in) | :: | dels | |||
| integer, | intent(in) | :: | kstart | |||
| integer, | intent(in) | :: | kend | |||
| type(veg_parameter_type), | intent(inout) | :: | veg | |||
| type(soil_parameter_type), | intent(inout) | :: | soil | |||
| type(casa_biome), | intent(inout) | :: | casabiome | |||
| type(casa_pool), | intent(inout) | :: | casapool | |||
| type(casa_flux), | intent(inout) | :: | casaflux | |||
| type(casa_met), | intent(inout) | :: | casamet | |||
| type(casa_balance), | intent(inout) | :: | casabal | |||
| type(phen_variable), | intent(inout) | :: | phen | |||
| type(POP_TYPE), | intent(inout) | :: | POP | |||
| type(climate_type), | intent(inout) | :: | climate | |||
| integer, | intent(in) | :: | LALLOC | |||
| type(LUC_EXPT_TYPE), | intent(inout) | :: | LUC_EXPT | |||
| type(POPLUC_TYPE), | intent(inout) | :: | POPLUC | |||
| type(casa_pool), | intent(inout) | :: | sum_casapool | |||
| type(casa_flux), | intent(inout) | :: | sum_casaflux |