LOGICAL layers_bolus(layers_maxNum)
& useBOLUS, layers_bolus
CALL WRITE_0D_L ( layers_bolus(iLa), INDEX_NONE,
IF ( layers_bolus(iLa) ) THEN
layers_bolus(iLa) = useGMRedi
layers_bolus(iLa) = layers_bolus(iLa) .AND. useGMRedi
& LAYER_nb, layers_kref, useBOLUS, layers_bolus,
layers_bolus(1) = useBOLUS