7 hprogram,kluout,kcode,pfield,hfield,pdef,knpts)
16 USE yomhook
,ONLY : lhook, dr_hook
17 USE parkind1
,ONLY : jprb
22 USE modi_interpol_field2d
33 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
34 INTEGER,
INTENT(IN) :: kluout
35 INTEGER,
DIMENSION(:),
INTENT(INOUT):: kcode
42 REAL,
DIMENSION(:),
INTENT(INOUT):: pfield
43 CHARACTER(LEN=*),
INTENT(IN) :: hfield
44 REAL,
OPTIONAL,
INTENT(IN) :: pdef
45 INTEGER,
OPTIONAL,
INTENT(IN) :: knpts
50 REAL,
DIMENSION(SIZE(PFIELD),1) :: zfield
51 REAL,
DIMENSION(1) :: zdef
53 REAL(KIND=JPRB) :: zhook_handle
56 IF (lhook) CALL dr_hook(
'INTERPOL_FIELD',0,zhook_handle)
59 IF (present(knpts)) inpts = knpts
61 zfield(:,1) = pfield(:)
63 IF (present(pdef))
THEN
66 hprogram,kluout,kcode,zfield,hfield,zdef,knpts=inpts)
69 hprogram,kluout,kcode,zfield,hfield,knpts=inpts)
72 pfield(:) = zfield(:,1)
73 IF (lhook) CALL dr_hook(
'INTERPOL_FIELD',1,zhook_handle)
subroutine interpol_field2d(UG, U, HPROGRAM, KLUOUT, KCODE, PFIELD, HFIELD, PDEF, KNPTS)
subroutine interpol_field(UG, U, HPROGRAM, KLUOUT, KCODE, PFIELD, HFIELD, PDEF, KNPTS)