1 MODULE pgcor 2 3 4 Use param 5 Use param1 6 7 8 ! 9 ! Variables for gas pressure correction equation 10 ! 11 ! 12 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: d_e 13 ! 14 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: d_n 15 ! 16 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: d_t 17 ! 18 ! gas pressure correction 19 DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: Pp_g 20 ! 21 ! Indicates the phase used for gas pressure correction 22 INTEGER, DIMENSION(:), ALLOCATABLE :: PHASE_4_P_g 23 ! 24 ! Indicates whether different phases were used for gas 25 ! pressure correction 26 LOGICAL SWITCH_4_P_g 27 ! 28 29 30 !!!HPF$ align d_e(:, *) with TT(:) 31 !!!HPF$ align d_n(:, *) with TT(:) 32 !!!HPF$ align d_t(:, *) with TT(:) 33 !!!HPF$ align Pp_g(:) with TT(:) 34 !!!HPF$ align PHASE_4_P_g(:) with TT(:) 35 36 END MODULE pgcor 37