libsim Versione 7.1.11
|
◆ 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 1466 del file volgrid6d_class.F90. 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)
1478spos = imiss
1479IF (c_e(lvar_coord_vol)) THEN
1480 CALL get_val(this%trans, output_levtype=output_levtype)
1481 IF (output_levtype%level1 == 103 .OR. output_levtype%level1 == 108) THEN
1482 spos = firsttrue(volgrid6d_in%level(:) == vol7d_level_new(1))
1483 IF (spos == 0) THEN
|