Index

Rundeck: P1SoM40

Created: Thu May 9 03:30:17 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

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)

entcells : type(entcelltype_public), intent(inout), dimension(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)

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)