test_26.f90

Go to the documentation of this file.

MODULE test_26
  IMPLICIT NONE
  !test 26
  REAL(KIND=8),  PARAMETER:: mu_disk_t26 = 5.d0
  REAL(KIND=8),  PARAMETER:: alpha_t26 = 1.d0
  INTEGER,  PARAMETER     :: test_mode_t26 = 4;
  REAL(KIND=8),  PARAMETER:: wjump_t26 = 0.032d0*(1.0d0)
  REAL(KIND=8),  PARAMETER:: zm_t26 = 0.d0, z1_t26 = zm_t26-wjump_t26
CONTAINS

  !====================================================
  !=======================Extra subroutines for test 26

  FUNCTION smooth_jump_down_t26(x,x0,x1) RESULT(vv)
    REAL(KIND=8)                               :: x,x0,x1
    REAL(KIND=8)                               :: vv
    REAL(KIND=8)                               :: a0,a1,a2,a3
    !This function is 1 at x0, 
    !This function is 0 at x1, 
    !Its derivative is 0  at (x1+x0)/2, 
    !Cubic (Factorized)

    a0 = x1**2*(3*x0-x1)/(x0-x1)**3; 
    a1 = -6.0*x0*x1/(x0-x1)**3; 
    a2 = (3.0*(x0+x1))/(x0-x1)**3;
    a3 = -2.0/(x0-x1)**3;

    vv = a0+a1*x+a2*x*x + a3*x*x*x
    RETURN
  END FUNCTION smooth_jump_down_t26

  !derivative with respect to x
  FUNCTION dsmooth_jump_down_t26(x,x0,x1) RESULT(vv)
    REAL(KIND=8)                               :: x,x0,x1
    REAL(KIND=8)                               :: vv
    REAL(KIND=8)                               :: a0,a1,a2,a3
    !This function is 1 at x0, 
    !This function is 0 at x1, 
    !Its derivative is 0  at (x1+x0)/2, 
    !Cubic Factorized

    a0 = x1**2*(3*x0-x1)/(x0-x1)**3; 
    a1 = -6.0*x0*x1/(x0-x1)**3; 
    a2 = (3.0*(x0+x1))/(x0-x1)**3;
    a3 = -2.0/(x0-x1)**3;

    vv = a1+2.d0*a2*x + 3.d0*a3*x*x 
    RETURN
  END FUNCTION dsmooth_jump_down_t26

  FUNCTION smooth_jump_up_t26(x,x0,x1) RESULT(vv)
    REAL(KIND=8)                               :: x,x0,x1
    REAL(KIND=8)                               :: vv
    !This function is 0 at x0, 
    !This function is 1 at x1, 
    !Its derivative is 0  at (x1+x0)/2, 

    vv = 1.d0 - smooth_jump_down_t26( x,x0,x1 );
    RETURN
  END FUNCTION smooth_jump_up_t26

  !derivative with respect to x
  FUNCTION dsmooth_jump_up_t26(x,x0,x1) RESULT(vv)
    REAL(KIND=8)                               :: x,x0,x1
    REAL(KIND=8)                               :: vv
    !This function is 0 at x0, 
    !This function is 1 at x1, 
    !Its derivative is 0  at (x1+x0)/2, 

    vv =  - dsmooth_jump_down_t26( x,x0,x1 );
    RETURN
  END FUNCTION dsmooth_jump_up_t26

  FUNCTION mu_func_t26(r,z) RESULT(vv)
    IMPLICIT NONE
    REAL(KIND=8)       :: r,z
    REAL(KIND=8)       :: vv
    REAL(KIND=8)       :: Fz
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    !! A smooth jump in z

    fz=smooth_jump_up_t26(z,zm_t26,z1_t26)
    IF ( z.GE.zm_t26 ) THEN       
       vv  = 1.d0
    ELSE  IF ( z.LE. z1_t26 ) THEN
       vv  = mu_disk_t26
    ELSE   
       vv = fz*(mu_disk_t26-1.d0) + 1.d0                    
    END IF
    RETURN

    !===Dummies variables to avoid warning
    fz=r
    !===Dummies variables to avoid warning
  END FUNCTION mu_func_t26

  FUNCTION dmu_func_t26(r,z) RESULT(vv)
    IMPLICIT NONE
    REAL(KIND=8)       :: r,z
    REAL(KIND=8),DIMENSION(2)       :: vv
    REAL(KIND=8)       :: DFz
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    !! A smooth jump in z

    dfz=dsmooth_jump_up_t26(z,zm_t26,z1_t26)
    IF ( z.GE.zm_t26 ) THEN       
       vv  = 0.d0
    ELSE  IF ( z.LE. z1_t26 ) THEN
       vv  = 0.d0
    ELSE   
       vv(1)  = 0
       vv(2)  = dfz*(mu_disk_t26-1.d0)
    END IF
    RETURN

    !===Dummies variables to avoid warning
    dfz=r
    !===Dummies variables to avoid warning
  END FUNCTION dmu_func_t26

  !===Analytical mu_in_fourier_space (if needed)
  FUNCTION mu_bar_in_fourier_space_anal_t26(H_mesh,nb,ne,pts,pts_ids) RESULT(vv)
    USE def_type_mesh
    USE input_data
    USE my_util
    IMPLICIT NONE
    TYPE(mesh_type)                            :: H_mesh
    REAL(KIND=8), DIMENSION(ne-nb+1)           :: vv
    INTEGER                                    :: nb, ne
    REAL(KIND=8),DIMENSION(2,ne-nb+1),OPTIONAL :: pts
    INTEGER,DIMENSION(ne-nb+1),OPTIONAL        :: pts_ids
    REAL(KIND=8),DIMENSION(ne-nb+1)            :: r,z
    INTEGER                                    :: n

    IF( PRESENT(pts) .AND. PRESENT(pts_ids) ) THEN !Computing mu at  pts
       r=pts(1,nb:ne)
       z=pts(2,nb:ne)
    ELSE
       r=h_mesh%rr(1,nb:ne) !Computing mu  at nodes
       z=h_mesh%rr(2,nb:ne)
    END IF

    DO n = 1, ne - nb + 1
       vv(n) = mu_func_t26(r(n),z(n))
    END DO
    RETURN
  END FUNCTION mu_bar_in_fourier_space_anal_t26

  !===Analytical mu_in_fourier_space (if needed)
  FUNCTION grad_mu_bar_in_fourier_space_anal_t26(pt,pt_id) RESULT(vv)
    USE input_data
    USE my_util
    IMPLICIT NONE
    REAL(KIND=8),DIMENSION(2)           :: vv
    REAL(KIND=8),DIMENSION(2)           :: pt
    INTEGER,DIMENSION(1)                :: pt_id
    REAL(KIND=8)                        :: r,z
    REAL(KIND=8),DIMENSION(2)           :: tmp
    INTEGER      :: n

    r=pt(1)
    z=pt(2)
    tmp=dmu_func_t26(r,z)
    vv(1)=tmp(1)
    vv(2)=tmp(2)
    RETURN

    !===Dummies variables to avoid warning
    n=pt_id(1)
    !===Dummies variables to avoid warning
  END FUNCTION grad_mu_bar_in_fourier_space_anal_t26

END MODULE test_26