conv_func_compute 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 824 del file volgrid6d_var_class.F90. ! test about presence of u and v in standard table !if ( index(conv_fwd(:)%v7d_var,varu) == 0 .or. index(conv_fwd(:)%v7d_var,varv) == 0 )then ! call l4f_category_log(this%category,L4F_FATAL, & ! "variables B11003 and/or B11004 (wind components) not defined by vg6d_v7d_var_conv_setup") ! CALL raise_error() ! RETURN !end if ! !if (associated(this%var))then ! nvar=size(this%var) ! allocate(varbufr(nvar),stat=stallo) ! if (stallo /=0)then ! call l4f_log(L4F_FATAL,"allocating memory") ! call raise_fatal_error("allocating memory") ! end if ! ! CALL vargrib2varbufr(this%var, varbufr) !ELSE ! CALL l4f_category_log(this%category, L4F_ERROR, & ! "trying to destagger an incomplete volgrid6d object") ! CALL raise_error() ! RETURN !end if ! !nvaru=COUNT(varbufr==varu) !nvarv=COUNT(varbufr==varv) ! !if (nvaru > 1 )then ! call l4f_category_log(this%category,L4F_WARN, & ! ">1 variables refer to u wind component, destaggering will not be done ") ! DEALLOCATE(varbufr) ! RETURN !endif ! !if (nvarv > 1 )then ! call l4f_category_log(this%category,L4F_WARN, & ! ">1 variables refer to v wind component, destaggering will not be done ") ! DEALLOCATE(varbufr) ! RETURN !endif ! !if (nvaru == 0 .and. nvarv == 0) then ! call l4f_category_log(this%category,L4F_WARN, & ! "no u or v wind component found in volume, nothing to do") ! DEALLOCATE(varbufr) ! RETURN !endif ! !if (COUNT(varbufr/=varu .and. varbufr/=varv) > 0) then ! call l4f_category_log(this%category,L4F_WARN, & ! "there are variables different from u and v wind component in C grid") !endif END MODULE volgrid6d_var_class