To run a 3D simulation I use a mesh that is composed of both hexa cells and tetra cells.
I would like to create a .f90 user subroutine to compute the longest edge of each cells for modelling purpose. I have code that permits to perform this computation with hexa cells and I have to do the one that works for tetra cells.
I plan to do something like this:
Code: Select all
if(cell_type==hexa) then
code to compute the longest edge of hexa cells
else
code to compute the longest edge of tetra cells
endif
Thanks for your help,
Sincerely