1 MODULE tau_g 2 3 ! cross terms 4 DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: TAU_U_g 5 DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: TAU_V_g 6 DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: TAU_W_g 7 8 ! divergence of complete gas phase stress tensor in 9 ! the x, y, z momentum eqs 10 DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: cTAU_U_g 11 DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: cTAU_V_g 12 DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: cTAU_W_g 13 14 END MODULE tau_g 15