ex51.data

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

CC CONSTANT PRESSURE (PSIA)
*----PRESS1
     16.107 
CC
CC INITIAL WATER 
*----SWI (end of phase I test at time 117.5 days)
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 0.99873 , 0.99953 ,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 0.99934 , 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 0.80139 , 1., 1., 1., 1., 1., 0.00000 ,
 0.99970 , 0.99923 , 0.99862 , 0.99849 , 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 0.80330 , 1., 1., 1., 1., 0.00000 , 0.79906 ,
 0.79749 , 0.79803 , 0.79565 , 0.78980 , 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 0.81855 , 0.81023 , 0.80977 , 0.80101 , 0.79944 , 0.79890 , 0.79496 ,
 0.78470 , 0.79412 , 0.78848 , 0.85517 , 0.79522 , 0.80046 , 0.80073 , 1., 1., 1.,
  1., 1., 1., 0.80543 , 0.80995 , 0.82079 , 1., 0.79742 , 0.79501 , 0.78537 ,
 0.79450 , 0.78571 , 0.87406 , 1., 0.80972 , 0.79918 , 0.84302 , 1., 1., 1.,
  1., 1., 1., 0.81705 , 0.80594 , 0.81163 , 0.79587 , 0.79768 , 0.79782 , 0.79561 ,
 0.78542 , 0.79354 , 0.78873 , 0.81641 , 0.79368 , 0.79581 , 0.80143 , 0.90032 , 1., 1.,
  1., 1., 1., 0.83112 , 0.80721 , 0.80742 , 0.80001 , 0.79990 , 0.79861 , 0.79765 ,
 0.79722 , 0.79745 , 0.79633 , 0.78876 , 0.79327 , 0.79607 , 0.80068 , 0.80220 , 1., 1.,
  1., 1., 1., 1., 0.80381 , 0.80401 , 0.80910 , 0.80128 , 0.80011 , 0.79319 ,
 0.79281 , 0.79604 , 0.80089 , 0.82060 , 0.79490 , 0.79468 , 0.80058 , 0.80067 , 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 0.83542 , 0.80107 , 0.81048 ,
 0.80679 , 0.88271 , 1., 1., 0.85127 , 0.79798 , 0.80100 , 0.80108 , 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 0.80269 , 0.80478 , 0.92843 , 0.80197 , 0.80099 , 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 0.80004 , 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 0.80018 , 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 0.80026 , 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 0.80046 , 1., 1., 1., 1., 1., 1., 0.99776 ,
 0.99541 , 0.99334 , 0.99220 , 0.99360 , 1., 1., 1., 1., 1., 1.,
  1., 1., 0.80073 , 1., 1., 1., 1., 1., 0.99815 , 0.79414 ,
 0.78905 , 0.78398 , 0.79068 , 0.87996 , 0.99419 , 0.00000 , 1., 1., 1., 1.,
  1., 1., 0.80221 , 1., 0.80029 , 0.79923 , 1., 0.78446 , 0.78103 , 0.78201 ,
 0.85243 , 0.86944 , 1., 1., 0.83003 , 0.00000 , 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 0.80018 , 0.78687 , 0.79154 , 0.79272 , 0.79008 ,
 0.78473 , 0.78271 , 0.80524 , 1., 0.78537 , 0.79008 , 0.79894 , 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 0.79836 , 0.79800 , 0.79687 , 0.79572 ,
 0.79361 , 0.79085 , 0.78590 , 0.78555 , 0.78607 , 0.79244 , 0.79905 , 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 0.00000 , 0.79695 ,
 0.79599 , 0.79361 , 0.78756 , 0.78450 , 0.79259 , 0.79499 , 0.79981 , 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 0.99737 ,
 0.99071 , 0.98525 , 1., 1., 0.99317 , 0.99962 , 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 0.80013 , 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 0.80007 , 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 0.80014 , 0.80000 , 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 0.80010 , 0.80000 , 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 0.80013 , 0.80000 , 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 0.79999 , 0.80000 , 1., 1., 1., 1., 0.99602 , 0.99382 , 0.99269 ,
 0.98915 , 1., 1., 1., 0.97973 , 1., 1., 1., 1., 1.,
  1., 0.80028 , 1., 1., 1., 1., 0.99616 , 0.79082 , 0.77969 , 0.77834 ,
 1., 1., 1., 1., 0.96298 , 0.98594 , 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 0.99610 , 0.78951 , 0.77621 , 0.77970 ,
 0.78793 , 0.91451 , 1., 1., 0.85311 , 0.78677 , 0.99859 , 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 0.99604 , 0.99670 , 0.79538 ,
 0.78606 , 0.78225 , 0.78541 , 0.86016 , 0.78269 , 0.78260 , 0.99934 , 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 0.99675 ,
 0.99289 , 0.98911 , 0.98824 , 0.98886 , 0.99433 , 0.99862 , 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
  1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,
CC
CC FLAGS FOR CHANGES IN PORISTY, PERMEADBILITYT, ND WATER SATURATION
*----IMPOR    IMKX    IMKY    IMKZ    IMSW
      1         1       1       1      0 
CC
CC NUMBER OF REGIONS OF AQUIFER WITH MODIFIED POROSITY
*---NMOD
         1 
CC
CC
*-----IMIN    IMAX    JMIN    JMAX    KMIN    KMAX    IFACT    FACTX
 20 20 17 17  6  6  1  .01
CC
CC NUMBER OF REGIONS OF AQUIFER WITH MODIFIED X PERMEABILITY
*---NMOD
         11   
CC
CC  IFACT = 1 FOR REPLACE, = 2 FOR MULTIPLY, =3 FOR ADD TO
*-----IMIN    IMAX    JMIN    JMAX    KMIN    KMAX    IFACT    FACTX
  7  7 13 13  1  2  1  34000.
  7  7  9  9  2  5  1  34000.
  7  7  5  5  2  4  1  34000.
 14 14 13 13  1  2  1  34000.
 14 14  9  9  2  6  1  34000.
 14 14  5  5  2  4  1  34000.
 11 11  9  9  2  6  1  34000.
 18 18  9  9  2  4  1  34000.
  8 13  3  6  1  6  2   0.70
 15 16  7 11  1  6  2   0.05
  8 13 12 14  2  2  2   0.70
CC