Index

Rundeck: E6F40

Created: Fri May 17 03:30:27 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 For prog_veg, added option to calculate vegetation structure given geographic input files.
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_get_laidata : used from ent_prescribed_drv

prescr_veg_albedodata : used from ent_prescribed_drv

prescr_get_hdata : used from ent_prescribed_drv

prescr_calc_canopy_geometry : used from ent_prescribed_drv

prescr_get_carbonplant : used from ent_prescribed_drv

prescr_get_pft_vars : 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_get_laimaxdata : used from ent_prescribed_drv

init_entvegdata_geo : used from ent_prescribed_drv_geo

init_ent_laimax_geo : used from ent_prescribed_drv_geo

q_ij : used from ghy_com

qk_ij : used from ghy_com

dz_ij : used from ghy_com

fearth : used from ghy_com

read_stream : used from timestream_mod

get_vdata : used from veg_drv

get_soil_c_total : used from veg_drv

get_cropdata : used from veg_drv

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

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)

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)

laimaxdata : 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)

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

pft : integer

tilelai : character*80

ttt : character*80

prog_veg_flag : logical