36 USE modi_prep_buffer_grid
42 USE yomhook
,ONLY : lhook, dr_hook
43 USE parkind1
,ONLY : jprb
49 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
50 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
51 INTEGER,
INTENT(IN) :: kluout
52 REAL,
DIMENSION(:,:),
POINTER :: pfield
57 CHARACTER(LEN=6) :: yinmodel
58 REAL,
DIMENSION(:),
POINTER :: zfield
59 REAL(KIND=JPRB) :: zhook_handle
66 IF (lhook) CALL dr_hook(
'PREP_SEAFLUX_BUFFER',0,zhook_handle)
80 ALLOCATE(pfield(nni,1))
82 SELECT CASE (yinmodel)
85 pfield(:,1) = zfield(:)
94 ALLOCATE(pfield(nni,1))
96 SELECT CASE (yinmodel)
99 pfield(:,1) = zfield(:)
107 ALLOCATE(pfield(nni,1))
116 cinterp_type=
'BUFFER'
117 IF (lhook) CALL dr_hook(
'PREP_SEAFLUX_BUFFER',1,zhook_handle)
subroutine read_buffer_sst(KLUOUT, HINMODEL, PFIELD)
subroutine prep_buffer_grid(KLUOUT, HINMODEL, TPTIME_BUF)
subroutine prep_seaflux_buffer(HPROGRAM, HSURF, KLUOUT, PFIELD)
subroutine read_buffer_zs(KLUOUT, HINMODEL, PFIELD)