45 USE yomhook
,ONLY : lhook, dr_hook
46 USE parkind1
,ONLY : jprb
51 REAL,
INTENT(IN) :: ptstep
52 REAL,
DIMENSION(:),
INTENT(IN) :: putci
53 REAL,
DIMENSION(:,:),
INTENT(INOUT) :: putcic
59 REAL(KIND=JPRB) :: zhook_handle
63 IF (lhook) CALL dr_hook(
'UTCIC_STRESS',0,zhook_handle)
65 DO jstress=1,nutci_stress
68 WHERE (putci(:)>xutci_stress_limits(jstress-1) .AND. putci(:)<=xutci_stress_limits(jstress))
69 putcic(:,jstress) = putcic(:,jstress) + ptstep
73 IF (lhook) CALL dr_hook(
'UTCIC_STRESS',1,zhook_handle)
subroutine utcic_stress(PTSTEP, PUTCI, PUTCIC)