7 hprogram,hsurf,kluout,pfield)
42 USE modd_pgd_grid, ONLY : nl,llatlonmask,cgrid,xgrid_par,ngrid_par
47 cfile_hug_surf, cfile_tg_surf, &
48 cfile_hug_root, cfile_tg_root, &
49 cfile_hug_deep, cfile_tg_deep
51 USE modi_get_latlonmask_n
55 USE yomhook
,ONLY : lhook, dr_hook
56 USE parkind1
,ONLY : jprb
58 USE modi_get_type_dim_n
70 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
71 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
72 INTEGER,
INTENT(IN) :: kluout
73 REAL,
POINTER,
DIMENSION(:,:,:) :: pfield
81 REAL,
ALLOCATABLE,
DIMENSION(:,:) :: zfield
82 REAL(KIND=JPRB) :: zhook_handle
86 IF (lhook) CALL dr_hook(
'PREP_ISBA_ASCLLV',0,zhook_handle)
99 ALLOCATE(zfield(il,3))
104 llatlonmask,cgrid,xgrid_par,ngrid_par)
115 hprogram,
'HUG_SURF: relative humidity',
'NAT',cfile_hug_surf, &
116 ctype_hug,xundef,zfield(:,1))
118 hprogram,
'HUG_ROOT: relative humidity',
'NAT',cfile_hug_root, &
119 ctype_hug,xundef,zfield(:,2))
121 hprogram,
'HUG_DEEP: relative humidity',
'NAT',cfile_hug_deep, &
122 ctype_hug,xundef,zfield(:,3))
124 ALLOCATE(pfield(il,3,nvegtype))
126 pfield(:,1,jv) = zfield(:,1)
127 pfield(:,2,jv) = zfield(:,2)
128 pfield(:,3,jv) = zfield(:,3)
136 hprogram,
'TG_SURF: temperature',
'NAT',cfile_tg_surf, &
137 ctype_tg,xundef,zfield(:,1))
139 hprogram,
'TG_ROOT: temperature',
'NAT',cfile_tg_root, &
140 ctype_tg,xundef,zfield(:,2))
142 hprogram,
'TG_DEEP: temperature',
'NAT',cfile_tg_deep, &
143 ctype_tg,xundef,zfield(:,3))
145 ALLOCATE(pfield(il,3,nvegtype))
147 pfield(:,1,jv) = zfield(:,1)
148 pfield(:,2,jv) = zfield(:,2)
149 pfield(:,3,jv) = zfield(:,3)
153 CALL
abor1_sfx(
'PREP_ISBA_ASCLLV: '//trim(hsurf)//
" initialization not implemented !")
163 IF (lhook) CALL dr_hook(
'PREP_ISBA_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_isba_ascllv(DTCO, UG, U, USS, HPROGRAM, HSURF, KLUOUT, PFIELD)
subroutine abor1_sfx(YTEXT)
subroutine get_latlonmask_n(UG, OLATLONMASK, HGRID, PGRID_PAR, KGRID_PAR)