18 USE yomhook
,ONLY : lhook, dr_hook
19 USE parkind1
,ONLY : jprb
28 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
29 CHARACTER(LEN=10),
INTENT(IN) :: hgrid
30 CHARACTER(LEN=6),
INTENT(IN) :: hrec
31 INTEGER,
INTENT(IN) :: kdim
32 INTEGER,
INTENT(IN) :: ksize
33 REAL,
DIMENSION(KDIM ),
INTENT(IN) :: pfield
34 REAL,
DIMENSION(KSIZE),
INTENT(OUT):: pfield_split
38 REAL(KIND=JPRB) :: zhook_handle
41 IF (lhook) CALL dr_hook(
'MODE_SPLIT_GRID_PARAMETER_OL:SPLIT_GRID_PARAMETERX1_OL',0,zhook_handle)
46 CALL
abor1_sfx(
'ERROR in SPLIT_GRID_OL for grid, '//hgrid//
', case need to be coded')
50 IF (lhook) CALL dr_hook(
'MODE_SPLIT_GRID_PARAMETER_OL:SPLIT_GRID_PARAMETERX1_OL',1,zhook_handle)
62 USE yomhook
,ONLY : lhook, dr_hook
63 USE parkind1
,ONLY : jprb
70 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
71 CHARACTER(LEN=10),
INTENT(IN) :: hgrid
72 CHARACTER(LEN=6),
INTENT(IN) :: hrec
73 INTEGER,
INTENT(IN) :: kfield
74 INTEGER,
INTENT(OUT):: kfield_split
77 REAL(KIND=JPRB) :: zhook_handle
80 IF (lhook) CALL dr_hook(
'MODE_SPLIT_GRID_PARAMETER_OL:SPLIT_GRID_PARAMETERN0_OL',0,zhook_handle)
87 IF (lhook) CALL dr_hook(
'MODE_SPLIT_GRID_PARAMETER_OL:SPLIT_GRID_PARAMETERN0_OL',1,zhook_handle)
subroutine split_grid_parametern0_ol(HPROGRAM, HGRID, HREC, KFIELD, KFIELD_SPLIT)
subroutine abor1_sfx(YTEXT)
subroutine split_grid_parameterx1_ol(HPROGRAM, HGRID, HREC, KDIM, KSIZE, PFIELD, PFIELD_SPLIT)