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