flux0_is_first = .TRUE.
IF (flux0_is_first) THEN
flux0_is_first=.FALSE.
flux0_is_first=.TRUE.
& wind0_is_first, flux0_is_first,
LOGICAL wind0_is_first, flux0_is_first,