49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
59 TYPE(flake_t),
INTENT(INOUT) :: f
61 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
62 INTEGER,
INTENT(IN) :: ki
63 INTEGER,
INTENT(IN) :: ks
64 REAL,
DIMENSION(KI,KS),
INTENT(OUT) :: pfield
72 REAL,
DIMENSION(SIZE(F%XTS),KS) :: zinf
73 INTEGER,
DIMENSION(KI) :: imask
74 REAL,
DIMENSION(KI) :: zout
75 REAL,
DIMENSION(SIZE(F%XTS)) :: zaux
77 REAL(KIND=JPRB) :: zhook_handle
81 IF (lhook) CALL dr_hook(
'GET_SERIES_N',0,zhook_handle)
88 IF (ks>5) zinf(:,6:ks)=xundef
94 pfield(ki,is)=zout(ki)
98 IF (lhook) CALL dr_hook(
'GET_SERIES_N',1,zhook_handle)
subroutine get_series_n(F, HPROGRAM, KI, KS, PFIELD)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine get_1d_mask(KSIZE, KFRAC, PFRAC, KMASK)