|
<br />READ (4.90)NY.TP~OF.~MEG?
<br />R~AD (~,g2)(~T(J),J=1,12)
<br />READ (~.9l)(e~(J),J=1,12)
<br />~E~O (~,92)(9P(J),J=1,12)
<br />KtAD (~,92)(3C(J),J=1,12)
<br />~EAw (~,q2)(TSTJP(J),J;l,l:)
<br />~=AD C(,gl)(T~4XCJ),J=1,12)
<br />R=4u (~t92)(C~rNCJ),J=1,1~)
<br />~cAD (~,q~)(9TA~~CJ)tJ;lt12)
<br />,=AC (4,,2) (~~lST(J),J:l,~4)
<br />~~Ar(~,SZ) (aML=L(J),J~1,24)
<br />KE~u (!,9Z)(CAT(J,I),I=1,lZ),J=l,NY)
<br />~EA~ (~,9~)((~e(J,I),r=1,12),J=1,NY)
<br />~EAD (~,92)((AP(J,I),I=1,l:)tJ=1,NY)
<br />RfAD (!.1l)((AC(J,I),I=1,12),J=1,~y)
<br />closa(4)
<br />close(S)
<br />90 FOR~AT(I~,3F1C.~)
<br />92 FO~MATC12F~.3)
<br />o p;l n (u ro.l t = ~ , f i 1 G = ~ i- :s ..) ou t . 1 j :s ~ , ~ t e-.l u s = .." e u.: ~)
<br />Ioi:R I TE (6,10 l)
<br />101 fQRM~1(~1",7X,'lA'L3~ T~'L~~ T4YLC: PLU~ ~.M.",~x,"ELUE
<br />. ~LUE eLU=~t5x,"~.t. ~J~~C~",11X. ~CQYST4L",1.9X, "~~RK~t~Xt"
<br />+PA~~ p,~~ M~SL P~QFL~T .~~SA MESA ~ESA INFLO~ &
<br />+ POI~T C~'STAL P~RoL~T C~YSTAL CPYST~L"./t .. y~ MO INFLO~ QE
<br />.LEASE STO~~Gf INFL3~ ~EL~ASE LYPtS$ ~rw~R $TtRAGE RELE6SF
<br />+ PJWi~ l~~L~~ P.cL=AS~ 3y~tSS POW:P",/)
<br />
<br />(T
<br />I A
<br />('d
<br />':.
<br />
<br />,v
<br />
<br />.
<br />
<br />c
<br />C CALCULAT~ MCNTnLY FC~r.~tiTS
<br />C
<br />
<br />CALL FS~E:ST(~Y)
<br />
<br />c
<br />C CAlCULlTl ~~S~~~G:~ ~~LE~~r~ :::~ ESP ~lC~~S~5
<br />C
<br />
<br />CALL KELtA~~(~"rp=~~,~~t~F)'
<br />
<br />c
<br />c
<br />c
<br />
<br />CALCULAT[ P(~E~ ~El~A!~5, f'F4SSES, 'flD P~W~~
<br />
<br />CALL PC....:.::r.:((~y)
<br />
<br />.
<br />
<br />c
<br />C ~~ITl ~ESUL1$
<br />C
<br />
<br />Crb,iIIC1ll.=O
<br />b tat =0
<br />['J 11 J=l,IIY
<br />b~t~mClll.(j)=('
<br />[1:.i 13 L =-1,12
<br />T (L) = 0
<br />13 (.QNTINU!:
<br />20 12 1=1,12
<br />"ilT~(t,lC2)JtI,TPIN(J,r),T~~:L(Jtl),TP~TC(J,!).
<br />+aMIN(J,l)t~~PP(JtI),~~:YCJ.I),~~PGCJ,I),~~STO(JtI),PNREL(J,I),
<br />+PNPG(J,I),C~YK~L(J,I),C~oPCJ,I)tC;QY(J,I),CRPGCJ,I)
<br />102 FO~MfT(213,f?2,:F9.2,F~.2IF9.2,=S.2,F7.2IF~.2,
<br />.Fl0.Z,F~.Z,4F,.2)
<br />If(CR3Y(J,I) .GT. C~3Y~~~) C?~YMAX=CR~Y(J,I)
<br />dTo=TPST2(w.r)+~~STGCJtI)
<br />IF(JTP .GT. 3MT~YA~(J)) JMT~~~~(J)=~TP
<br />
<br />c
<br />C CALCULAT~ Y~~RLY TCTALS
<br />
<br />-
<br />
|