display_volgrid6d display_volgrid6dv export_to_gridinfo export_to_gridinfov export_to_gridinfovv import_from_gridinfo import_from_gridinfovv v7d_v7d_transform v7d_volgrid6d_transform vg6d_c2a vg6d_reduce vg6d_rounding vg6d_wind_rot vg6d_wind_unrot vg6dv_rounding volgrid6d_alloc volgrid6d_alloc_vol volgrid6d_delete volgrid6d_export_to_file volgrid6d_import_from_file volgrid6d_init volgrid6d_read_from_file volgrid6d_transform volgrid6d_v7d_transform volgrid6d_v7d_transform_compute volgrid6d_write_on_file volgrid6dv_delete volgrid6dv_transform volgrid6dv_v7d_transform volgrid_get_vol_2d volgrid_get_vol_3d volgrid_set_vol_2d volgrid_set_vol_3d

volgrid6d_init() subroutine volgrid6d_init ( type(volgrid6d) this, type(griddim_def), optional griddim, integer, intent(in), optional time_definition, character(len=*), intent(in), optional categoryappend ) private Constructor, it creates a new instance of the object. The constructor should be explicitly used only in rare cases, volgrid6d objects are usually created through the import interface. Parametri this object to be initialized griddim grid descriptor [in] time_definition 0=time is reference time; 1=time is validity time [in] categoryappend append this suffix to log4fortran namespace category Definizione alla linea 361 del file volgrid6d_class.F90. CALL l4f_category_log(this%category,l4f_debug,"alloc voldati volume") #endif ALLOCATE(this%voldati(this%griddim%dim%nx,this%griddim%dim%ny,& SIZE(this%level), SIZE(this%time), & SIZE(this%timerange), SIZE(this%var)),stat=stallo) IF (stallo /= 0)THEN CALL l4f_category_log(this%category,l4f_fatal,"allocating memory") CALL raise_fatal_error() ENDIF ! this is not really needed if we can check other flags for a full ! field missing values IF (linivol) this%voldati = rmiss this%voldati = rmiss ENDIF ENDIF IF (.NOT.ASSOCIATED(this%gaid)) THEN #ifdef DEBUG CALL l4f_category_log(this%category,l4f_debug,"alloc gaid volume") #endif ALLOCATE(this%gaid(SIZE(this%level), SIZE(this%time), & SIZE(this%timerange), SIZE(this%var)),stat=stallo) IF (stallo /= 0)THEN CALL l4f_category_log(this%category,l4f_fatal,"allocating memory") CALL raise_fatal_error() ENDIF IF (linivol) THEN !!$ DO i=1 ,SIZE(this%gaid,1) !!$ DO ii=1 ,SIZE(this%gaid,2) !!$ DO iii=1 ,SIZE(this%gaid,3)