This repository has been archived by the owner on Jan 10, 2024. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathchemh_converge5.f90
188 lines (159 loc) · 5.08 KB
/
chemh_converge5.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
program chemh_converge4
implicit none
character in0*(32)
character in1*(32)
character in2*(32)
character in3*(32)
integer i,j,k,nsteps_0,nsteps_1,nsteps_2,nsteps_3
integer nx_0,nx_1,nx_2,nx_3
real*8 time_0,time_1,time_2,time_3,sum
real*8 data0 (4096,26)
real*8 data1 (4096,26)
real*8 data2 (4096,26)
real*8 data3 (4096,26)
real*8 data1_0(4096,26)
real*8 data2_1(4096,26)
real*8 data3_2(4096,26)
real*8 L0_10(26)
real*8 L1_10(26)
real*8 L2_10(26)
real*8 L0_21(26)
real*8 L1_21(26)
real*8 L2_21(26)
real*8 L0_32(26)
real*8 L1_32(26)
real*8 L2_32(26)
read(*,*) in0
read(*,*) in1
read(*,*) in2
read(*,*) in3
open(99,file=in0,form='formatted')
read(99,*) nsteps_0
read(99,*) nx_0
read(99,*) time_0
do i=0,nx_0-1
read(99,*) data0(i,1:26)
end do
open(10,file=in1,form='formatted')
read(10,*) nsteps_1
read(10,*) nx_1
read(10,*) time_1
do i=0,nx_1-1
read(10,*) data1(i,1:26)
end do
open(20,file=in2,form='formatted')
read(20,*) nsteps_2
read(20,*) nx_2
read(20,*) time_2
do i=0,nx_2-1
read(20,*) data2(i,1:26)
end do
open(30,file=in3,form='formatted')
read(30,*) nsteps_3
read(30,*) nx_3
read(30,*) time_3
do i=0,nx_3-1
read(30,*) data3(i,1:26)
end do
!!!!!!!!!!!!!!!!!!!
! error for input0
!!!!!!!!!!!!!!!!!!!
! coarsen fine data
do i=0,nx_0-1
do j=1,26
sum = 0.d0
do k=0,1
sum = sum + data1(2*i+k,j)
end do
data1_0(i,j) = sum / 2.d0
end do
end do
L0_10 = 0.d0
L1_10 = 0.d0
L2_10 = 0.d0
do i=0,nx_0-1
do j=1,26
L0_10(j) = max(L0_10(j), abs(data0(i,j)-data1_0(i,j)))
L1_10(j) = L1_10(j) + abs(data0(i,j)-data1_0(i,j))
L2_10(j) = L2_10(j) + (data0(i,j)-data1_0(i,j))**2
end do
end do
L1_10 = L1_10 / dble(nx_0)
L2_10 = sqrt(L2_10/nx_0)
!!!!!!!!!!!!!!!!!!!
! error for input1
!!!!!!!!!!!!!!!!!!!
! coarsen fine data
do i=0,nx_1-1
do j=1,26
sum = 0.d0
do k=0,1
sum = sum + data2(2*i+k,j)
end do
data2_1(i,j) = sum / 2.d0
end do
end do
L0_21 = 0.d0
L1_21 = 0.d0
L2_21 = 0.d0
do i=0,nx_1-1
do j=1,26
L0_21(j) = max(L0_21(j), abs(data1(i,j)-data2_1(i,j)))
L1_21(j) = L1_21(j) + abs(data1(i,j)-data2_1(i,j))
L2_21(j) = L2_21(j) + (data1(i,j)-data2_1(i,j))**2
end do
end do
L1_21 = L1_21 / dble(nx_1)
L2_21 = sqrt(L2_21/nx_1)
!!!!!!!!!!!!!!!!!!!
! error for input2
!!!!!!!!!!!!!!!!!!!
! coarsen fine data
do i=0,nx_2-1
do j=1,26
sum = 0.d0
do k=0,1
sum = sum + data3(2*i+k,j)
end do
data3_2(i,j) = sum / 2.d0
end do
end do
L0_32 = 0.d0
L1_32 = 0.d0
L2_32 = 0.d0
do i=0,nx_2-1
do j=1,26
L0_32(j) = max(L0_32(j), abs(data2(i,j)-data3_2(i,j)))
L1_32(j) = L1_32(j) + abs(data2(i,j)-data3_2(i,j))
L2_32(j) = L2_32(j) + (data2(i,j)-data3_2(i,j))**2
end do
end do
L1_32 = L1_32 / dble(nx_2)
L2_32 = sqrt(L2_32/nx_2)
1000 format(a,es12.4,es12.4,es12.4,es12.4)
1001 format(a,es9.2,a,f4.2,a,es9.2,a,f4.2,a,es9.2,a)
print*,"nsteps =",nsteps_0,nsteps_1,nsteps_2,nsteps_3
print*,"nx =",nx_0,nx_1,nx_2,nx_3
write(*,1000) "time =",time_0,time_1,time_2,time_3
print*,""
write(*,1001) "$Y({\rm H}_2)$ &",L1_10( 2)," & ",log(L1_10( 2)/L1_21( 2))/log(2.d0)," &",L1_21( 2)," & ", &
log(L1_21( 2)/L1_32( 2))/log(2.d0)," &",L1_32( 2)," \\"
write(*,1001) "$Y({\rm O}_2)$ &",L1_10( 5)," & ",log(L1_10( 5)/L1_21( 5))/log(2.d0)," &",L1_21( 5)," & ", &
log(L1_21( 5)/L1_32( 5))/log(2.d0)," &",L1_32( 5)," \\"
write(*,1001) "$Y({\rm N}_2)$ &",L1_10(10)," & ",log(L1_10(10)/L1_21(10))/log(2.d0)," &",L1_21(10)," & ", &
log(L1_21(10)/L1_32(10))/log(2.d0)," &",L1_32(10)," \\"
write(*,1001) "$Y({\rm H}_2{\rm O})$ &",L1_10( 7)," & ",log(L1_10( 7)/L1_21( 7))/log(2.d0)," &",L1_21( 7)," & ", &
log(L1_21( 7)/L1_32( 7))/log(2.d0)," &",L1_32( 7)," \\"
write(*,1001) "$Y({\rm H}_2{\rm O}_2)$ &",L1_10( 9)," & ",log(L1_10( 9)/L1_21( 9))/log(2.d0)," &",L1_21( 9)," & ", &
log(L1_21( 9)/L1_32( 9))/log(2.d0)," &",L1_32( 9)," \\"
write(*,1001) "$Y({\rm HO}_2)$ &",L1_10( 8)," & ",log(L1_10( 8)/L1_21( 8))/log(2.d0)," &",L1_21( 8)," & ", &
log(L1_21( 8)/L1_32( 8))/log(2.d0)," &",L1_32( 8)," \\"
write(*,1001) "$\rho$ &",L1_10(11)," & ",log(L1_10(11)/L1_21(11))/log(2.d0)," &",L1_21(11)," & ", &
log(L1_21(11)/L1_32(11))/log(2.d0)," &",L1_32(11)," \\"
write(*,1001) "$T$ &",L1_10(12)," & ",log(L1_10(12)/L1_21(12))/log(2.d0)," &",L1_21(12)," & ", &
log(L1_21(12)/L1_32(12))/log(2.d0)," &",L1_32(12)," \\"
write(*,1001) "$\rho h$ &",L1_10(13)," & ",log(L1_10(13)/L1_21(13))/log(2.d0)," &",L1_21(13)," & ", &
log(L1_21(13)/L1_32(13))/log(2.d0)," &",L1_32(13)," \\"
write(*,1001) "$U$ &",L1_10(14)," & ",log(L1_10(14)/L1_21(14))/log(2.d0)," &",L1_21(14)," & ", &
log(L1_21(14)/L1_32(14))/log(2.d0)," &",L1_32(14)," \\"
end program chemh_converge4