libsim  Versione 7.2.6

◆ interval_info_new()

type(interval_info) function, public grid_transform_class::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 591 del file grid_transform_class.F90.

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 
614  CALL raise_fatal_error()
615  ENDIF
616 
617  ELSE
618 
619  CALL l4f_category_log(this%category,l4f_error,&
620  'zoom: index parameters ix, iy, fx, fy not provided')
621  CALL raise_fatal_error()
622 
623  ENDIF

Generated with Doxygen.