46 USE yomhook
,ONLY : lhook, dr_hook
47 USE parkind1
,ONLY : jprb
53 REAL,
DIMENSION(:,:,:),
INTENT(IN) :: pvar1
55 INTEGER,
DIMENSION(:,:,:),
INTENT(IN) :: kklin
57 REAL,
DIMENSION(:,:,:),
INTENT(IN) :: pcoeflin
59 REAL,
DIMENSION(SIZE(KKLIN,1),SIZE(KKLIN,2),SIZE(KKLIN,3)) &
67 REAL(KIND=JPRB) :: zhook_handle
70 IF (lhook) CALL dr_hook(
'MODI_VER_INTERP_LIN3D_SURF:VER_INTERP_LIN3D_SURF',0,zhook_handle)
71 DO jk2=1,
SIZE(kklin,3)
74 pvar2(ji,jj,jk2)= pcoeflin(ji,jj,jk2) *pvar1(ji,jj,kklin(ji,jj,jk2) )&
75 +(1.-pcoeflin(ji,jj,jk2))*pvar1(ji,jj,kklin(ji,jj,jk2)+1)
79 IF (lhook) CALL dr_hook(
'MODI_VER_INTERP_LIN3D_SURF:VER_INTERP_LIN3D_SURF',1,zhook_handle)
real function, dimension(size(kklin, 1), size(kklin, 2), size(kklin, 3)) ver_interp_lin3d_surf(PVAR1, KKLIN, PCOEFLIN)