1 MODULE tau_s 2 3 Use param 4 Use param1 5 6 ! 7 ! cross terms 8 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: TAU_U_s 9 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: TAU_V_s 10 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: TAU_W_s 11 12 !!!HPF$ align TAU_U_s(:, *) with TT(:) 13 !!!HPF$ align TAU_V_s(:, *) with TT(:) 14 !!!HPF$ align TAU_W_s(:, *) with TT(:) 15 16 17 END MODULE tau_s 18