46 real(dp) :: g11_g(0:jmax,0:imax), g22_g(0:jmax,0:imax), &
47 g11_sgx(0:jmax,0:imax), g11_sgy(0:jmax,0:imax), &
48 g22_sgx(0:jmax,0:imax), g22_sgy(0:jmax,0:imax)
49 real(dp) :: xhelp, yhelp
72 k = (cos(0.25_dp*pi-0.5_dp*phi0))**2
73 else if (phi0 < (-eps))
then
74 k = (cos(0.25_dp*pi+0.5_dp*phi0))**2
76 stop
' metric: PHI0 must be different from zero!'
81 g11_g(j,i) = 1.0_dp/ &
82 ( k**2*(1.0_dp+(xi(i)**2+eta(j)**2)/(2.0_dp*r*k)**2)**2 )
83 g22_g(j,i) = g11_g(j,i)
91 xhelp = 0.5_dp*(xi(i)+xi(i+1))
92 g11_sgx(j,i) = 1.0_dp/ &
93 ( k**2*(1.0_dp+(xhelp**2+eta(j)**2)/(2.0_dp*r*k)**2)**2 )
94 g22_sgx(j,i) = g11_sgx(j,i)
100 yhelp = 0.5_dp*(eta(j)+eta(j+1))
101 g22_sgy(j,i) = 1.0_dp/ &
102 ( k**2*(1.0_dp+(xi(i)**2+yhelp**2)/(2.0_dp*r*k)**2)**2 )
103 g11_sgy(j,i) = g22_sgy(j,i)
113 g11_g(j,i) = r**2*(cos(eta(j)))**2
122 g11_sgx(j,i) = r**2*(cos(eta(j)))**2
129 yhelp = 0.5_dp*(eta(j)+eta(j+1))
131 g11_sgy(j,i) = r**2*(cos(yhelp))**2
142 sq_g11_g(j,i) = sqrt(g11_g(j,i))
143 sq_g22_g(j,i) = sqrt(g22_g(j,i))
144 insq_g11_g(j,i) = 1.0_dp/sq_g11_g(j,i)
145 insq_g22_g(j,i) = 1.0_dp/sq_g22_g(j,i)
151 sq_g11_sgx(j,i) = sqrt(g11_sgx(j,i))
152 sq_g22_sgx(j,i) = sqrt(g22_sgx(j,i))
153 insq_g11_sgx(j,i) = 1.0_dp/sq_g11_sgx(j,i)
159 sq_g22_sgy(j,i) = sqrt(g22_sgy(j,i))
160 sq_g11_sgy(j,i) = sqrt(g11_sgy(j,i))
161 insq_g22_sgy(j,i) = 1.0_dp/sq_g22_sgy(j,i)
Declarations of kind types for SICOPOLIS.
Declarations of global variables for SICOPOLIS (for the ANT domain).
subroutine metric()
Definition of the components g11 and g22 of the metric tensor of the applied coordinates.
Declarations of global variables for SICOPOLIS.