13 REAL,
DIMENSION(:,:),
INTENT(IN) :: pz1
14 REAL,
DIMENSION(:,:),
INTENT(IN) :: pt1
15 REAL,
DIMENSION(:),
INTENT(IN) :: pz2
16 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pt2
22 REAL,
DIMENSION(:,:),
INTENT(IN) :: pz1
23 REAL,
DIMENSION(:,:),
INTENT(IN) :: pt1
24 REAL,
DIMENSION(:,:),
INTENT(IN) :: pz2
25 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pt2
62 USE modi_coef_ver_interp_lin_surf
65 USE yomhook
,ONLY : lhook, dr_hook
66 USE parkind1
,ONLY : jprb
72 REAL,
DIMENSION(:,:),
INTENT(IN) :: pz1
73 REAL,
DIMENSION(:,:),
INTENT(IN) :: pt1
74 REAL,
DIMENSION(:),
INTENT(IN) :: pz2
75 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pt2
80 REAL,
DIMENSION(SIZE(PZ1,1),SIZE(PZ2)) :: zz2
81 REAL,
DIMENSION(SIZE(PZ1,1),SIZE(PZ2)) :: zcoeflin
82 INTEGER,
DIMENSION(SIZE(PZ1,1),SIZE(PZ2)) :: iklin
84 REAL(KIND=JPRB) :: zhook_handle
86 IF (lhook) CALL dr_hook(
'MODI_INTERP_GRID:INTERP_GRID_1D',0,zhook_handle)
100 IF (pt1(ji,jl)==xundef)
THEN
105 IF (lhook) CALL dr_hook(
'MODI_INTERP_GRID:INTERP_GRID_1D',1,zhook_handle)
114 USE modi_coef_ver_interp_lin_surf
117 USE yomhook
,ONLY : lhook, dr_hook
118 USE parkind1
,ONLY : jprb
124 REAL,
DIMENSION(:,:),
INTENT(IN) :: pz1
125 REAL,
DIMENSION(:,:),
INTENT(IN) :: pt1
126 REAL,
DIMENSION(:,:),
INTENT(IN) :: pz2
127 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pt2
132 REAL,
DIMENSION(SIZE(PZ1,1),SIZE(PZ2,2)) :: zcoeflin
133 INTEGER,
DIMENSION(SIZE(PZ1,1),SIZE(PZ2,2)) :: iklin
135 REAL(KIND=JPRB) :: zhook_handle
137 IF (lhook) CALL dr_hook(
'MODI_INTERP_GRID:INTERP_GRID_2D',0,zhook_handle)
146 IF (pt1(ji,jl)==xundef)
THEN
151 IF (lhook) CALL dr_hook(
'MODI_INTERP_GRID:INTERP_GRID_2D',1,zhook_handle)
subroutine interp_grid_2d(PZ1, PT1, PZ2, PT2)
subroutine interp_grid_1d(PZ1, PT1, PZ2, PT2)
subroutine coef_ver_interp_lin_surf(PZ1, PZ2, KKLIN, PCOEFLIN)