48 USE yomhook
,ONLY : lhook, dr_hook
49 USE parkind1
,ONLY : jprb
59 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
60 INTEGER,
INTENT(OUT) :: kcover
67 REAL(KIND=JPRB) :: zhook_handle
70 IF (lhook) CALL dr_hook(
'GET_JCOVER_N',0,zhook_handle)
74 kcover = count(u%LCOVER)
75 IF (lhook) CALL dr_hook(
'GET_JCOVER_N',1,zhook_handle)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine get_jcover_n(U, HPROGRAM, KCOVER)