libsim Versione 7.2.6
|
◆ export_to_gridinfovv()
Export an array of volgrid6d objects to an arrayof_gridinfo object. The multidimensional volgrid6d structures are serialized into a one-dimensional array of gridinfo_def objects, which is allocated to the proper size if not already allocated, or it is extended keeping the old data if any.
Definizione alla linea 1508 del file volgrid6d_class.F90. 1509ENDIF
1510
1511if (associated(volgrid6d_in%var))then
1512 nvar=size(volgrid6d_in%var)
1513 volgrid6d_out%var=volgrid6d_in%var
1514end if
1515! allocate once for speed
1516IF (.NOT.ASSOCIATED(volgrid6d_in%voldati)) THEN
1517 ALLOCATE(voldatiin(volgrid6d_in%griddim%dim%nx, volgrid6d_in%griddim%dim%ny, &
1518 inlevel))
1519ENDIF
1520IF (.NOT.ASSOCIATED(volgrid6d_out%voldati)) THEN
1521 ALLOCATE(voldatiout(volgrid6d_out%griddim%dim%nx, volgrid6d_out%griddim%dim%ny, &
1522 onlevel))
1523ENDIF
1524
1525CALL get_val(this, levshift=levshift, levused=levused)
|