◆ pack_distinct_var6d()

type(volgrid6d_var) function, dimension(dim) pack_distinct_var6d	(	type(volgrid6d_var), dimension(:), intent(in)	vect,
		integer, intent(in)	dim,
		logical, dimension(:), intent(in), optional	mask,
		logical, intent(in), optional	back )

private

compatta gli elementi distinti di vect in un array

Definizione alla linea 664 del file volgrid6d_var_class.F90.

  CALL delete(csv)
ENDDO
 
200 CONTINUE
 
END SUBROUTINE import_var_conv
 
END SUBROUTINE vg6d_v7d_var_conv_setup
 
 
ELEMENTAL FUNCTION conv_func_eq(this, that) RESULT(res)
TYPE(conv_func),INTENT(IN) :: this, that
LOGICAL :: res
 
res = this%a == that%a .AND. this%b == that%b
 
END FUNCTION conv_func_eq
 
 
ELEMENTAL FUNCTION conv_func_ne(this, that) RESULT(res)
TYPE(conv_func),INTENT(IN) :: this, that
LOGICAL :: res
 
res = .NOT.(this == that)
 
END FUNCTION conv_func_ne
 
 
FUNCTION conv_func_mult(this, that) RESULT(mult)
TYPE(conv_func),INTENT(in) :: this
TYPE(conv_func),INTENT(in) :: that
 
TYPE(conv_func) :: mult
 
IF (this == conv_func_miss .OR. that == conv_func_miss) THEN
  mult = conv_func_miss
ELSE
  mult%a = this%a*that%a
  mult%b = this%a*that%b+this%b
ENDIF
 
END FUNCTION conv_func_mult
 
!> Apply the conversion function \a this to \a values.
!! The numerical conversion (only linear at the moment) defined by the
!! \a conv_func object \a this is applied to the \a values argument;
!! the converted result is stored in place; missing values remain
!! missing; if the conversion function is undefined (\a
!! conv_func_miss) the values are unchanged. The method is \c
!! ELEMENTAL, thus \a values can be also an array of any shape.
ELEMENTAL SUBROUTINE conv_func_compute(this, values)
TYPE(conv_func),INTENT(in) :: this !< object defining the conversion function
REAL,INTENT(inout) :: values !< value to be converted in place
 
IF (this /= conv_func_miss) THEN
  IF (c_e(values)) values = values*this%a + this%b
ELSE
  values=rmiss
ENDIF
 
END SUBROUTINE conv_func_compute
 
 
!> Locate variables which are horizontal components of a vector field.
!! This method scans the \a volgrid6d_var array provided and locates
!! pairs of variables which are x and y component of the same vector
!! field.  On exit, the arrays \x xind(:) and \a yind(:) are allocated
!! to a size equal to the number of vector fields detected and their
!! corresponding elements will point to x and y components of the same
!! vector field. If inconsistencies are found, e.g. only one component