7 kluout,plat,plon,pvalue,hsubroutine,knblines,pnodata)
48 USE modi_average1_cover
49 USE modi_average1_orography
52 USE modi_average1_mesh
55 USE yomhook
,ONLY : lhook, dr_hook
56 USE parkind1
,ONLY : jprb
66 INTEGER,
INTENT(IN) :: kluout
67 REAL,
DIMENSION(:),
INTENT(IN) :: plat
68 REAL,
DIMENSION(:),
INTENT(IN) :: plon
69 REAL,
DIMENSION(:),
INTENT(IN) :: pvalue
70 CHARACTER(LEN=6),
INTENT(IN) :: hsubroutine
71 INTEGER,
OPTIONAL,
INTENT(IN) :: knblines
72 REAL,
OPTIONAL,
INTENT(IN) :: pnodata
73 REAL(KIND=JPRB) :: zhook_handle
82 IF (lhook) CALL dr_hook(
'PT_BY_PT_TREATMENT',0,zhook_handle)
84 IF (present(knblines)) inblines = knblines
86 SELECT CASE (hsubroutine)
89 IF (present(pnodata))
THEN
96 IF (present(pnodata))
THEN
98 kluout,inblines,plat,plon,pvalue,pnodata)
101 kluout,inblines,plat,plon,pvalue)
105 IF (present(pnodata))
THEN
106 CALL
average1_cti(kluout,inblines,plat,plon,pvalue,pnodata)
112 IF (present(pnodata))
THEN
113 CALL
average1_ldb(kluout,inblines,plat,plon,pvalue,
'D',pnodata)
119 IF (present(pnodata))
THEN
120 CALL
average1_ldb(kluout,inblines,plat,plon,pvalue,
'S',pnodata)
126 IF (present(pnodata))
THEN
133 IF (lhook) CALL dr_hook(
'PT_BY_PT_TREATMENT',1,zhook_handle)
subroutine average1_ldb(KLUOUT, KNBLINES, PLAT, PLON, PVALUE, HTYPE, PNODATA)
subroutine pt_by_pt_treatment(USS, KLUOUT, PLAT, PLON, PVALUE, HSUBROUTINE, KNBLINES, PNODATA)
subroutine average1_orography(USS, KLUOUT, KNBLINES, PLAT, PLON, PVALUE, PNODATA)
subroutine average1_mesh(KLUOUT, KNBLINES, PLAT, PLON, PVALUE, PNODATA)
subroutine average1_cti(KLUOUT, KNBLINES, PLAT, PLON, PVALUE, PNODATA)
subroutine average1_cover(KLUOUT, KNBLINES, PLAT, PLON, PVALUE, PNODATA)