ex53.data

油田化学驱模拟的经典 fortran源代码

.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .27000     .27000     .27000     .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01
.27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01
.27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01
.27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01
.27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01
.27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01
.27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01
.27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.27000     .27000     .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.27000     .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.27000     .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01


.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01
.10000E-01 .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01
.27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01
.27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01
.27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01 .10000E-01
.27000     .27000     .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.27000     .27000     .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.27000     .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.27000     .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01


.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01 .10000E-01
.10000E-01 .27000     .10000E-01 .10000E-01 .10000E-01 .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01 .10000E-01
.10000E-01 .27000     .27000     .10000E-01 .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01


.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .27000     .27000     .27000     .27000     .27000     .27000     .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .27000     .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .27000     .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
.10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01 .10000E-01
CC
CC CONSTANT X-PERMEABILITY (MILIDARCY) FOR LAYER K = 1,NZ
*----PERMXC
.50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 2280.0     2500.0     2425.0     3360.0     10790.     14630.    
.50000E-02 .50000E-02 .50000E-02 14870.     16020.     8660.0     8630.0     9461.0     8230.0     11540.     6423.0     5371.0     6399.0     3412.0     17540.     5399.0     10340.     16350.     6946.0     17740.    
30080.     8079.0     19060.     15810.     4749.0     7984.0     4286.0     7575.0     5451.0     5690.0     11170.     29090.     31690.     17230.     11750.     9469.0     8120.0     8843.0     3036.0     2761.0    
27100.     9843.0     11480.     16350.     28790.     19160.     14790.     10160.     21990.     12240.     8192.0     9732.0     7980.0     10170.     5765.0     3318.0     11530.     16580.     5381.0     3523.0    
58190.     29160.     19240.     30450.     23660.     19930.     18160.     17440.     12390.     7561.0     15880.     18300.     19670.     21130.     19880.     9469.0     16310.     11850.     8385.0     2129.0    
31870.     47070.     50540.     34340.     51820.     58090.     16720.     11570.     6503.0     7387.0     37000.     49090.     48410.     28940.     57510.     78590.     37670.     24250.     7709.0     4395.0    
13770.     8106.0     8857.0     26490.     28490.     51070.     15960.     6730.0     4305.0     3216.0     2202.0     9864.0     16890.     21380.     .10460E+06 .13180E+06 .24860E+06 54100.     40170.     43000.    
5738.0     7777.0     13270.     22550.     63960.     45080.     10870.     2669.0     3525.0     8935.0     12260.     12320.     28970.     29290.     51840.     47050.     .17180E+06 .21270E+06 .22850E+06 .25950E+06
21620.     15760.     19590.     .10380E+06 .22300E+06 74060.     50880.     16410.     6621.0     13510.     13320.     23800.     25270.     82940.     34390.     50810.     30300.     53540.     91030.     .50000E-02
8007.0     31930.     .14510E+06 .21020E+06 .15890E+06 42980.     23790.     15200.     8058.0     5184.0     5070.0     12670.     13600.     18350.     25140.     32510.     20250.     35580.     35160.     .50000E-02
21360.     19900.     20500.     28320.     13820.     9690.0     11970.     3662.0     5964.0     4623.0     3090.0     3053.0     5862.0     13480.     14440.     20260.     18300.     23520.     33880.     .50000E-02
5588.0     6039.0     5633.0     15400.     7678.0     10820.     10160.     12740.     5614.0     10860.     7885.0     7841.0     6965.0     11710.     10770.     10880.     20450.     99720.     .23790E+06 .50000E-02
1701.0     3346.0     3820.0     6662.0     4701.0     11760.     34000.     8667.0     8950.0     8497.0     8016.0     3468.0     4443.0     34000.     8696.0     5808.0     4813.0     8558.0     10220.     .50000E-02
711.30     814.20     1298.0     1909.0     5365.0     3882.0     6854.0     12240.     12950.     8552.0     6867.0     9015.0     4432.0     4887.0     2676.0     6323.0     8277.0     14880.     27350.     .50000E-02
880.90     1747.0     1665.0     2218.0     1749.0     2634.0     4171.0     3778.0     6447.0     4287.0     3947.0     4339.0     9766.0     5248.0     5559.0     4600.0     6505.0     8871.0     .50000E-02 .50000E-02
306.80     578.20     1606.0     3254.0     4742.0     7075.0     4634.0     9992.0     3527.0     3008.0     6702.0     .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02
168.40     681.30     1257.0     3006.0     .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02


.50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02
.50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 .50000E-02 18680.     2305.0     3921.0     6039.0     15900.     7412.0     4278.0