7 hprogram, psand, pclay, prunoffb, pwdrain)
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
69 TYPE(isba_grid_t
),
INTENT(INOUT) :: ig
70 TYPE(isba_t
),
INTENT(INOUT) :: i
73 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
74 REAL,
DIMENSION(:,:),
INTENT(IN) :: psand
75 REAL,
DIMENSION(:,:),
INTENT(IN) :: pclay
76 REAL,
DIMENSION(:),
INTENT(IN) :: prunoffb
77 REAL,
DIMENSION(:),
INTENT(IN) :: pwdrain
85 INTEGER,
DIMENSION(:),
POINTER :: imask
86 REAL(KIND=JPRB) :: zhook_handle
90 IF (lhook) CALL dr_hook(
'PACK_PGD_SOIL',0,zhook_handle)
98 ALLOCATE(imask(ig%NDIM))
101 'NATURE',ig%NDIM,imask,ilu,iluout)
109 ALLOCATE(i%XSAND(ig%NDIM,i%NGROUND_LAYER))
112 ALLOCATE(i%XCLAY(ig%NDIM,i%NGROUND_LAYER))
117 ALLOCATE(i%XRUNOFFB(ig%NDIM))
120 ALLOCATE(i%XWDRAIN(ig%NDIM))
122 IF (lhook) CALL dr_hook(
'PACK_PGD_SOIL',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 get_luout(HPROGRAM, KLUOUT)
subroutine pack_pgd_soil(DTCO, IG, I, U, HPROGRAM, PSAND, PCLAY, PRUNOFFB, PWDRAIN)