File: /nfs/home/0/users/jenkins/mfix.git/model/check_mod.f

1     
2     
3           MODULE check
4     
5     
6             Use param
7             Use param1
8     
9     !                        variables for check_mass_balance
10             DOUBLE PRECISION start_time, report_time
11     
12             DOUBLE PRECISION accumulation_g, accumulation_X_g(DIM_N_g)
13             DOUBLE PRECISION Integral_SUM_R_g, Integral_R_g(DIM_N_g)
14             DOUBLE PRECISION flux_out_g(DIMENSION_BC), flux_in_g(DIMENSION_BC)
15             DOUBLE PRECISION flux_out_X_g(DIMENSION_BC,DIM_N_g), flux_in_X_g(DIMENSION_BC,DIM_N_g)
16     
17             DOUBLE PRECISION accumulation_s(DIM_M), accumulation_X_s(DIM_M, DIM_N_s)
18             DOUBLE PRECISION Integral_SUM_R_s(DIM_M), Integral_R_s(DIM_M, DIM_N_s)
19             DOUBLE PRECISION flux_out_s(DIMENSION_BC, DIM_M), flux_in_s(DIMENSION_BC, DIM_M)
20             DOUBLE PRECISION flux_out_X_s(DIMENSION_BC,DIM_M, DIM_N_s), flux_in_X_s(DIMENSION_BC,DIM_M, DIM_N_s)
21     
22           END MODULE check
23