libsim
Versione6.3.0
volgrid6d_var_class
conv_func_compute
conv_func_convert
count_distinct_var6d
display_volgrid6d_var
index_var6d
map_distinct_var6d
map_inv_distinct_var6d
pack_distinct_var6d
varbufr2vargrib
varbufr2vargrib_convert
vargrib2varbufr
vargrib2varbufr_convert
volgrid6d_var_hor_comp_index
volgrid6d_var_is_hor_comp
volgrid6d_var_miss
volgrid6d_var_new
volgrid6d_var_normalize
◆
map_distinct_var6d()
integer function, dimension(size(vect)) volgrid6d_var_class::map_distinct_var6d
(
type(
volgrid6d_var
), dimension(:), intent(in)
vect
,
logical, dimension(:), intent(in), optional
mask
,
logical, intent(in), optional
back
)
private
map distinct
Definizione alla linea
827
del file
volgrid6d_var_class.F90
.
827
! nvar=size(this%var)
828
! allocate(varbufr(nvar),stat=stallo)
829
! if (stallo /=0)then
830
! call l4f_log(L4F_FATAL,"allocating memory")
831
! call raise_fatal_error("allocating memory")
832
! end if
833
!
834
! CALL vargrib2varbufr(this%var, varbufr)
835
!ELSE
836
! CALL l4f_category_log(this%category, L4F_ERROR, &
837
! "trying to destagger an incomplete volgrid6d object")
838
! CALL raise_error()
839
! RETURN
840
!end if
841
!
842
!nvaru=COUNT(varbufr==varu)
843
!nvarv=COUNT(varbufr==varv)
844
!
845
!if (nvaru > 1 )then
846
! call l4f_category_log(this%category,L4F_WARN, &
847
! ">1 variables refer to u wind component, destaggering will not be done ")
848
! DEALLOCATE(varbufr)
849
! RETURN
850
!endif
851
!
852
!if (nvarv > 1 )then
853
! call l4f_category_log(this%category,L4F_WARN, &
854
! ">1 variables refer to v wind component, destaggering will not be done ")
855
! DEALLOCATE(varbufr)
856
! RETURN
857
!endif
858
!
859
!if (nvaru == 0 .and. nvarv == 0) then
860
! call l4f_category_log(this%category,L4F_WARN, &
861
! "no u or v wind component found in volume, nothing to do")
862
! DEALLOCATE(varbufr)
863
! RETURN
864
!endif
865
!
866
!if (COUNT(varbufr/=varu .and. varbufr/=varv) > 0) then
867
! call l4f_category_log(this%category,L4F_WARN, &
868
! "there are variables different from u and v wind component in C grid")
869
!endif
870
871
872
END MODULE
volgrid6d_var_class
873
volgrid6d_var_class
Class for managing physical variables in a grib 1/2 fashion.
Definition:
volgrid6d_var_class.F90:243
Generated with
Doxygen
.