Index

Rundeck: P1SoM40

Created: Thu May 9 03:30:17 EDT 2024

set_vegetation_data

Module: ENT_DRV

File: ENT_DRV.f

Summary: read standard GISS vegetation BC's and pass them to Ent for initialization of Ent cells. Halo cells ignored, i.e. entcells should be a slice without halo
Author :
Version:

---

Declaration:

subroutine set_vegetation_data( entcells, im, jm, i0, i1, j0, j1, jday, year, reinitialize, prog_veg)

Variables:

grid : used from domain_decomp_atm

lat2d : used from geom

init_canopy_physical : used from ent_prescribed_drv

prescr_vegdata : used from ent_prescribed_drv

prescr_get_laidata : used from ent_prescribed_drv

prescr_veg_albedodata : used from ent_prescribed_drv

prescr_get_hdata : used from ent_prescribed_drv

prescr_get_woodydiameter : used from ent_prescribed_drv

prescr_get_pop : used from ent_prescribed_drv

prescr_get_crownrad : used from ent_prescribed_drv

prescr_get_carbonplant : used from ent_prescribed_drv

prescr_get_initnm : used from ent_prescribed_drv

prescr_get_rootprof : used from ent_prescribed_drv

prescr_get_soilcolor : used from ent_prescribed_drv

prescr_get_soilpools : used from ent_prescribed_drv

prescr_get_soil_c_total : used from ent_prescribed_drv

init_ent_laidata : used from ent_prescribed_drv

init_ent_hdata : used from ent_prescribed_drv

prescr_get_ent_plant : used from ent_prescribed_drv

prescr_calc_shc : used from ent_prescr_veg

prescr_calcconst : used from ent_prescr_veg

q_ij : used from ghy_com

qk_ij : used from ghy_com

dz_ij : used from ghy_com

fearth : used from ghy_com

im : integer, intent(in)

jm : integer, intent(in)

i0 : integer, intent(in)

i1 : integer, intent(in)

j0 : integer, intent(in)

j1 : integer, intent(in)

jday : integer, intent(in)

year : integer, intent(in)

entcells : type(entcelltype_public), intent(inout), dimension(I0:I1, J0:J1)

reinitialize : logical

prog_veg : logical, intent(in), optional

vegdata : real*8, dimension(n_covertypes, i0:i1, j0:j1)

albedodata : real*8, dimension(n_bands, n_covertypes, i0:i1, j0:j1)

laidata : real*8, dimension(n_covertypes, i0:i1, j0:j1)

hdata : real*8, dimension(n_covertypes, i0:i1, j0:j1)

nmdata : real*8, dimension(n_covertypes)

rootprofdata : real*8, dimension(n_covertypes, n_depth)

popdata : real*8, dimension(n_covertypes, i0:i1, j0:j1)

dbhdata : real*8, dimension(n_covertypes, i0:i1, j0:j1)

craddata : real*8, dimension(n_covertypes, i0:i1, j0:j1)

cpooldata : real*8, dimension(n_covertypes, n_bpools, i0:i1, j0:j1)

soil_color : integer, dimension(n_covertypes)

soil_texture : real*8, dimension(n_soil_textures, i0:i1, j0:j1)

ci_ini : real*8, dimension(i0:i1, j0:j1)

cnc_ini : real*8, dimension(i0:i1, j0:j1)

tcan_ini : real*8, dimension(i0:i1, j0:j1)

qf_ini : real*8, dimension(i0:i1, j0:j1)

tpool_ini : real*8, dimension(n_pft, ptrace, npools-nlive, n_casa_layers, i0:i1, j0:j1)

i : integer

j : integer

k : integer

heat_capacity : real*8

vdata_h : real*8, dimension(grid%I_STRT_HALO:grid%I_STOP_HALO, grid%J_STRT_HALO:grid%J_STOP_HALO, N_COVERTYPES)

cropdata_h : real*8, dimension(grid%I_STRT_HALO:grid%I_STOP_HALO, grid%J_STRT_HALO:grid%J_STOP_HALO)

soil_c_total_h : real*8, dimension(N_CASA_LAYERS, grid%I_STRT_HALO:grid%I_STOP_HALO, grid%J_STRT_HALO:grid%J_STOP_HALO)

hemi : integer, dimension(I0:I1, J0:J1)