libsim Versione 7.2.4
|
◆ export_to_gridinfo()
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.
Definizione alla linea 1155 del file volgrid6d_class.F90. 1157 mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim), &
1158 back=.true.)
1159
1160#ifdef DEBUG
1161 CALL l4f_category_log(this(i)%category,l4f_debug,"alloc volgrid6d index: "//t2c(i))
1162#endif
1163
1164 CALL volgrid6d_alloc(this(i),this(i)%griddim%dim,ntime=ntime, &
1165 ntimerange=ntimerange,nlevel=nlevel,nvar=nvar)
1166
1167 this(i)%time = pack_distinct(correctedtime, ntime, &
1168 mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim) &
1169 .AND. .NOT.isanavar(:), back=.true.)
1170 CALL sort(this(i)%time)
1171
1172 this(i)%timerange = pack_distinct(gridinfov%array( &
1173 1:gridinfov%arraysize)%timerange, ntimerange, &
1174 mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim) &
1175 .AND. .NOT.isanavar(:), back=.true.)
1176 CALL sort(this(i)%timerange)
1177
1178 this(i)%level=pack_distinct(gridinfov%array(1:gridinfov%arraysize)%level, &
1179 nlevel,mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim), &
1180 back=.true.)
1181 CALL sort(this(i)%level)
1182
1183 this(i)%var=pack_distinct(gridinfov%array(1:gridinfov%arraysize)%var, nvar, &
1184 mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim), &
1185 back=.true.)
1186
1187#ifdef DEBUG
1188 CALL l4f_category_log(this(i)%category,l4f_debug,"alloc_vol volgrid6d index: "//t2c(i))
1189#endif
1190 CALL volgrid6d_alloc_vol(this(i), decode=decode)
1191
1192ENDDO
1193
1194DEALLOCATE(correctedtime)
1195
1196DO i = 1, gridinfov%arraysize
1197
1198#ifdef DEBUG
1199 CALL l4f_category_log(category,l4f_debug,"import from gridinfov index: "//t2c(i))
1200 CALL l4f_category_log(category,l4f_info, &
1202#endif
1203
1205 gridinfov%array(i), dup_mode=dup_mode, clone=clone, isanavar=isanavar(i))
1206
1207ENDDO
1208
1209!chiudo il logger temporaneo
1210CALL l4f_category_delete(category)
1211
1212END SUBROUTINE import_from_gridinfovv
1213
1214
1220SUBROUTINE export_to_gridinfov(this, gridinfov, gaid_template, clone)
1221TYPE(volgrid6d),INTENT(inout) :: this
1222TYPE(arrayof_gridinfo),INTENT(inout) :: gridinfov
1223TYPE(grid_id),INTENT(in),OPTIONAL :: gaid_template
|