49 USE modi_read_nam_pgd_orog_filter
50 USE modi_orography_filter
52 USE yomhook
,ONLY : lhook, dr_hook
53 USE parkind1
,ONLY : jprb
63 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
73 REAL(KIND=JPRB) :: zhook_handle
80 IF (lhook) CALL dr_hook(
'PGD_OROGRAPHY',0,zhook_handle)
96 IF (lhook) CALL dr_hook(
'PGD_OROG_FILTER',1,zhook_handle)
subroutine read_nam_pgd_orog_filter(HPROGRAM, KZSFILTER)
subroutine pgd_orog_filter(U, HPROGRAM)
subroutine orography_filter(HGRID, PGRID_PAR, PSEA, KZSFILTER, PZS)