15 REAL,
DIMENSION(:,:,:),
INTENT(IN) :: pvar1
17 INTEGER,
DIMENSION(:,:,:),
INTENT(IN) :: kklin
19 REAL,
DIMENSION(:,:,:),
INTENT(IN) :: pcoeflin
21 REAL,
DIMENSION(SIZE(KKLIN,1),SIZE(KKLIN,2),SIZE(KKLIN,3)) &
31 REAL,
DIMENSION(:,:),
INTENT(IN) :: pvar1
33 INTEGER,
DIMENSION(:,:),
INTENT(IN) :: kklin
35 REAL,
DIMENSION(:,:),
INTENT(IN) :: pcoeflin
37 REAL,
DIMENSION(SIZE(KKLIN,1),SIZE(KKLIN,2)) &
47 REAL,
DIMENSION(:),
INTENT(IN) :: pvar1
49 INTEGER,
DIMENSION(:),
INTENT(IN) :: kklin
51 REAL,
DIMENSION(:),
INTENT(IN) :: pcoeflin
53 REAL,
DIMENSION(SIZE(KKLIN)) :: pvar2
101 USE yomhook
,ONLY : lhook, dr_hook
102 USE parkind1
,ONLY : jprb
104 USE modi_ver_interp_lin3d_surf
110 REAL,
DIMENSION(:,:,:),
INTENT(IN) :: pvar1
112 INTEGER,
DIMENSION(:,:,:),
INTENT(IN) :: kklin
114 REAL,
DIMENSION(:,:,:),
INTENT(IN) :: pcoeflin
116 REAL,
DIMENSION(SIZE(KKLIN,1),SIZE(KKLIN,2),SIZE(KKLIN,3)) &
124 REAL(KIND=JPRB) :: zhook_handle
127 IF (lhook) CALL dr_hook(
'MODI_VER_INTERP_LIN_SURF:VER_INTERP_LIN3D_SURF_BIS',0,zhook_handle)
128 pvar2(:,:,:)=
ver_interp_lin3d_surf(pvar1(:,:,:),kklin(:,:,:),pcoeflin(:,:,:))
129 IF (lhook) CALL dr_hook(
'MODI_VER_INTERP_LIN_SURF:VER_INTERP_LIN3D_SURF_BIS',1,zhook_handle)
177 USE modi_ver_interp_lin3d_surf
180 USE yomhook
,ONLY : lhook, dr_hook
181 USE parkind1
,ONLY : jprb
187 REAL,
DIMENSION(:,:),
INTENT(IN) :: pvar1
189 INTEGER,
DIMENSION(:,:),
INTENT(IN) :: kklin
191 REAL,
DIMENSION(:,:),
INTENT(IN) :: pcoeflin
193 REAL,
DIMENSION(SIZE(KKLIN,1),SIZE(KKLIN,2)) :: pvar2
199 REAL,
DIMENSION(1,SIZE(PVAR1,1),SIZE(PVAR1,2)) :: zvar1
201 REAL,
DIMENSION(1,SIZE(KKLIN,1),SIZE(KKLIN,2)) :: zvar2
203 INTEGER,
DIMENSION(1,SIZE(KKLIN,1),SIZE(KKLIN,2)) :: iklin
205 REAL,
DIMENSION(1,SIZE(PCOEFLIN,1),SIZE(PCOEFLIN,2)):: zcoeflin
206 REAL(KIND=JPRB) :: zhook_handle
210 IF (lhook) CALL dr_hook(
'MODI_VER_INTERP_LIN_SURF:VER_INTERP_LIN2D_SURF',0,zhook_handle)
211 zvar1(1,:,:)=pvar1(:,:)
212 iklin(1,:,:)=kklin(:,:)
213 zcoeflin(1,:,:)=pcoeflin(:,:)
215 zvar2(:,:,:)=
ver_interp_lin3d_surf(zvar1(:,:,:),iklin(:,:,:),zcoeflin(:,:,:))
217 pvar2(:,:) =zvar2(1,:,:)
218 IF (lhook) CALL dr_hook(
'MODI_VER_INTERP_LIN_SURF:VER_INTERP_LIN2D_SURF',1,zhook_handle)
266 USE modi_ver_interp_lin3d_surf
269 USE yomhook
,ONLY : lhook, dr_hook
270 USE parkind1
,ONLY : jprb
276 REAL,
DIMENSION(:),
INTENT(IN) :: pvar1
278 INTEGER,
DIMENSION(:),
INTENT(IN) :: kklin
280 REAL,
DIMENSION(:),
INTENT(IN) :: pcoeflin
282 REAL,
DIMENSION(SIZE(KKLIN)) :: pvar2
288 INTEGER,
DIMENSION(1,1,SIZE(KKLIN)) :: iklin
290 REAL,
DIMENSION(1,1,SIZE(PCOEFLIN)) :: zcoeflin
292 REAL,
DIMENSION(1,1,SIZE(PVAR1)) :: zvar1
294 REAL,
DIMENSION(1,1,SIZE(KKLIN)) :: zvar2
295 REAL(KIND=JPRB) :: zhook_handle
299 IF (lhook) CALL dr_hook(
'MODI_VER_INTERP_LIN_SURF:VER_INTERP_LIN1D_SURF',0,zhook_handle)
300 zvar1(1,1,:)=pvar1(:)
301 iklin(1,1,:)=kklin(:)
302 zcoeflin(1,1,:)=pcoeflin(:)
304 zvar2(:,:,:)=
ver_interp_lin3d_surf(zvar1(:,:,:),iklin(:,:,:),zcoeflin(:,:,:))
306 pvar2(:) =zvar2(1,1,:)
307 IF (lhook) CALL dr_hook(
'MODI_VER_INTERP_LIN_SURF:VER_INTERP_LIN1D_SURF',1,zhook_handle)
real function, dimension(size(kklin, 1), size(kklin, 2), size(kklin, 3)) ver_interp_lin3d_surf(PVAR1, KKLIN, PCOEFLIN)
real function, dimension(size(kklin)) ver_interp_lin1d_surf(PVAR1, KKLIN, PCOEFLIN)
real function, dimension(size(kklin, 1), size(kklin, 2), size(kklin, 3)) ver_interp_lin3d_surf_bis(PVAR1, KKLIN, PCOEFLIN)
real function, dimension(size(kklin, 1), size(kklin, 2)) ver_interp_lin2d_surf(PVAR1, KKLIN, PCOEFLIN)