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_read_from_file() subroutine volgrid6d_class::volgrid6d_read_from_file ( type(volgrid6d), intent(out)  this, integer, intent(inout), optional  unit, character(len=*), intent(in), optional  filename, character(len=*), intent(out), optional  description, integer, dimension(8), intent(out), optional  tarray, character(len=*), intent(out), optional  filename_auto  ) private Lettura da file di un volume Volgrid6d. Lettura da file unformatted di un intero volume Volgrid6d. Questa subroutine comprende volgrid6d_alloc e volgrid6d_alloc_vol. Il file puo' essere aperto opzionalmente dall'utente. Si possono passare opzionalmente unità e nome del file altrimenti assegnati internamente a dei default; se assegnati internamente tali parametri saranno in output. Parametri [out] this Volume volgrid6d da leggere [in,out] unit unità su cui è stato aperto un file; se =0 rielaborato internamente (default = elaborato internamente con getunit) [in] filename nome del file eventualmente da aprire (default = nome dell'eseguibile.v7d) [out] filename_auto nome del file generato se "filename" è omesso [out] description descrizione del volume letto [out] tarray vettore come definito da "date_and_time" della data di scrittura del volume Definizione alla linea 920 del file volgrid6d_class.F90. itimerange1 = itimerange0 ENDIF ivar = index(this%var, gridinfo%var) IF (ivar == 0 .AND. optio_log(force)) THEN ivar = index(this%var, volgrid6d_var_miss) IF (ivar /= 0) this%var(ivar) = gridinfo%var ENDIF IF (ivar == 0) THEN CALL l4f_category_log(this%category,l4f_error, & "volgrid6d: var not valid for volume, gridinfo rejected") CALL raise_error() RETURN ENDIF DO itimerange = itimerange0, itimerange1 DO itime = itime0, itime1 IF (ASSOCIATED(this%gaid)) THEN dup = .false. IF (c_e(this%gaid(ilevel,itime,itimerange,ivar))) THEN dup = .true. CALL l4f_category_log(this%category,l4f_warn,"gaid exist: grib duplicated") ! avoid memory leaks IF (optio_log(clone)) CALL delete(this%gaid(ilevel,itime,itimerange,ivar)) ENDIF IF (optio_log(clone)) THEN CALL copy(gridinfo%gaid, this%gaid(ilevel,itime,itimerange,ivar)) #ifdef DEBUG CALL l4f_category_log(this%category,l4f_debug,"cloning to a new gaid") #endif ELSE this%gaid(ilevel,itime,itimerange,ivar) = gridinfo%gaid ENDIF IF (ASSOCIATED(this%voldati))THEN IF (.NOT.dup .OR. ldup_mode == 0) THEN this%voldati(:,:,ilevel,itime,itimerange,ivar) = decode_gridinfo(gridinfo) ELSE IF (ldup_mode == 1) THEN tmpgrid = decode_gridinfo(gridinfo) ! f2003 automatic allocation WHERE(c_e(tmpgrid)) this%voldati(:,:,ilevel,itime,itimerange,ivar) = tmpgrid(:,:) END WHERE ELSE IF (ldup_mode == 2) THEN WHERE(.NOT.c_e(this%voldati(:,:,ilevel,itime,itimerange,ivar))) this%voldati(:,:,ilevel,itime,itimerange,ivar) = decode_gridinfo(gridinfo) END WHERE ENDIF ENDIF ELSE CALL l4f_category_log(this%category,l4f_error, & "gaid not allocated, you probably need to call volgrid6d_alloc_vol first") CALL raise_error() RETURN ENDIF ENDDO ENDDO END SUBROUTINE import_from_gridinfo SUBROUTINE export_to_gridinfo(this, gridinfo, itime, itimerange, ilevel, ivar, & gaid_template, clone) TYPE(volgrid6d),INTENT(in) :: this TYPE(gridinfo_def),INTENT(inout) :: gridinfo INTEGER :: itime INTEGER :: itimerange INTEGER :: ilevel INTEGER :: ivar TYPE(grid_id),INTENT(in),OPTIONAL :: gaid_template LOGICAL,INTENT(in),OPTIONAL :: clone TYPE(grid_id) :: gaid LOGICAL :: usetemplate REAL,POINTER :: voldati(:,:) TYPE(datetime) :: correctedtime