libsim  Versione 7.1.8

◆ 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 574 del file grid_transform_class.F90.

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 ! coordinates given
577  else
578 
579  call l4f_category_log(this%category,l4f_error,"zoom: coordbb parameters missing")
580  call raise_fatal_error()
581 
582  end if
583 
584  else if (this%sub_type == 'index')then
585 
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
588 
589 ! check
590  IF (this%rect_ind%ix > this%rect_ind%fx .OR. &
591  this%rect_ind%iy > this%rect_ind%fy) THEN
592 
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)))
600 
601  CALL raise_fatal_error()
602  ENDIF
603 
604  ELSE
605 
606  CALL l4f_category_log(this%category,l4f_error,&

Generated with Doxygen.