35 USE modi_prep_buffer_grid
41 USE yomhook
,ONLY : lhook, dr_hook
42 USE parkind1
,ONLY : jprb
48 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
49 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
50 INTEGER,
INTENT(IN) :: kluout
51 REAL,
DIMENSION(:,:),
POINTER :: pfield
56 CHARACTER(LEN=6) :: yinmodel
57 REAL,
DIMENSION(:),
POINTER :: zfield
58 REAL(KIND=JPRB) :: zhook_handle
65 IF (lhook) CALL dr_hook(
'PREP_WATFLUX_BUFFER',0,zhook_handle)
80 SELECT CASE (yinmodel)
83 ALLOCATE(pfield(nni,1))
84 pfield(:,1) = zfield(:)
93 SELECT CASE (yinmodel)
96 ALLOCATE(pfield(nni,1))
97 pfield(:,1) = zfield(:)
106 cinterp_type=
'BUFFER'
107 IF (lhook) CALL dr_hook(
'PREP_WATFLUX_BUFFER',1,zhook_handle)
subroutine prep_buffer_grid(KLUOUT, HINMODEL, TPTIME_BUF)
subroutine prep_watflux_buffer(HPROGRAM, HSURF, KLUOUT, PFIELD)
subroutine read_buffer_t2(KLUOUT, HINMODEL, PFIELD)
subroutine read_buffer_zs(KLUOUT, HINMODEL, PFIELD)