libsim Versione 7.1.11

◆ interval_info_new()

type(interval_info) function, public interval_info_new ( real, intent(in), optional  interv_gt,
real, intent(in), optional  interv_ge,
real, intent(in), optional  interv_lt,
real, intent(in), optional  interv_le 
)
Parametri
[in]interv_gtgreater than condition for defining interval
[in]interv_gegreater equal condition for defining interval
[in]interv_ltless than condition for defining interval
[in]interv_leless equal condition for defining interval

Definizione alla linea 579 del file grid_transform_class.F90.

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 ! coordinates given
582 else
583
584 call l4f_category_log(this%category,l4f_error,"zoom: coordbb parameters missing")
585 call raise_fatal_error()
586
587 end if
588
589 else if (this%sub_type == 'index')then
590
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
593
594! check
595 IF (this%rect_ind%ix > this%rect_ind%fx .OR. &
596 this%rect_ind%iy > this%rect_ind%fy) THEN
597
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)))
605
606 CALL raise_fatal_error()
607 ENDIF
608
609 ELSE
610
611 CALL l4f_category_log(this%category,l4f_error,&

Generated with Doxygen.