libsim Versione 7.2.4
|
◆ interval_info_new()
Definizione alla linea 581 del file grid_transform_class.F90. 582 call raise_fatal_error()
583
584 end if
585
586 else if (this%sub_type == 'coordbb')then
587
588 if (c_e(this%rect_coo%ilon) .and. c_e(this%rect_coo%ilat) .and. &
589 c_e(this%rect_coo%flon) .and. c_e(this%rect_coo%flat)) then ! coordinates given
590 else
591
592 call l4f_category_log(this%category,l4f_error,"zoom: coordbb parameters missing")
593 call raise_fatal_error()
594
595 end if
596
597 else if (this%sub_type == 'index')then
598
599 IF (c_e(this%rect_ind%ix) .AND. c_e(this%rect_ind%iy) .AND. &
600 c_e(this%rect_ind%fx) .AND. c_e(this%rect_ind%fy)) THEN
601
602! check
603 IF (this%rect_ind%ix > this%rect_ind%fx .OR. &
604 this%rect_ind%iy > this%rect_ind%fy) THEN
605
606 CALL l4f_category_log(this%category,l4f_error,'invalid zoom indices: ')
607 CALL l4f_category_log(this%category,l4f_error, &
608 trim(to_char(this%rect_ind%ix))//'/'// &
609 trim(to_char(this%rect_ind%fx)))
610 CALL l4f_category_log(this%category,l4f_error, &
611 trim(to_char(this%rect_ind%iy))//'/'// &
612 trim(to_char(this%rect_ind%fy)))
613
|