575 if (c_e(this%rect_coo%ilon) .and. c_e(this%rect_coo%ilat) .and. &
576 c_e(this%rect_coo%flon) .and. c_e(this%rect_coo%flat))
then
579 call l4f_category_log(this%category,l4f_error,
"zoom: coordbb parameters missing")
580 call raise_fatal_error()
584 else if (this%sub_type ==
'index')
then
586 IF (c_e(this%rect_ind%ix) .AND. c_e(this%rect_ind%iy) .AND. &
587 c_e(this%rect_ind%fx) .AND. c_e(this%rect_ind%fy))
THEN
590 IF (this%rect_ind%ix > this%rect_ind%fx .OR. &
591 this%rect_ind%iy > this%rect_ind%fy)
THEN
593 CALL l4f_category_log(this%category,l4f_error,
'invalid zoom indices: ')
594 CALL l4f_category_log(this%category,l4f_error, &
595 trim(to_char(this%rect_ind%ix))//
'/'// &
596 trim(to_char(this%rect_ind%fx)))
597 CALL l4f_category_log(this%category,l4f_error, &
598 trim(to_char(this%rect_ind%iy))//
'/'// &
599 trim(to_char(this%rect_ind%fy)))
601 CALL raise_fatal_error()
606 CALL l4f_category_log(this%category,l4f_error,&