hmap_cyl_eval Function

public function hmap_cyl_eval(sf, q_in) result(x_out)

evaluate the mapping h (X^1,X^2,zeta) -> (x,y,z)

Type Bound

t_hmap_cyl

Arguments

Type IntentOptional Attributes Name
class(t_hmap_cyl), intent(in) :: sf
real(kind=wp), intent(in) :: q_in(3)

Return Value real(kind=wp), (3)


Called by

proc~~hmap_cyl_eval~~CalledByGraph proc~hmap_cyl_eval t_hmap_cyl%hmap_cyl_eval proc~hmap_cyl_test hmap_cyl_test proc~hmap_cyl_test->proc~hmap_cyl_eval proc~hmap_cyl_init_params hmap_cyl_init_params proc~hmap_cyl_init_params->proc~hmap_cyl_test interface~t_hmap_cyl t_hmap_cyl interface~t_hmap_cyl->proc~hmap_cyl_init_params proc~hmap_cyl_init hmap_cyl_init interface~t_hmap_cyl->proc~hmap_cyl_init proc~hmap_cyl_init->proc~hmap_cyl_init_params

Source Code

FUNCTION hmap_cyl_eval( sf ,q_in) RESULT(x_out)
! MODULES
IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
  REAL(wp)         , INTENT(IN) :: q_in(3)
  CLASS(t_hmap_cyl), INTENT(IN) :: sf
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  REAL(wp)                      :: x_out(3)
!===================================================================================================================================
  !  q= (X1,X2,zeta), X1-> x, X2->z, zeta-> y [0,cyl_len]
  ! |x |  | X1           |
  ! |y |= |-zeta*cyl_len |
  ! |z |  | X2           |

  ASSOCIATE(xx=>q_in(1),zz=>q_in(2),zeta=>q_in(3))
  x_out(1:3)=(/ xx, &
               -zeta*sf%cyl_len , &
                zz               /)
  END ASSOCIATE
END FUNCTION hmap_cyl_eval