CASAONLY_LUC Subroutine

subroutine CASAONLY_LUC(dels, kstart, kend, veg, soil, casabiome, casapool, casaflux, casamet, casabal, phen, POP, climate, LALLOC, LUC_EXPT, POPLUC, sum_casapool, sum_casaflux)

Uses

  • proc~~casaonly_luc~~UsesGraph proc~casaonly_luc CASAONLY_LUC module~biogeochem_mod biogeochem_mod proc~casaonly_luc->module~biogeochem_mod module~cable_carbon_module cable_carbon_module proc~casaonly_luc->module~cable_carbon_module module~cable_common_module cable_common_module proc~casaonly_luc->module~cable_common_module module~cable_def_types_mod cable_def_types_mod proc~casaonly_luc->module~cable_def_types_mod module~cable_io_vars_module cable_IO_vars_module proc~casaonly_luc->module~cable_io_vars_module module~cable_luc_expt CABLE_LUC_EXPT proc~casaonly_luc->module~cable_luc_expt module~casa_cable casa_cable proc~casaonly_luc->module~casa_cable module~casa_inout_module casa_inout_module proc~casaonly_luc->module~casa_inout_module module~casa_ncdf_module casa_ncdf_module proc~casaonly_luc->module~casa_ncdf_module module~casa_offline_inout_module casa_offline_inout_module proc~casaonly_luc->module~casa_offline_inout_module module~casadimension casadimension proc~casaonly_luc->module~casadimension module~casaparm casaparm proc~casaonly_luc->module~casaparm module~casavariable casavariable proc~casaonly_luc->module~casavariable module~phenvariable phenvariable proc~casaonly_luc->module~phenvariable module~pop_types POP_Types proc~casaonly_luc->module~pop_types module~popluc_module POPLUC_Module proc~casaonly_luc->module~popluc_module module~popluc_types POPLUC_Types proc~casaonly_luc->module~popluc_types module~popmodule POPModule proc~casaonly_luc->module~popmodule module~typedef TypeDef proc~casaonly_luc->module~typedef module~cable_phys_constants_mod cable_phys_constants_mod module~cable_carbon_module->module~cable_phys_constants_mod module~cable_runtime_opts_mod cable_runtime_opts_mod module~cable_common_module->module~cable_runtime_opts_mod module~cable_climate_type_mod cable_climate_type_mod module~cable_def_types_mod->module~cable_climate_type_mod module~cable_io_vars_module->module~cable_def_types_mod module~cable_luc_expt->module~cable_common_module module~cable_luc_expt->module~cable_def_types_mod module~cable_luc_expt->module~cable_io_vars_module module~cable_luc_expt->module~casa_ncdf_module netcdf netcdf module~cable_luc_expt->netcdf module~casa_inout_module->module~casavariable module~casa_offline_inout_module->module~casavariable module~casadimension->module~cable_def_types_mod module~casaparm->module~casadimension module~casavariable->module~casadimension module~phenvariable->module~casadimension module~pop_types->module~typedef module~pop_constants POP_Constants module~pop_types->module~pop_constants module~popluc_module->module~cable_common_module module~popluc_module->module~cable_io_vars_module module~popluc_module->module~cable_luc_expt module~popluc_module->module~casavariable module~popluc_module->module~pop_types module~popluc_module->module~popluc_types module~popluc_module->module~popmodule module~popluc_module->module~typedef module~popluc_constants POPLUC_CONSTANTS module~popluc_module->module~popluc_constants module~popluc_types->module~typedef module~popluc_types->module~popluc_constants module~popmodule->module~pop_types module~popmodule->module~typedef module~popmodule->module~pop_constants module~pop_constants->module~typedef module~popluc_constants->module~typedef

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

Arguments

Type IntentOptional 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

Calls

proc~~casaonly_luc~~CallsGraph proc~casaonly_luc CASAONLY_LUC pop_io pop_io proc~casaonly_luc->pop_io proc~biogeochem biogeochem proc~casaonly_luc->proc~biogeochem proc~is_casa_time IS_CASA_TIME proc~casaonly_luc->proc~is_casa_time proc~pop_init_single POP_init_single proc~casaonly_luc->proc~pop_init_single proc~pop_luc_casa_transfer POP_LUC_CASA_transfer proc~casaonly_luc->proc~pop_luc_casa_transfer proc~popdriver POPdriver proc~casaonly_luc->proc~popdriver proc~popluc_set_patchfrac POPLUC_set_patchfrac proc~casaonly_luc->proc~popluc_set_patchfrac proc~popluc_weights_transfer POPLUC_weights_transfer proc~casaonly_luc->proc~popluc_weights_transfer proc~poplucstep POPLUCStep proc~casaonly_luc->proc~poplucstep proc~read_casa_dump read_casa_dump proc~casaonly_luc->proc~read_casa_dump proc~read_luh2 READ_LUH2 proc~casaonly_luc->proc~read_luh2 proc~update_sum_casa update_sum_casa proc~casaonly_luc->proc~update_sum_casa proc~write_casa_output_nc WRITE_CASA_OUTPUT_NC proc~casaonly_luc->proc~write_casa_output_nc proc~write_luc_output_grid_nc WRITE_LUC_OUTPUT_GRID_NC proc~casaonly_luc->proc~write_luc_output_grid_nc proc~write_luc_restart_nc WRITE_LUC_RESTART_NC proc~casaonly_luc->proc~write_luc_restart_nc proc~zero_sum_casa zero_sum_casa proc~casaonly_luc->proc~zero_sum_casa proc~avgsoil avgsoil proc~biogeochem->proc~avgsoil proc~casa_allocation casa_allocation proc~biogeochem->proc~casa_allocation proc~casa_cnpbal casa_cnpbal proc~biogeochem->proc~casa_cnpbal proc~casa_cnpcycle casa_cnpcycle proc~biogeochem->proc~casa_cnpcycle proc~casa_cnpflux casa_cnpflux proc~biogeochem->proc~casa_cnpflux proc~casa_coeffplant casa_coeffplant proc~biogeochem->proc~casa_coeffplant proc~casa_coeffsoil casa_coeffsoil proc~biogeochem->proc~casa_coeffsoil proc~casa_delplant casa_delplant proc~biogeochem->proc~casa_delplant proc~casa_delsoil casa_delsoil proc~biogeochem->proc~casa_delsoil proc~casa_ndummy casa_ndummy proc~biogeochem->proc~casa_ndummy proc~casa_nuptake casa_nuptake proc~biogeochem->proc~casa_nuptake proc~casa_pdummy casa_pdummy proc~biogeochem->proc~casa_pdummy proc~casa_puptake casa_puptake proc~biogeochem->proc~casa_puptake proc~casa_rplant casa_rplant proc~biogeochem->proc~casa_rplant proc~casa_xkn casa_xkN proc~biogeochem->proc~casa_xkn proc~casa_xnp casa_xnp proc~biogeochem->proc~casa_xnp proc~casa_xrateplant casa_xrateplant proc~biogeochem->proc~casa_xrateplant proc~casa_xratesoil casa_xratesoil proc~biogeochem->proc~casa_xratesoil proc~phenology phenology proc~biogeochem->proc~phenology is_leapyear is_leapyear proc~is_casa_time->is_leapyear proc~initpop2d_poisson InitPOP2D_Poisson proc~pop_init_single->proc~initpop2d_poisson proc~layer_recruitment_single_patch layer_recruitment_single_patch proc~pop_init_single->proc~layer_recruitment_single_patch proc~zeropop ZeroPOP proc~pop_init_single->proc~zeropop 1166 1166 proc~pop_luc_casa_transfer->1166 proc~popstep POPStep proc~popdriver->proc~popstep proc~execute_luc_event execute_luc_event proc~poplucstep->proc~execute_luc_event proc~increment_age INCREMENT_AGE proc~poplucstep->proc~increment_age nf90_close nf90_close proc~read_casa_dump->nf90_close nf90_open nf90_open proc~read_casa_dump->nf90_open proc~get_var_ncr2 get_var_ncr2 proc~read_casa_dump->proc~get_var_ncr2 proc~get_var_ncr3 get_var_ncr3 proc~read_casa_dump->proc~get_var_ncr3 proc~stderr_nc stderr_nc proc~read_casa_dump->proc~stderr_nc nf90_get_var nf90_get_var proc~read_luh2->nf90_get_var proc~handle_err HANDLE_ERR proc~read_luh2->proc~handle_err proc~write_casa_output_nc->nf90_close nf90_create nf90_create proc~write_casa_output_nc->nf90_create nf90_def_dim nf90_def_dim proc~write_casa_output_nc->nf90_def_dim nf90_def_var nf90_def_var proc~write_casa_output_nc->nf90_def_var nf90_enddef nf90_enddef proc~write_casa_output_nc->nf90_enddef nf90_inq_dimid nf90_inq_dimid proc~write_casa_output_nc->nf90_inq_dimid nf90_inq_varid nf90_inq_varid proc~write_casa_output_nc->nf90_inq_varid proc~write_casa_output_nc->nf90_open nf90_put_att nf90_put_att proc~write_casa_output_nc->nf90_put_att nf90_put_var nf90_put_var proc~write_casa_output_nc->nf90_put_var nf90_redef nf90_redef proc~write_casa_output_nc->nf90_redef proc~write_casa_output_nc->proc~handle_err proc~write_luc_output_grid_nc->nf90_close proc~write_luc_output_grid_nc->nf90_create proc~write_luc_output_grid_nc->nf90_def_dim proc~write_luc_output_grid_nc->nf90_def_var proc~write_luc_output_grid_nc->nf90_enddef proc~write_luc_output_grid_nc->nf90_put_att proc~write_luc_output_grid_nc->nf90_put_var proc~write_luc_output_grid_nc->nf90_redef proc~write_luc_output_grid_nc->proc~handle_err proc~write_luc_restart_nc->nf90_close proc~write_luc_restart_nc->nf90_create proc~write_luc_restart_nc->nf90_def_dim proc~write_luc_restart_nc->nf90_def_var proc~write_luc_restart_nc->nf90_enddef proc~write_luc_restart_nc->nf90_put_att proc~write_luc_restart_nc->nf90_put_var proc~write_luc_restart_nc->nf90_redef proc~write_luc_restart_nc->proc~handle_err proc~casa_allocation->1166 proc~casa_wolf casa_wolf proc~casa_allocation->proc~casa_wolf 100 100 proc~casa_cnpbal->100 proc~casa_poolzero casa_poolzero proc~casa_cnpcycle->proc~casa_poolzero 20 20 proc~casa_delsoil->20 proc~casa_nuptake->100 proc~casa_nrequire casa_Nrequire proc~casa_nuptake->proc~casa_nrequire proc~casa_prequire casa_Prequire proc~casa_puptake->proc~casa_prequire proc~vcmax_np vcmax_np proc~casa_rplant->proc~vcmax_np proc~casa_xnp->20 proc~casa_xnp->proc~casa_nrequire proc~casa_xnp->proc~casa_prequire proc~get_var_ncr2->nf90_get_var proc~get_var_ncr2->nf90_inq_varid proc~get_var_ncr2->proc~stderr_nc proc~get_var_ncr3->nf90_get_var proc~get_var_ncr3->nf90_inq_varid proc~get_var_ncr3->proc~stderr_nc nf90_strerror nf90_strerror proc~handle_err->nf90_strerror proc~cumexponential CumExponential proc~initpop2d_poisson->proc~cumexponential proc~exponential Exponential proc~initpop2d_poisson->proc~exponential proc~get_allometry GET_ALLOMETRY proc~layer_recruitment_single_patch->proc~get_allometry proc~getdiagnostics GetDiagnostics proc~popstep->proc~getdiagnostics proc~getpatchfrequencies GetPatchFrequencies proc~popstep->proc~getpatchfrequencies proc~getuniqueagefrequencies GetUniqueAgeFrequencies proc~popstep->proc~getuniqueagefrequencies proc~patch_disturb Patch_disturb proc~popstep->proc~patch_disturb proc~patch_partial_disturb Patch_partial_disturb proc~popstep->proc~patch_partial_disturb proc~patch_partial_disturb2 Patch_partial_disturb2 proc~popstep->proc~patch_partial_disturb2 proc~patchannualdynamics PatchAnnualDynamics proc~popstep->proc~patchannualdynamics proc~stderr_nc->nf90_strerror proc~allometry Allometry proc~get_allometry->proc~allometry proc~getheight GetHeight proc~get_allometry->proc~getheight proc~williams_allometry Williams_Allometry proc~get_allometry->proc~williams_allometry proc~getdiagnostics->proc~get_allometry proc~interpolate_biomass_1d INTERPOLATE_BIOMASS_1D proc~getdiagnostics->proc~interpolate_biomass_1d proc~interpolate_biomass_2d INTERPOLATE_BIOMASS_2D proc~getdiagnostics->proc~interpolate_biomass_2d proc~smooth_flux SMOOTH_FLUX proc~getdiagnostics->proc~smooth_flux proc~getuniqueagefrequencies->proc~cumexponential proc~realexponential REALExponential proc~getuniqueagefrequencies->proc~realexponential proc~patch_disturb->proc~layer_recruitment_single_patch proc~patchannualdynamics->proc~get_allometry proc~layer_recruitment layer_recruitment proc~patchannualdynamics->proc~layer_recruitment proc~interpolate_biomass_1d->proc~realexponential proc~interpolate_biomass_2d->proc~realexponential proc~area_triangle Area_Triangle proc~interpolate_biomass_2d->proc~area_triangle proc~layer_recruitment->proc~get_allometry proc~regress REGRESS proc~smooth_flux->proc~regress