diff options
Diffstat (limited to 'src/qlm_killing_transportation.F90')
-rw-r--r-- | src/qlm_killing_transportation.F90 | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/qlm_killing_transportation.F90 b/src/qlm_killing_transportation.F90 index 779e524..75df49c 100644 --- a/src/qlm_killing_transportation.F90 +++ b/src/qlm_killing_transportation.F90 @@ -8,6 +8,7 @@ module qlm_killing_transportation use cctk use constants + use qlm_variables use ricci2 use tensor2 implicit none @@ -133,12 +134,12 @@ contains qq(2,2) = qlm_qpp(i,j,hn) qq(2,1) = qq(1,2) - dqq(1,1,1) = qlm_dqttt(i,j,hn) - dqq(1,2,1) = qlm_dqtpt(i,j,hn) - dqq(2,2,1) = qlm_dqppt(i,j,hn) - dqq(1,1,2) = qlm_dqttp(i,j,hn) - dqq(1,2,2) = qlm_dqtpp(i,j,hn) - dqq(2,2,2) = qlm_dqppp(i,j,hn) + dqq(1,1,1) = qlm_dqttt(i,j) + dqq(1,2,1) = qlm_dqtpt(i,j) + dqq(2,2,1) = qlm_dqppt(i,j) + dqq(1,1,2) = qlm_dqttp(i,j) + dqq(1,2,2) = qlm_dqtpp(i,j) + dqq(2,2,2) = qlm_dqppp(i,j) dqq(2,1,:) = dqq(1,2,:) rsc = qlm_rsc(i,j,hn) |