LOGICAL alarm
if( alarm('moist') .or. alarm('turb') .or.
& alarm('radsw') .or. alarm('radlw') ) then
logical set,alarm
if ( alarm(tag) ) then
alarm = .false.
alarm = (dates(n).eq.datein) .and. (times(n).eq.timein)
alarm = ( datein.gt.dates(n) .or.
IF ( alarm('radsw') ) THEN
IF ( alarm('radlw') ) THEN
IF ( alarm('turb') ) THEN
if ( alarm('moist') ) then
if( .not.alarm('moist') .or. .not.alarm('turb') .or.
& .not.alarm('radsw') .or. .not.alarm('radlw') ) then
logical alarm
if( alarm('radsw').or.alarm('radlw') ) then
if( alarm('radsw') ) then
if( alarm('radlw') ) then
if( alarm('turb') .or. alarm('radsw') ) then
if( alarm(tag) ) then
function alarm (tag)
alarm = (dates(n).eq.date) .and. (times(n).eq.time)
alarm = ( date.gt.dates(n) .or.