7 hprogram,hsurf,kluout,pfield)
42 USE modd_pgd_grid, ONLY : nl,llatlonmask,cgrid,xgrid_par,ngrid_par
47 cfile_hug_surf_gd, cfile_tg_surf_gd, &
48 cfile_hug_root_gd, cfile_tg_root_gd, &
49 cfile_hug_deep_gd, cfile_tg_deep_gd
51 USE modi_get_latlonmask_n
54 USE yomhook
,ONLY : lhook, dr_hook
55 USE parkind1
,ONLY : jprb
57 USE modi_get_type_dim_n
69 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
70 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
71 INTEGER,
INTENT(IN) :: kluout
72 REAL,
POINTER,
DIMENSION(:,:,:) :: pfield
80 REAL,
ALLOCATABLE,
DIMENSION(:,:) :: zfield
81 REAL(KIND=JPRB) :: zhook_handle
85 IF (lhook) CALL dr_hook(
'PREP_TEB_GARDEN_ASCLLV',0,zhook_handle)
98 ALLOCATE(zfield(il,3))
103 llatlonmask,cgrid,xgrid_par,ngrid_par)
114 hprogram,
'HUG_SURF: relative humidity',
'NAT',cfile_hug_surf_gd, &
115 ctype_hug,xundef,zfield(:,1))
117 hprogram,
'HUG_ROOT: relative humidity',
'NAT',cfile_hug_root_gd, &
118 ctype_hug,xundef,zfield(:,2))
120 hprogram,
'HUG_DEEP: relative humidity',
'NAT',cfile_hug_deep_gd, &
121 ctype_hug,xundef,zfield(:,3))
123 ALLOCATE(pfield(il,3,nvegtype))
125 pfield(:,1,jv) = zfield(:,1)
126 pfield(:,2,jv) = zfield(:,2)
127 pfield(:,3,jv) = zfield(:,3)
135 hprogram,
'TG_SURF: temperature',
'NAT',cfile_tg_surf_gd, &
136 ctype_tg,xundef,zfield(:,1))
138 hprogram,
'TG_ROOT: temperature',
'NAT',cfile_tg_root_gd, &
139 ctype_tg,xundef,zfield(:,2))
141 hprogram,
'TG_DEEP: temperature',
'NAT',cfile_tg_deep_gd, &
142 ctype_tg,xundef,zfield(:,3))
144 ALLOCATE(pfield(il,3,nvegtype))
146 pfield(:,1,jv) = zfield(:,1)
147 pfield(:,2,jv) = zfield(:,2)
148 pfield(:,3,jv) = zfield(:,3)
158 IF (lhook) CALL dr_hook(
'PREP_TEB_GARDEN_ASCLLV',1,zhook_handle)
subroutine get_type_dim_n(DTCO, U, HTYPE, KDIM)
subroutine prep_teb_garden_ascllv(DTCO, UG, U, USS, HPROGRAM, HSURF, KLUOUT, PFIELD)
subroutine pgd_field(DTCO, UG, U, USS, HPROGRAM, HFIELD, HAREA, HFILE, HFILETYPE, PUNIF, PFIELD, OPRESENT)
subroutine get_latlonmask_n(UG, OLATLONMASK, HGRID, PGRID_PAR, KGRID_PAR)