src_parameters/constantes_soil.f90:        CALL getin_p('SECHIBA_QSINT',qsintcst)
src_parameters/constantes_soil.f90:        IF ( qsintcst <= zero ) THEN
src_parameters/constantes_soil_var.f90:  REAL(r_std), SAVE :: qsintcst = 0.1                   !! Transforms leaf area index into size of interception reservoir
src_parameters/constantes_soil_var.f90:!$OMP THREADPRIVATE(qsintcst)
src_sechiba/slowproc.f90:       qsintmax(:,:) = qsintcst * veget(:,:) * lai(:,:)
src_sechiba/slowproc.f90:          qsintmax(:,:) = qsintcst * veget(:,:) * lai(:,:)
src_sechiba/slowproc.f90:    CALL getin_p('SECHIBA_QSINT', qsintcst)
src_sechiba/slowproc.f90:    WRITE(numout, *)' SECHIBA_QSINT, qsintcst = ', qsintcst
src_sechiba/slowproc.f90:    qsintmax(:,:) = qsintcst * veget(:,:) * lai(:,:)
