7 hprogram,hsurf,kluout,pfield)
44 USE modd_pgd_grid, ONLY : nl,llatlonmask,cgrid,xgrid_par,ngrid_par
49 cfile_hug_surf_gr, cfile_tg_surf_gr, &
50 cfile_hug_root_gr, cfile_tg_root_gr, &
51 cfile_hug_deep_gr, cfile_tg_deep_gr
53 USE modi_get_latlonmask_n
56 USE yomhook
,ONLY : lhook, dr_hook
57 USE parkind1
,ONLY : jprb
59 USE modi_get_type_dim_n
71 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
72 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
73 INTEGER,
INTENT(IN) :: kluout
74 REAL,
POINTER,
DIMENSION(:,:,:) :: pfield
82 REAL,
ALLOCATABLE,
DIMENSION(:,:) :: zfield
83 REAL(KIND=JPRB) :: zhook_handle
87 IF (lhook) CALL dr_hook(
'PREP_TEB_GREENROOF_ASCLLV',0,zhook_handle)
100 ALLOCATE(zfield(il,3))
105 llatlonmask,cgrid,xgrid_par,ngrid_par)
116 hprogram,
'HUG_SURF: relative humidity',
'TWN',cfile_hug_surf_gr, &
117 ctype_hug,xundef,zfield(:,1))
119 hprogram,
'HUG_ROOT: relative humidity',
'TWN',cfile_hug_root_gr, &
120 ctype_hug,xundef,zfield(:,2))
122 hprogram,
'HUG_DEEP: relative humidity',
'TWN',cfile_hug_deep_gr, &
123 ctype_hug,xundef,zfield(:,3))
125 ALLOCATE(pfield(il,3,nvegtype))
127 pfield(:,1,jv) = zfield(:,1)
128 pfield(:,2,jv) = zfield(:,2)
129 pfield(:,3,jv) = zfield(:,3)
137 hprogram,
'TG_SURF: temperature',
'TWN',cfile_tg_surf_gr, &
138 ctype_tg,xundef,zfield(:,1))
140 hprogram,
'TG_ROOT: temperature',
'TWN',cfile_tg_root_gr, &
141 ctype_tg,xundef,zfield(:,2))
143 hprogram,
'TG_DEEP: temperature',
'TWN',cfile_tg_deep_gr, &
144 ctype_tg,xundef,zfield(:,3))
146 ALLOCATE(pfield(il,3,nvegtype))
148 pfield(:,1,jv) = zfield(:,1)
149 pfield(:,2,jv) = zfield(:,2)
150 pfield(:,3,jv) = zfield(:,3)
160 IF (lhook) CALL dr_hook(
'PREP_TEB_GREENROOF_ASCLLV',1,zhook_handle)
subroutine get_type_dim_n(DTCO, U, HTYPE, KDIM)
subroutine pgd_field(DTCO, UG, U, USS, HPROGRAM, HFIELD, HAREA, HFILE, HFILETYPE, PUNIF, PFIELD, OPRESENT)
subroutine prep_teb_greenroof_ascllv(DTCO, UG, U, USS, HPROGRAM, HSURF, KLUOUT, PFIELD)
subroutine get_latlonmask_n(UG, OLATLONMASK, HGRID, PGRID_PAR, KGRID_PAR)