libsim  Versione6.3.0

◆ 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 
Class for managing physical variables in a grib 1/2 fashion.

Generated with Doxygen.