module12.f

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

     * ,REDI(:),TC(:)
      INTEGER, ALLOCATABLE ::  ICOMET(:),IGROW(:) 
     * ,IRCT(:),IRLIM(:)
      DOUBLE PRECISION, ALLOCATABLE ::  XMD(:),ZMD(:)
      INTEGER, ALLOCATABLE ::  LX(:,:),LY(:,:),LZ(:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  VBM(:),CSION(:)
     * ,TSURF(:),PSURF(:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  ALX1(:),BLX1(:),ALY1(:)
     * ,BLY1(:),ALZ1(:) 
     * ,BLZ1(:),RPERMX(:,:),RPERMY(:,:),RPERMZ(:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  DNOILC(:),DENBIO(:)
      DOUBLE PRECISION, ALLOCATABLE ::  REDUC(:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  C15ADS(:),C14ADS(:),QW(:) 
     * ,C16ADS(:),CNAADS(:)
      DOUBLE PRECISION, ALLOCATABLE ::  GKIN(:),GRATE(:)
      DOUBLE PRECISION, ALLOCATABLE ::  SWSTAR(:)
      DOUBLE PRECISION, ALLOCATABLE ::  P4RW(:),E4W(:),S4RW(:)
      DOUBLE PRECISION, ALLOCATABLE ::  S2RW4(:),SR1(:),SR2(:)
      LOGICAL, ALLOCATABLE ::  LWKSP2(:),LWKSP3(:),LWKSP4(:)
      DOUBLE PRECISION, ALLOCATABLE ::  CDC(:)
      DOUBLE PRECISION, ALLOCATABLE ::  TCAT(:)
      DOUBLE PRECISION, ALLOCATABLE ::  RINO(:),RINU(:),TEM(:)
      DOUBLE PRECISION, ALLOCATABLE ::  TVHC(:)
      DOUBLE PRECISION, ALLOCATABLE ::  CVSPL(:)
      DOUBLE PRECISION, ALLOCATABLE ::  BVI(:),TEMINJ(:),ENTHE(:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  TTCHG(:)
      DOUBLE PRECISION, ALLOCATABLE ::  CTOT(:,:),C(:,:,:),CSE(:),S(:,:) 
     * ,CE(:,:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  CSEL(:),CSEU(:)
      DOUBLE PRECISION, ALLOCATABLE ::  XIFT1(:),XIFT2(:)
      INTEGER, ALLOCATABLE ::  NPHASE(:)
      DOUBLE PRECISION   ALPHAV(5)
      DOUBLE PRECISION, ALLOCATABLE ::  VISW(:)
      DOUBLE PRECISION, ALLOCATABLE ::  VIS(:,:),RPERM(:,:)
     * ,PERMX(:),PERMY(:) 
     * ,PERMZ(:),QI(:,:),QB(:,:),Q(:,:,:),QT(:) 
     * ,CUMQI(:),CUMQP(:),PWF(:)
      DOUBLE PRECISION, ALLOCATABLE ::  S1RW(:),S2RW(:),P1RW(:),P2RW(:) 
     * ,P3RW(:),E1W(:),E2W(:),E3W(:),S3RW(:) 
     * ,CNUM(:,:),SR(:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  EL(:),DX(:),DY(:),DZ(:)
     * ,R(:),RP(:) 
     * ,RPSQ(:)
      INTEGER, ALLOCATABLE ::  IJKPOS(:,:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  DEN(:,:),PRC(:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  C3ADSS(:),A3DS(:),EFFK(:)
      DOUBLE PRECISION, ALLOCATABLE ::  C4ADSS(:),AD4(:)
      DOUBLE PRECISION, ALLOCATABLE ::  POR(:),RKF(:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  COMPC(:),CTERM(:)
      DOUBLE PRECISION, ALLOCATABLE ::  SOT(:),SWMIN(:)
      INTEGER, ALLOCATABLE ::  LL(:)
      DOUBLE PRECISION, ALLOCATABLE ::  DDYY(:)
      LOGICAL, ALLOCATABLE ::  LWS2(:)
      DOUBLE PRECISION, ALLOCATABLE ::  WQI(:),WQP(:),WCUMI(:),WCUMP(:)
     * ,FBAR(:) 
     * ,SBAR(:)
      DOUBLE PRECISION, ALLOCATABLE ::  ELEMNT(:,:),FLDSPS(:,:)
     * ,SLDSPS(:,:),SORBSP(:,:),ACATSP(:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  SPNAME(:),PWFR(:,:),WELNAM(:,:) 
      DOUBLE PRECISION   RUNNO(1)
      DOUBLE PRECISION, ALLOCATABLE ::  AKOCK(:),C2ADSK(:,:),DCOK(:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  C11OD(:),SCPK(:,:),CKSEQ(:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  OMWT(:),OEACN(:)
      DOUBLE PRECISION, ALLOCATABLE ::  EACNM(:)
      DOUBLE PRECISION, ALLOCATABLE ::  DNOME(:)
      DOUBLE PRECISION, ALLOCATABLE ::  XO(:,:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  OVIS(:)
      INTEGER, ALLOCATABLE ::  INBPR(:),INBPRN(:)
      DOUBLE PRECISION, ALLOCATABLE ::  CINIT(:),CBI(:)
      DOUBLE PRECISION, ALLOCATABLE ::  H(:,:),GGG(:,:),FFF(:,:),PP(:,:)
      DOUBLE PRECISION   DBMWT(14)
      DOUBLE PRECISION, ALLOCATABLE ::  XD(:)
      INTEGER, ALLOCATABLE ::  IPRFLG(:)
      INTEGER              ::  IJKOB(200)
      DOUBLE PRECISION, ALLOCATABLE ::  RESATK(:),BTO(:),VB(:)
      INTEGER, ALLOCATABLE ::  NKEX(:),NSORBX(:)
      DOUBLE PRECISION, ALLOCATABLE ::  BBIN(:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  AR(:,:),BR(:,:),DR(:,:) 
     * ,ER(:,:),BB(:,:),EXSLD(:,:) 
     * ,CHARGE(:),SCHARG(:,:),CHACAT(:) 
     * ,EXCAI(:),EXCA(:),EXEX(:,:,:) 
     * ,EXACAT(:,:),EQK(:),EXK(:,:) 
     * ,SPK(:),EXKL(:,:),SPKL(:),ACATK(:)
      DOUBLE PRECISION, ALLOCATABLE ::  CSLDI(:),CSORBI(:),CELAQI(:) 
     * ,CI(:),CSLDT(:,:),CSORBT(:,:) 
     * ,CAQI(:),CAQSP(:,:),CACATT(:,:) 
     * ,CACAT(:,:)
      INTEGER, ALLOCATABLE          ::  NSLDAB(:)
      DOUBLE PRECISION, ALLOCATABLE ::  AA(:,:),TTT(:),TOT(:),CIND(:) 
     * ,CFLD(:),CSLD(:),CSORB(:),CAACAT(:) 
     * ,CVAR(:),CLOG(:),FUNC(:),DERIV(:,:) 
     * ,CELFLT(:)
      DOUBLE PRECISION, ALLOCATABLE ::  EQSAL(:),C12O(:),CTOTH(:,:)
     * ,CTOTA(:,:) 
     * ,C14O(:),FS6(:),FS14(:)
      INTEGER, ALLOCATABLE ::  INCMEL(:)
      DOUBLE PRECISION, ALLOCATABLE ::  ELCRG(:)
      DOUBLE PRECISION, ALLOCATABLE ::  CUMI(:),CUMP(:),OIP(:),OP(:)
      DOUBLE PRECISION, ALLOCATABLE ::  RED(:,:),REDB(:,:,:)
      INTEGER, ALLOCATABLE          ::  ICF(:)
      DOUBLE PRECISION, ALLOCATABLE ::  VFRACM(:),DMX(:),DMY(:),DMZ(:) 
     * ,XLSUB(:,:),YLSUB(:,:),ZLSUB(:,:) 
     * ,VSUB(:,:,:),PORCM(:,:,:) 
     * ,CSUB(:,:,:,:) 
     * ,DXL(:),DYL(:),DZL(:),VNUM(:) 
     * ,CT(:,:),THM(:,:,:),TVM(:,:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  TK(:),TTRP(:),TREC(:),TBT(:,:) 
     * ,RDC(:),TRD(:),RET(:),CINJT(:),TMW(:),TDEN(:) 
      DOUBLE PRECISION  TAK(2),RCOR(2)
      INTEGER, ALLOCATABLE ::  ITRU(:)
      DOUBLE PRECISION, ALLOCATABLE ::  TKS(:),TKT(:)
      DOUBLE PRECISION  TAKT(2)
      DOUBLE PRECISION, ALLOCATABLE ::  BBTEM(:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  DNX(:),DNZ(:)
      DOUBLE PRECISION   TITLE(30)
      DOUBLE PRECISION, ALLOCATABLE ::  RELERR(:)
      DOUBLE PRECISION, ALLOCATABLE ::  DELC(:)
      DOUBLE PRECISION, ALLOCATABLE ::  FVF(:),QTS(:)
      DOUBLE PRECISION, ALLOCATABLE ::  WDISO(:),CTOT2S(:,:),SUM12(:) 
     * ,CTOT1S(:),CTOT3S(:)
      DOUBLE PRECISION, ALLOCATABLE ::  GAM1(:,:),VISP(:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  QTMIN(:),QTMAX(:),PWFMIN(:)
     * ,PWFMAX(:)
      INTEGER, ALLOCATABLE ::  ICHEK(:)
      INTEGER, ALLOCATABLE ::  IDW(:),IFLAG(:),IDIR(:) 
     * ,IWC(:,:),JWC(:,:),KWC(:,:),NWBC(:)
      DOUBLE PRECISION, ALLOCATABLE ::  RW(:),SWELL(:)
      INTEGER, ALLOCATABLE ::  KPRF(:,:),IPRF(:) 
     * ,IW(:),JW(:),IFIRST(:),ILAST(:)
      DOUBLE PRECISION, ALLOCATABLE ::  RO(:,:),PIB(:,:),PI(:,:,:) 
     * ,WELNDX(:,:),HEAD(:,:),PE(:)
      INTEGER, ALLOCATABLE ::  ISHUT(:)
      DOUBLE PRECISION, ALLOCATABLE ::  XCRD(:,:),YCRD(:,:),ZCRD(:,:)
C---------------------------------------------------------
C           MULTI_NAME COMMON BLOCKS
C---------------------------------------------------------
CCC
C---VWKSP1-----
      DOUBLE PRECISION, ALLOCATABLE ::  WKSP1(:),WKSP2(:),WKSP3(:)
     * ,WKSP4(:),WKSP5(:)
C---VWKSP2-----
      DOUBLE PRECISION, ALLOCATABLE ::  AW(:),AE(:),AN(:),AS(:),AT(:) 
     * ,AB(:),AC(:),BV(:)
C---VWKSP3-----
      DOUBLE PRECISION, ALLOCATABLE ::  TWS1(:,:),TWS2(:,:),TWS3(:,:) 
     * ,TWS4(:,:,:),TWS5(:)
C---VWKSP4-----
      DOUBLE PRECISION, ALLOCATABLE ::  DUM1(:),DUM2(:),DUM3(:),DUM4(:) 
     * ,DUM5(:),DUM6(:),DUM7(:)
C---DILV-------
      DOUBLE PRECISION, ALLOCATABLE ::  F6S(:),F7S(:),F8S(:),CA71(:) 
     * ,CA72(:),CA73(:),CA81(:),CA82(:),CA83(:)
C---ION-------
      DOUBLE PRECISION, ALLOCATABLE ::  C6JO(:),C6ADSS(:),C6HATS(:)
     * ,QVV(:)
C---HH14------
      DOUBLE PRECISION, ALLOCATABLE ::  PORMY(:),P(:,:),CPC(:,:)
     * ,EPC(:,:) 
     * ,SSTAR(:)
C---HH15------
      DOUBLE PRECISION, ALLOCATABLE ::  TRSX(:,:),TRSY(:,:),TRSZ(:,:)
     * ,TX(:) 
     * ,TY(:),TZ(:),CONVX(:,:,:),CONVY(:,:,:) 
     * ,CONVZ(:,:,:),VELX(:,:),VELY(:,:),VELZ(:,:)
C---LWKSP----
      LOGICAL, ALLOCATABLE ::  LWKSP1(:)
      DOUBLE PRECISION, ALLOCATABLE ::  DCO(:),CNEM2(:)
      DOUBLE PRECISION, ALLOCATABLE ::  C2OLD(:)
      DOUBLE PRECISION, ALLOCATABLE ::  SCHM(:),REY(:),SHER(:),DP(:)
      DOUBLE PRECISION, ALLOCATABLE ::  COI(:,:),WSOLK(:)
      DOUBLE PRECISION, ALLOCATABLE ::  QL(:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  RFACT(:)
      DOUBLE PRECISION, ALLOCATABLE ::  XCORD(:),ZCORD(:)
      DOUBLE PRECISION, ALLOCATABLE ::  AD21(:,:),AD22(:,:),C2ADSS(:)
      DOUBLE PRECISION, ALLOCATABLE ::  SBIOO(:),SBION(:),PORI(:)
      DOUBLE PRECISION, ALLOCATABLE ::  ADSBIO(:)
      DOUBLE PRECISION, ALLOCATABLE ::  AFLUX(:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  DCF(:),DCBF(:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  SUBBAR(:),EABAR(:)
      DOUBLE PRECISION, ALLOCATABLE ::  CF(:),CBF(:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  DREDF(:),DREDBF(:,:)
      DOUBLE PRECISION, ALLOCATABLE ::  REDF(:),REDBF(:,:) 
      DOUBLE PRECISION, ALLOCATABLE ::  SWOLD(:),PCOLD(:)
      DOUBLE PRECISION, ALLOCATABLE ::  SWREV(:),PCREV(:)
      INTEGER, ALLOCATABLE          ::  IPATH(:),ISWREV(:)
      INTEGER                       ::MXIND
      INTEGER                       ::MXSLD
      END MODULE MODULE12