libsim Versione 7.2.6

◆ volgrid6d_export_to_file()

subroutine volgrid6d_export_to_file ( type(volgrid6d), dimension(:) this,
character(len=*), intent(in) filename,
type(grid_id), intent(in), optional gaid_template,
character(len=*), intent(in), optional categoryappend )

High level method for exporting a volume array to file.

All the information contained into an array of volgrid6d objects, i.e. dimension descriptors and data, is exported to a file using the proper output driver (typically grib_api for grib format). If a template is provided, it will determine the characteristic of the output file, otherwise the grid_id descriptors contained in the volgrid6d object will be used

Parametri
thisvolume(s) to be exported
[in]filenameoutput file name
[in]gaid_templatetemplate for the output file, if provided the grid_id information stored in the volgrid6d objects will be ignored
[in]categoryappendappend this suffix to log4fortran namespace category

Definizione alla linea 1590 del file volgrid6d_class.F90.

1591 IF (c_e(spos)) THEN ! compute difference wrt surface coordinate
1592 IF (spos == 0) THEN ! error condition, set all to missing and goodnight
1593 coord_3d_in(:,:,levshift+1:levshift+levused) = rmiss
1594 ELSE
1595 DO ilevel = levshift+1, levshift+levused
1596 WHERE(c_e(coord_3d_in(:,:,ilevel)) .AND. c_e(coord_3d_in(:,:,spos)))
1597 coord_3d_in(:,:,ilevel) = coord_3d_in(:,:,ilevel) - &
1598 coord_3d_in(:,:,spos)
1599 ELSEWHERE
1600 coord_3d_in(:,:,ilevel) = rmiss
1601 END WHERE
1602 ENDDO
1603 ENDIF
1604 ENDIF
1605 ENDIF
1606 CALL volgrid_get_vol_3d(volgrid6d_in, itime, itimerange, ivar, &
1607 voldatiin)
1608 IF (ASSOCIATED(volgrid6d_out%voldati)) & ! improve!!!!
1609 CALL volgrid_get_vol_3d(volgrid6d_out, itime, itimerange, ivar, &
1610 voldatiout)
1611 IF (c_e(lvar_coord_vol)) THEN
1612 CALL compute(this, voldatiin, voldatiout, convert(volgrid6d_in%var(ivar)), &
1613 coord_3d_in(:,:,levshift+1:levshift+levused)) ! subset coord_3d_in
1614 ELSE
1615 CALL compute(this, voldatiin, voldatiout, convert(volgrid6d_in%var(ivar)))
1616 ENDIF
1617 CALL volgrid_set_vol_3d(volgrid6d_out, itime, itimerange, ivar, &
1618 voldatiout)
1619 ENDDO
1620 ENDDO
1621ENDDO
1622
1623IF (c_e(lvar_coord_vol)) THEN
1624 DEALLOCATE(coord_3d_in)
1625ENDIF

Generated with Doxygen.