1 MODULE tau_s 2 3 ! summed cross terms 4 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: TAU_U_s 5 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: TAU_V_s 6 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: TAU_W_s 7 8 END MODULE tau_s 9