| File |
Line number |
Procedure |
Code |
|
./model/src/find_alpha.F |
132 |
FIND_ALPHA |
t2 = t1*t1 |
|
./model/src/find_alpha.F |
133 |
FIND_ALPHA |
t3 = t2*t1 |
|
./model/src/find_alpha.F |
151 |
FIND_ALPHA |
& + 3.*eosJMDCFw(4)*t2 |
|
./model/src/find_alpha.F |
159 |
FIND_ALPHA |
& + 3.*eosJMDCSw(4)*t2 |
|
./model/src/find_alpha.F |
171 |
FIND_ALPHA |
& + 3.*eosJMDCKFw(4)*t2 |
|
./model/src/find_alpha.F |
177 |
FIND_ALPHA |
& + 3.*eosJMDCKSw(4)*t2 |
|
./model/src/find_alpha.F |
186 |
FIND_ALPHA |
& + 3.*eosJMDCKP(4)*t2 |
|
./model/src/find_alpha.F |
231 |
FIND_ALPHA |
t2 = t1*t1 |
|
./model/src/find_alpha.F |
255 |
FIND_ALPHA |
& + p1*p1*(3.*eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) |
|
./model/src/find_alpha.F |
307 |
FIND_BETA |
_RL t1, t2, t3, s1, s3o2, p1, sp5, p1t1 |
|
./model/src/find_alpha.F |
385 |
FIND_BETA |
t2 = t1*t1 |
|
./model/src/find_alpha.F |
386 |
FIND_BETA |
t3 = t2*t1 |
|
./model/src/find_alpha.F |
405 |
FIND_BETA |
& + eosJMDCSw(3)*t2 |
|
./model/src/find_alpha.F |
411 |
FIND_BETA |
& + eosJMDCSw(8)*t2 |
|
./model/src/find_alpha.F |
421 |
FIND_BETA |
& + eosJMDCKSw(3)*t2 |
|
./model/src/find_alpha.F |
425 |
FIND_BETA |
& + eosJMDCKSw(7)*t2 |
|
./model/src/find_alpha.F |
432 |
FIND_BETA |
& + eosJMDCKP(7)*t2 |
|
./model/src/find_alpha.F |
437 |
FIND_BETA |
& + eosJMDCKP(14)*t2 |
|
./model/src/find_alpha.F |
470 |
FIND_BETA |
t2 = t1*t1 |
|
./model/src/find_alpha.F |
486 |
FIND_BETA |
& + t1*( eosMDJWFden(6) + eosMDJWFden(7)*t2 ) |
|
./model/src/find_alpha.F |
487 |
FIND_BETA |
& + 1.5*sp5*(eosMDJWFden(8) + eosMDJWFden(9)*t2) |
|
./model/src/find_alpha.F |
52 |
FIND_ALPHA |
_RL t1, t2, t3, s1, s3o2, p1, p2, sp5, p1t1 |
|
./pkg/fizhi/fizhi_lwrad.F |
2517 |
TABLUP |
_RL x1,x2,x3,we,pe,fw,fp,pa,pb,pc,ax,ba,bb,t1,ca,cb,t2 |
|
./pkg/fizhi/fizhi_lwrad.F |
2567 |
TABLUP |
t2 = ca*(1.-fw) + cb*fw |
|
./pkg/fizhi/fizhi_lwrad.F |
2571 |
TABLUP |
tran(i,j)= (ax + (t1+t2*x3) * x3)*tran(i,j) |
|
./model/src/find_rho.F |
249 |
FIND_RHOP0 |
_RL t, t2, t3, t4, s, s3o2 |
|
./model/src/find_rho.F |
256 |
FIND_RHOP0 |
t2 = t*t |
|
./model/src/find_rho.F |
257 |
FIND_RHOP0 |
t3 = t2*t |
|
./model/src/find_rho.F |
272 |
FIND_RHOP0 |
& + eosJMDCFw(3)*t2 |
|
./model/src/find_rho.F |
281 |
FIND_RHOP0 |
& + eosJMDCSw(3)*t2 |
|
./model/src/find_rho.F |
288 |
FIND_RHOP0 |
& + eosJMDCSw(8)*t2 |
|
./model/src/find_rho.F |
342 |
FIND_BULKMOD |
_RL t, t2, t3, t4, s, s3o2, p, p2 |
|
./model/src/find_rho.F |
349 |
FIND_BULKMOD |
t2 = t*t |
|
./model/src/find_rho.F |
350 |
FIND_BULKMOD |
t3 = t2*t |
|
./model/src/find_rho.F |
367 |
FIND_BULKMOD |
& + eosJMDCKFw(3)*t2 |
|
./model/src/find_rho.F |
374 |
FIND_BULKMOD |
& + eosJMDCKSw(3)*t2 |
|
./model/src/find_rho.F |
379 |
FIND_BULKMOD |
& + eosJMDCKSw(7)*t2 |
|
./model/src/find_rho.F |
385 |
FIND_BULKMOD |
& + eosJMDCKP(3)*t2 |
|
./model/src/find_rho.F |
390 |
FIND_BULKMOD |
& + eosJMDCKP(7)*t2 |
|
./model/src/find_rho.F |
395 |
FIND_BULKMOD |
& + eosJMDCKP(11)*t2 |
|
./model/src/find_rho.F |
399 |
FIND_BULKMOD |
& + eosJMDCKP(14)*t2 |
|
./model/src/find_rho.F |
454 |
FIND_RHONUM |
_RL t1, t2, s1, p1 |
|
./model/src/find_rho.F |
460 |
FIND_RHONUM |
t2 = t1*t1 |
|
./model/src/find_rho.F |
470 |
FIND_RHONUM |
& + p1*(eosMDJWFnum(7) + eosMDJWFnum(8)*t2 |
|
./model/src/find_rho.F |
472 |
FIND_RHONUM |
& + p1*(eosMDJWFnum(10) + eosMDJWFnum(11)*t2) ) |
|
./model/src/find_rho.F |
524 |
FIND_RHODEN |
_RL t1, t2, s1, sp5, p1, p1t1 |
|
./model/src/find_rho.F |
532 |
FIND_RHODEN |
t2 = t1*t1 |
|
./model/src/find_rho.F |
550 |
FIND_RHODEN |
& + eosMDJWFden(7)*t2) |
|
./model/src/find_rho.F |
551 |
FIND_RHODEN |
& + sp5*(eosMDJWFden(8) + eosMDJWFden(9)*t2) ) |
|
./model/src/find_rho.F |
553 |
FIND_RHODEN |
& + p1t1*(eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) ) |
|
./model/src/find_rho.F |
592 |
FIND_RHO_SCALAR |
_RL t1, t2, t3, t4, s1, s3o2, p1, p2, sp5, p1t1 |
|
./model/src/find_rho.F |
614 |
FIND_RHO_SCALAR |
t2 = t1*t1 |
|
./model/src/find_rho.F |
615 |
FIND_RHO_SCALAR |
t3 = t2*t1 |
|
./model/src/find_rho.F |
663 |
FIND_RHO_SCALAR |
& + eosJMDCFw(3)*t2 |
|
./model/src/find_rho.F |
672 |
FIND_RHO_SCALAR |
& + eosJMDCSw(3)*t2 |
|
./model/src/find_rho.F |
679 |
FIND_RHO_SCALAR |
& + eosJMDCSw(8)*t2 |
|
./model/src/find_rho.F |
689 |
FIND_RHO_SCALAR |
& + eosJMDCKFw(3)*t2 |
|
./model/src/find_rho.F |
696 |
FIND_RHO_SCALAR |
& + eosJMDCKSw(3)*t2 |
|
./model/src/find_rho.F |
701 |
FIND_RHO_SCALAR |
& + eosJMDCKSw(7)*t2 |
|
./model/src/find_rho.F |
707 |
FIND_RHO_SCALAR |
& + eosJMDCKP(3)*t2 |
|
./model/src/find_rho.F |
712 |
FIND_RHO_SCALAR |
& + eosJMDCKP(7)*t2 |
|
./model/src/find_rho.F |
717 |
FIND_RHO_SCALAR |
& + eosJMDCKP(11)*t2 |
|
./model/src/find_rho.F |
721 |
FIND_RHO_SCALAR |
& + eosJMDCKP(14)*t2 |
|
./model/src/find_rho.F |
741 |
FIND_RHO_SCALAR |
& + p1*(eosMDJWFnum(7) + eosMDJWFnum(8)*t2 |
|
./model/src/find_rho.F |
743 |
FIND_RHO_SCALAR |
& + p1*(eosMDJWFnum(10) + eosMDJWFnum(11)*t2) ) |
|
./model/src/find_rho.F |
752 |
FIND_RHO_SCALAR |
& + eosMDJWFden(7)*t2) |
|
./model/src/find_rho.F |
753 |
FIND_RHO_SCALAR |
& + sp5*(eosMDJWFden(8) + eosMDJWFden(9)*t2) ) |
|
./model/src/find_rho.F |
755 |
FIND_RHO_SCALAR |
& + p1t1*(eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) ) |
|
./pkg/opps/opps_calc.F |
472 |
OPPS_CALC |
_RL t1, t2, t3, t4, s1, s3o2, p1, p2, sp5, p1t1 |
|
./pkg/opps/opps_calc.F |
517 |
OPPS_CALC |
t2 = t1*t1 |
|
./pkg/opps/opps_calc.F |
518 |
OPPS_CALC |
t3 = t2*t1 |
|
./pkg/opps/opps_calc.F |
553 |
OPPS_CALC |
& + eosJMDCFw(3)*t2 |
|
./pkg/opps/opps_calc.F |
562 |
OPPS_CALC |
& + eosJMDCSw(3)*t2 |
|
./pkg/opps/opps_calc.F |
569 |
OPPS_CALC |
& + eosJMDCSw(8)*t2 |
|
./pkg/opps/opps_calc.F |
579 |
OPPS_CALC |
& + eosJMDCKFw(3)*t2 |
|
./pkg/opps/opps_calc.F |
586 |
OPPS_CALC |
& + eosJMDCKSw(3)*t2 |
|
./pkg/opps/opps_calc.F |
591 |
OPPS_CALC |
& + eosJMDCKSw(7)*t2 |
|
./pkg/opps/opps_calc.F |
597 |
OPPS_CALC |
& + eosJMDCKP(3)*t2 |
|
./pkg/opps/opps_calc.F |
602 |
OPPS_CALC |
& + eosJMDCKP(7)*t2 |
|
./pkg/opps/opps_calc.F |
607 |
OPPS_CALC |
& + eosJMDCKP(11)*t2 |
|
./pkg/opps/opps_calc.F |
611 |
OPPS_CALC |
& + eosJMDCKP(14)*t2 |
|
./pkg/opps/opps_calc.F |
631 |
OPPS_CALC |
& + p1*(eosMDJWFnum(7) + eosMDJWFnum(8)*t2 |
|
./pkg/opps/opps_calc.F |
633 |
OPPS_CALC |
& + p1*(eosMDJWFnum(10) + eosMDJWFnum(11)*t2) ) |
|
./pkg/opps/opps_calc.F |
642 |
OPPS_CALC |
& + eosMDJWFden(7)*t2) |
|
./pkg/opps/opps_calc.F |
643 |
OPPS_CALC |
& + sp5*(eosMDJWFden(8) + eosMDJWFden(9)*t2) ) |
|
./pkg/opps/opps_calc.F |
645 |
OPPS_CALC |
& + p1t1*(eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) ) |