54 USE yomhook
,ONLY : lhook, dr_hook
55 USE parkind1
,ONLY : jprb
57 USE modi_get_surf_mask_n
59 USE modi_get_type_dim_n
73 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
74 REAL,
DIMENSION(:),
INTENT(IN) :: pseabathy
81 INTEGER,
DIMENSION(:),
POINTER :: imask
82 REAL(KIND=JPRB) :: zhook_handle
86 IF (lhook) CALL dr_hook(
'PACK_PGD_SEAFLUX',0,zhook_handle)
94 ALLOCATE(imask(sg%NDIM))
97 'SEA ',sg%NDIM,imask,ilu,iluout)
105 ALLOCATE(s%XSEABATHY(sg%NDIM))
107 IF (lhook) CALL dr_hook(
'PACK_PGD_SEAFLUX',1,zhook_handle)
subroutine get_type_dim_n(DTCO, U, HTYPE, KDIM)
subroutine get_surf_mask_n(DTCO, U, HTYPE, KDIM, KMASK, KLU, KLUOUT)
subroutine pack_pgd_seaflux(DTCO, SG, S, U, HPROGRAM, PSEABATHY)
subroutine get_luout(HPROGRAM, KLUOUT)