export_to_gridinfo export_to_gridinfov export_to_gridinfovv volgrid6d_export_to_file volgrid6d_write_on_file

export_to_gridinfo() subroutine export_to_gridinfo ( 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  ) Export a single grid of a volgrid6d object to a gridinfo_def object. A single 2d slice of a volgrid6d at a specified location is written into a gridinfo_def object, including the grid_id which can be used for the successive export to file. Parametri [in] this volume to be exported [in,out] gridinfo output gridinfo_def object itime index within this of the element to be exported for the time dimension itimerange index within this of the element to be exported for the timerange dimension ilevel index within this of the element to be exported for the vertical level dimension ivar index within this of the element to be exported for the variable dimension [in] gaid_template grid_id template to be used for output data replacing the one contained in this [in] clone if provided and .TRUE., clone the grid_id included in this rather than making a shallow copy Definizione alla linea 1187 del file volgrid6d_class.F90. mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim) & .AND. .NOT.isanavar(:), back=.true.) ELSE ntimerange = count_distinct(gridinfov%array(1:gridinfov%arraysize)%timerange, & mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim) & .AND. .NOT.isanavar(:), back=.true.) ENDIF nlevel = count_distinct(gridinfov%array(1:gridinfov%arraysize)%level, & mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim), & back=.true.) nvar = count_distinct(gridinfov%array(1:gridinfov%arraysize)%var, & mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim), & back=.true.) #ifdef DEBUG CALL l4f_category_log(this(i)%category,l4f_debug,"alloc volgrid6d index: "//t2c(i)) #endif CALL volgrid6d_alloc(this(i),this(i)%griddim%dim,ntime=ntime, & ntimerange=ntimerange,nlevel=nlevel,nvar=nvar) IF (ltime_definition == 1 .OR. ltime_definition == 2) THEN ! verification time this(i)%time = pack_distinct(correctedtime, ntime, & mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim) & .AND. .NOT.isanavar(:), back=.true.) ELSE this(i)%time = pack_distinct(gridinfov%array(1:gridinfov%arraysize)%time, ntime, & mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim) & .AND. .NOT.isanavar(:), back=.true.) ENDIF CALL sort(this(i)%time) IF (ltime_definition == 2) THEN ! set all to analysis this(i)%timerange = pack_distinct(correctedtimerange, ntimerange, & mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim) & .AND. .NOT.isanavar(:), back=.true.) ELSE this(i)%timerange = pack_distinct(gridinfov%array(1:gridinfov%arraysize)%timerange, & ntimerange, mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim) & .AND. .NOT.isanavar(:), back=.true.) ENDIF CALL sort(this(i)%timerange) this(i)%level=pack_distinct(gridinfov%array(1:gridinfov%arraysize)%level, & nlevel,mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim), & back=.true.) CALL sort(this(i)%level) this(i)%var=pack_distinct(gridinfov%array(1:gridinfov%arraysize)%var, nvar, & mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim), & back=.true.) #ifdef DEBUG CALL l4f_category_log(this(i)%category,l4f_debug,"alloc_vol volgrid6d index: "//t2c(i)) #endif CALL volgrid6d_alloc_vol(this(i), decode=decode) ENDDO IF (ltime_definition == 1 .OR. ltime_definition == 2) DEALLOCATE(correctedtime) IF (ltime_definition == 2) DEALLOCATE(correctedtimerange) DO i = 1, gridinfov%arraysize #ifdef DEBUG CALL l4f_category_log(category,l4f_debug,"import from gridinfov index: "//t2c(i)) CALL l4f_category_log(category,l4f_info, &