Index

Rundeck: E6F40

Created: Fri May 17 03:30:27 EDT 2024

update_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 update_vegetation_data( entcells, im, jm, i0, i1, j0, j1, jday, jyear )

Variables:

grid : used from domain_decomp_atm

lat2d : used from geom

prescr_get_laidata : used from ent_prescribed_drv

prescr_veg_albedodata : used from ent_prescribed_drv

prescr_get_cropdata : used from ent_prescribed_drv

prescr_calc_lai : used from ent_prescr_veg

read_stream : used from timestream_mod

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)

jyear : integer, intent(in)

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

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

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

i : integer

j : integer

year : integer

year_old : integer, save

Initial Value = -1

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

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

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

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

dc : real*8