|
class(c_hmap),
|
intent(in) |
|
|
:: |
sf |
|
|
integer,
|
intent(in) |
|
|
:: |
ndims(3) |
|
|
integer,
|
intent(in) |
|
|
:: |
dim_zeta |
|
|
class(c_hmap_auxvar),
|
intent(in) |
|
|
:: |
xv(ndims(dim_zeta)) |
|
|
real(kind=wp),
|
intent(in), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
q1 |
|
|
real(kind=wp),
|
intent(in), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
q2 |
|
|
real(kind=wp),
|
intent(in), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
dX1_dt |
|
|
real(kind=wp),
|
intent(in), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
dX2_dt |
|
|
real(kind=wp),
|
intent(in), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
dX1_dz |
|
|
real(kind=wp),
|
intent(in), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
dX2_dz |
|
|
real(kind=wp),
|
intent(out), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
Jh |
|
|
real(kind=wp),
|
intent(out), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
g_tt |
|
|
real(kind=wp),
|
intent(out), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
g_tz |
|
|
real(kind=wp),
|
intent(out), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
g_zz |
|
|
real(kind=wp),
|
intent(out), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
Jh_dq1 |
|
|
real(kind=wp),
|
intent(out), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
g_tt_dq1 |
|
|
real(kind=wp),
|
intent(out), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
g_tz_dq1 |
|
|
real(kind=wp),
|
intent(out), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
g_zz_dq1 |
|
|
real(kind=wp),
|
intent(out), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
Jh_dq2 |
|
|
real(kind=wp),
|
intent(out), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
g_tt_dq2 |
|
|
real(kind=wp),
|
intent(out), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
g_tz_dq2 |
|
|
real(kind=wp),
|
intent(out), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
g_zz_dq2 |
|
|
real(kind=wp),
|
intent(out), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
g_t1 |
|
|
real(kind=wp),
|
intent(out), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
g_t2 |
|
|
real(kind=wp),
|
intent(out), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
g_z1 |
|
|
real(kind=wp),
|
intent(out), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
g_z2 |
|
|
real(kind=wp),
|
intent(out), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
Gh11 |
|
|
real(kind=wp),
|
intent(out), |
|
DIMENSION(ndims(1),ndims(2),ndims(3))
|
:: |
Gh22 |
|