libsim  Versione7.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 1601 del file volgrid6d_class.F90.

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
1621 ENDDO
1622 
1623 IF (c_e(lvar_coord_vol)) THEN
1624  DEALLOCATE(coord_3d_in)
1625 ENDIF
1626 IF (.NOT.ASSOCIATED(volgrid6d_in%voldati)) THEN
1627  DEALLOCATE(voldatiin)
1628 ENDIF
1629 IF (.NOT.ASSOCIATED(volgrid6d_out%voldati)) THEN
1630  DEALLOCATE(voldatiout)
1631 ENDIF
1632 
1633 
1634 END SUBROUTINE volgrid6d_transform_compute
1635 

Generated with Doxygen.