| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(SV_t), | intent(inout) | :: | YSV |
SUBROUTINE SV_INIT(YSV)
TYPE(SV_t), INTENT(INOUT) :: YSV
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_SV_N:SV_INIT",0,ZHOOK_HANDLE)
NULLIFY(YSV%CSV)
YSV%NBEQ=0
YSV%NSV_CHSBEG=0
YSV%NSV_CHSEND=0
YSV%NSV_DSTBEG=0
YSV%NSV_DSTEND=0
YSV%NDSTEQ=0
YSV%NSV_SLTBEG=0
YSV%NSV_SLTEND=0
YSV%NSLTEQ=0
YSV%NSV_AERBEG=0
YSV%NSV_AEREND=0
YSV%NAEREQ=0
IF (LHOOK) CALL DR_HOOK("MODD_SV_N:SV_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE SV_INIT