Vgrid/VTBL
|
istat = vgd_get(vgrid,'VTBL',table)
This was implemented in order to broadcast the vgrid descriptor information to the other PE in an MPI environment but may be useful in other context like in common block. Suppose that PE 0 construct the vgrid descriptor with a call to vgd_new, e.g.:
stat = vgd_new(vgrid,unit=lu,format="fst",ip1=ip1,ip2=ip2)
then, still on PE 0, a call to retriev the real*8 Fortran array table that contain all the vgrid descriptor information is made, e.g.:
stat = vgd_get(vgrid,'VTBL',table)
Having the real*8 Fortran table it is now possible to broadcast it to the other PE since it is a pur Fortran type real*8 not a type(vgrid_descriptor). Then the other PE receive this and reconstruct thier copy of the vgrid valirable type(vgrid_descriptor) with the following call:
stat = vgd_new(vgrid,table)
WARNING, the user should never try to change the content of the table retrieved by vgd_get(vgrid,'VTBL',table),. Instead, the user may change the structure of type type(vgrid_descriptor) with the method provided by the vgrid descriptor package.
- Use in common blocks