17 USE yomhook
,ONLY : lhook, dr_hook
18 USE parkind1
,ONLY : jprb
24 USE modi_split_grid_parameterx1_mnh
31 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
32 CHARACTER(LEN=10),
INTENT(IN) :: hgrid
33 CHARACTER(LEN=6),
INTENT(IN) :: hrec
34 INTEGER,
INTENT(IN) :: kdim
35 INTEGER,
INTENT(IN) :: ksize
36 REAL,
DIMENSION(KDIM ),
INTENT(IN) :: pfield
37 REAL,
DIMENSION(KSIZE),
INTENT(OUT):: pfield_split
41 REAL(KIND=JPRB) :: zhook_handle
43 IF (lhook) CALL dr_hook(
'MODE_SPLIT_GRID_PARAMETER:SPLIT_GRID_PARAMETERX1',0,zhook_handle)
45 IF (hprogram==
'MESONH')
THEN
47 CALL split_grid_parameterx1_mnh(hgrid,hrec,kdim,ksize,pfield,pfield_split)
52 IF (hprogram==
'OFFLIN')
THEN
58 IF (lhook) CALL dr_hook(
'MODE_SPLIT_GRID_PARAMETER:SPLIT_GRID_PARAMETERX1',1,zhook_handle)
70 USE yomhook
,ONLY : lhook, dr_hook
71 USE parkind1
,ONLY : jprb
77 USE modi_split_grid_parametern0_mnh
84 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
85 CHARACTER(LEN=10),
INTENT(IN) :: hgrid
86 CHARACTER(LEN=6),
INTENT(IN) :: hrec
87 INTEGER,
INTENT(IN) :: kfield
88 INTEGER,
INTENT(OUT):: kfield_split
91 REAL(KIND=JPRB) :: zhook_handle
93 IF (lhook) CALL dr_hook(
'MODE_SPLIT_GRID_PARAMETER:SPLIT_GRID_PARAMETERN0',0,zhook_handle)
97 IF (hprogram==
'MESONH')
THEN
99 CALL split_grid_parametern0_mnh(hgrid,hrec,kfield,kfield_split)
103 IF (hprogram==
'OFFLIN')
THEN
109 IF (lhook) CALL dr_hook(
'MODE_SPLIT_GRID_PARAMETER:SPLIT_GRID_PARAMETERN0',1,zhook_handle)
subroutine split_grid_parametern0_ol(HPROGRAM, HGRID, HREC, KFIELD, KFIELD_SPLIT)
subroutine split_grid_parametern0(HPROGRAM, HGRID, HREC, KFIELD, KFIELD_SPLIT)
subroutine split_grid_parameterx1_ol(HPROGRAM, HGRID, HREC, KDIM, KSIZE, PFIELD, PFIELD_SPLIT)
subroutine split_grid_parameterx1(HPROGRAM, HGRID, HREC, KDIM, KSIZE, PFIELD, PFIELD_SPLIT)