libsim Versione 7.2.1
|
◆ 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 1460 del file volgrid6d_class.F90. 1461ENDIF
1462
1463if (associated(volgrid6d_in%var))then
1464 nvar=size(volgrid6d_in%var)
1465 volgrid6d_out%var=volgrid6d_in%var
1466end if
1467! allocate once for speed
1468IF (.NOT.ASSOCIATED(volgrid6d_in%voldati)) THEN
1469 ALLOCATE(voldatiin(volgrid6d_in%griddim%dim%nx, volgrid6d_in%griddim%dim%ny, &
1470 inlevel))
1471ENDIF
1472IF (.NOT.ASSOCIATED(volgrid6d_out%voldati)) THEN
1473 ALLOCATE(voldatiout(volgrid6d_out%griddim%dim%nx, volgrid6d_out%griddim%dim%ny, &
1474 onlevel))
1475ENDIF
1476
1477CALL get_val(this, levshift=levshift, levused=levused)
|