45 USE yomhook
,ONLY : lhook, dr_hook
46 USE parkind1
,ONLY : jprb
52 INTEGER,
INTENT(IN ) :: kni
54 INTEGER,
INTENT(IN ) :: kpatch
56 REAL,
DIMENSION(:),
INTENT(IN ) :: pperm
58 REAL,
DIMENSION(:,:),
INTENT(INOUT) :: psoildepth
62 REAL,
DIMENSION(KNI) :: zperm
66 REAL(KIND=JPRB) :: zhook_handle
70 IF (lhook) CALL dr_hook(
'PERMAFROST_DEPTH',0,zhook_handle)
73 WHERE(pperm(:)/=xundef)zperm(:)=pperm(:)
77 IF(zperm(jj)>=xpermfrac.AND.psoildepth(jj,jpatch)/=xundef)
THEN
78 psoildepth(jj,jpatch)=max(psoildepth(jj,jpatch),xpermdepth)
84 IF (lhook) CALL dr_hook(
'PERMAFROST_DEPTH',1,zhook_handle)
subroutine permafrost_depth(KNI, KPATCH, PPERM, PSOILDEPTH)