52 USE yomhook
,ONLY : lhook, dr_hook
53 USE parkind1
,ONLY : jprb
61 TYPE(isba_t
),
INTENT(INOUT) :: i
63 INTEGER,
INTENT(IN) :: kmonth
68 REAL(KIND=JPRB) :: zhook_handle
71 IF (lhook) CALL dr_hook(
'DEEPSOIL_UPDATE',0,zhook_handle)
72 DO ip=1,
SIZE(i%XTDEEP)
74 i%XTDEEP (ip) = xtdeep_cli(kmonth)
76 i%XGAMMAT(ip) = 1. / xgammat_cli(kmonth)
79 IF (lhook) CALL dr_hook(
'DEEPSOIL_UPDATE',1,zhook_handle)
subroutine deepsoil_update(I, KMONTH)