13 REAL,
DIMENSION(:,:),
INTENT(IN) :: pdg1
14 REAL,
DIMENSION(:,:),
INTENT(IN) :: pt1
15 REAL,
DIMENSION(:),
INTENT(IN) :: pdg2
16 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pt2
22 REAL,
DIMENSION(:,:),
INTENT(IN) :: pdg1
23 REAL,
DIMENSION(:,:),
INTENT(IN) :: pt1
24 REAL,
DIMENSION(:,:),
INTENT(IN) :: pdg2
25 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pt2
37 USE modi_vertical_grid_nat
39 USE yomhook
,ONLY : lhook, dr_hook
40 USE parkind1
,ONLY : jprb
46 REAL,
DIMENSION(:,:),
INTENT(IN) :: pdg1
47 REAL,
DIMENSION(:,:),
INTENT(IN) :: pt1
48 REAL,
DIMENSION(:),
INTENT(IN) :: pdg2
49 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pt2
53 REAL,
DIMENSION(SIZE(PT2,1),SIZE(PT2,2)) :: zdg2
57 REAL(KIND=JPRB) :: zhook_handle
59 IF (lhook) CALL dr_hook(
'MODI_INTERP_GRID_NAT:INTERP_GRID_NAT_1D',0,zhook_handle)
67 IF (lhook) CALL dr_hook(
'MODI_INTERP_GRID_NAT:INTERP_GRID_NAT_1D',1,zhook_handle)
75 USE modi_vertical_grid_nat
77 USE yomhook
,ONLY : lhook, dr_hook
78 USE parkind1
,ONLY : jprb
84 REAL,
DIMENSION(:,:),
INTENT(IN) :: pdg1
85 REAL,
DIMENSION(:,:),
INTENT(IN) :: pt1
86 REAL,
DIMENSION(:,:),
INTENT(IN) :: pdg2
87 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pt2
91 REAL(KIND=JPRB) :: zhook_handle
94 IF (lhook) CALL dr_hook(
'MODI_INTERP_GRID_NAT:INTERP_GRID_NAT_2D',0,zhook_handle)
98 IF (lhook) CALL dr_hook(
'MODI_INTERP_GRID_NAT:INTERP_GRID_NAT_2D',1,zhook_handle)
subroutine interp_grid_nat_2d(PDG1, PT1, PDG2, PT2)
subroutine vertical_grid_nat(PDG1, PT1, PDG2, PT2)
subroutine interp_grid_nat_1d(PDG1, PT1, PDG2, PT2)