30 USE yomhook
,ONLY : lhook, dr_hook
31 USE parkind1
,ONLY : jprb
41 CHARACTER(LEN=6),
DIMENSION(:),
POINTER :: CSV
42 INTEGER :: NSV_CHSBEG, NSV_CHSEND
44 INTEGER :: NSV_DSTBEG, NSV_DSTEND
46 INTEGER :: NSV_SLTBEG, NSV_SLTEND
48 INTEGER :: NSV_AERBEG, NSV_AEREND
65 TYPE(sv_t),
INTENT(INOUT) :: ysv
66 REAL(KIND=JPRB) :: zhook_handle
67 IF (lhook) CALL dr_hook(
"MODD_SV_N:SV_INIT",0,zhook_handle)
81 IF (lhook) CALL dr_hook(
"MODD_SV_N:SV_INIT",1,zhook_handle)