libsim Versione 7.2.1
|
◆ pack_distinct_var6d()
compatta gli elementi distinti di vect in un array Definizione alla linea 665 del file volgrid6d_var_class.F90. 667 CALL delete(csv)
668ENDDO
669
670200 CONTINUE
671
672END SUBROUTINE import_var_conv
673
674END SUBROUTINE vg6d_v7d_var_conv_setup
675
676
677ELEMENTAL FUNCTION conv_func_eq(this, that) RESULT(res)
678TYPE(conv_func),INTENT(IN) :: this, that
679LOGICAL :: res
680
681res = this%a == that%a .AND. this%b == that%b
682
683END FUNCTION conv_func_eq
684
685
686ELEMENTAL FUNCTION conv_func_ne(this, that) RESULT(res)
687TYPE(conv_func),INTENT(IN) :: this, that
688LOGICAL :: res
689
690res = .NOT.(this == that)
691
692END FUNCTION conv_func_ne
693
694
695FUNCTION conv_func_mult(this, that) RESULT(mult)
696TYPE(conv_func),INTENT(in) :: this
697TYPE(conv_func),INTENT(in) :: that
698
699TYPE(conv_func) :: mult
700
701IF (this == conv_func_miss .OR. that == conv_func_miss) THEN
702 mult = conv_func_miss
703ELSE
704 mult%a = this%a*that%a
705 mult%b = this%a*that%b+this%b
706ENDIF
707
708END FUNCTION conv_func_mult
709
717ELEMENTAL SUBROUTINE conv_func_compute(this, values)
718TYPE(conv_func),INTENT(in) :: this
719REAL,INTENT(inout) :: values
720
721IF (this /= conv_func_miss) THEN
722 IF (c_e(values)) values = values*this%a + this%b
723ELSE
724 values=rmiss
725ENDIF
726
727END SUBROUTINE conv_func_compute
728
729
|