|
◆ pack_distinct_var6d()
type(volgrid6d_var) function, dimension(dim) volgrid6d_var_class::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 679 del file volgrid6d_var_class.F90.
679 mult%a = this%a*that%a 680 mult%b = this%a*that%b+this%b 683 END FUNCTION conv_func_mult 692 ELEMENTAL SUBROUTINE conv_func_compute(this, values) 693 TYPE(conv_func), INTENT(in) :: this 694 REAL, INTENT(inout) :: values 696 IF (this /= conv_func_miss) THEN 697 IF ( c_e(values)) values = values*this%a + this%b 702 END SUBROUTINE conv_func_compute 712 ELEMENTAL FUNCTION conv_func_convert(this, values) RESULT(convert) 713 TYPE(conv_func), intent(in) :: this 714 REAL, INTENT(in) :: values 718 CALL compute(this, convert) 720 END FUNCTION conv_func_convert 736 SUBROUTINE volgrid6d_var_hor_comp_index(this, xind, yind) 737 TYPE(volgrid6d_var), INTENT(in) :: this(:) 738 INTEGER, POINTER :: xind(:), yind(:) 740 TYPE(vol7d_var) :: varbufr(SIZE(this)) 741 TYPE(conv_func), POINTER :: c_func(:) 742 INTEGER :: i, nv, counts(SIZE(vol7d_var_horcomp)) 747 CALL vargrib2varbufr(this, varbufr, c_func)
|