1 MODULE trace 2 3 4 Use param 5 Use param1 6 7 8 ! Trace of D_s 9 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: trD_s_C 10 ! 11 ! Trace of the square of D_s 12 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: trD_s2 13 14 ! Trace of D_s at previous timestep 15 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: trD_s_Co 16 !QX 17 ! Trace of D_s at previous time 18 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: trD_s_Co2 19 ! 20 ! JEG Added 21 ! University of Colorado, Hrenya Research Group 22 ! Trace of the dot of D_s (M solid phase) and 23 ! D_sl (L solid phase) 24 DOUBLE PRECISION, DIMENSION (:,:,:), ALLOCATABLE :: trD_s2_ip 25 ! END JEG 26 27 28 29 !!!HPF$ align trD_s_C(:, *) with TT(:) 30 !!!HPF$ align trD_s2(:, *) with TT(:) 31 !!!HPF$ align trD_s_Co(:, *) with TT(:) 32 33 END MODULE trace 34