580 if (c_e(this%rect_coo%ilon) .and. c_e(this%rect_coo%ilat) .and. &
581 c_e(this%rect_coo%flon) .and. c_e(this%rect_coo%flat))
then
584 call l4f_category_log(this%category,l4f_error,
"zoom: coordbb parameters missing")
585 call raise_fatal_error()
589 else if (this%sub_type ==
'index')
then
591 IF (c_e(this%rect_ind%ix) .AND. c_e(this%rect_ind%iy) .AND. &
592 c_e(this%rect_ind%fx) .AND. c_e(this%rect_ind%fy))
THEN
595 IF (this%rect_ind%ix > this%rect_ind%fx .OR. &
596 this%rect_ind%iy > this%rect_ind%fy)
THEN
598 CALL l4f_category_log(this%category,l4f_error,
'invalid zoom indices: ')
599 CALL l4f_category_log(this%category,l4f_error, &
600 trim(to_char(this%rect_ind%ix))//
'/'// &
601 trim(to_char(this%rect_ind%fx)))
602 CALL l4f_category_log(this%category,l4f_error, &
603 trim(to_char(this%rect_ind%iy))//
'/'// &
604 trim(to_char(this%rect_ind%fy)))
606 CALL raise_fatal_error()
611 CALL l4f_category_log(this%category,l4f_error,&