libsim  Versione 7.1.6

◆ 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 818 del file volgrid6d_var_class.F90.

819 
823 FUNCTION volgrid6d_var_is_hor_comp(this) RESULT(is_hor_comp)
824 TYPE(volgrid6d_var),INTENT(in) :: this
825 LOGICAL :: is_hor_comp
826 
827 TYPE(vol7d_var) :: varbufr
828 
829 varbufr = convert(this)
830 is_hor_comp = any(varbufr == vol7d_var_horcomp(:))
831 
832 END FUNCTION volgrid6d_var_is_hor_comp
833 
834 ! before unstaggering??
835 
836 !IF (.NOT. ALLOCATED(conv_fwd)) CALL vg6d_v7d_var_conv_setup()
837 !
838 !call init(varu,btable="B11003")
839 !call init(varv,btable="B11004")
840 !
841 ! test about presence of u and v in standard table
842 !if ( index(conv_fwd(:)%v7d_var,varu) == 0 .or. index(conv_fwd(:)%v7d_var,varv) == 0 )then
843 ! call l4f_category_log(this%category,L4F_FATAL, &
844 ! "variables B11003 and/or B11004 (wind components) not defined by vg6d_v7d_var_conv_setup")
845 ! CALL raise_error()
846 ! RETURN
847 !end if
848 !
849 !if (associated(this%var))then
850 ! nvar=size(this%var)
851 ! allocate(varbufr(nvar),stat=stallo)
852 ! if (stallo /=0)then
853 ! call l4f_log(L4F_FATAL,"allocating memory")
854 ! call raise_fatal_error("allocating memory")
855 ! end if
856 !
857 ! CALL vargrib2varbufr(this%var, varbufr)
858 !ELSE
859 ! CALL l4f_category_log(this%category, L4F_ERROR, &
860 ! "trying to destagger an incomplete volgrid6d object")
861 ! CALL raise_error()
862 ! RETURN
863 !end if
864 !
865 !nvaru=COUNT(varbufr==varu)
866 !nvarv=COUNT(varbufr==varv)
867 !
868 !if (nvaru > 1 )then
869 ! call l4f_category_log(this%category,L4F_WARN, &
870 ! ">1 variables refer to u wind component, destaggering will not be done ")
871 ! DEALLOCATE(varbufr)
872 ! RETURN
873 !endif
874 !
875 !if (nvarv > 1 )then
876 ! call l4f_category_log(this%category,L4F_WARN, &
877 ! ">1 variables refer to v wind component, destaggering will not be done ")
878 ! DEALLOCATE(varbufr)
879 ! RETURN
880 !endif
881 !
882 !if (nvaru == 0 .and. nvarv == 0) then
883 ! call l4f_category_log(this%category,L4F_WARN, &
884 ! "no u or v wind component found in volume, nothing to do")
885 ! DEALLOCATE(varbufr)
886 ! RETURN
887 !endif
888 !
889 !if (COUNT(varbufr/=varu .and. varbufr/=varv) > 0) then
890 ! call l4f_category_log(this%category,L4F_WARN, &
891 ! "there are variables different from u and v wind component in C grid")
892 !endif
893 
894 
895 END MODULE volgrid6d_var_class
Class for managing physical variables in a grib 1/2 fashion.

Generated with Doxygen.