File |
Line number |
Procedure |
Code |
./model/src/find_alpha.F |
144 |
FIND_ALPHA |
p2 = p1*p1 |
./model/src/find_alpha.F |
191 |
FIND_ALPHA |
& + p2*( eosJMDCKP(10) |
./model/src/find_alpha.F |
194 |
FIND_ALPHA |
& + p2*s1*( eosJMDCKP(13) |
./model/src/find_alpha.F |
52 |
FIND_ALPHA |
_RL t1, t2, t3, s1, s3o2, p1, p2, sp5, p1t1 |
./model/src/find_rho.F |
342 |
FIND_BULKMOD |
_RL t, t2, t3, t4, s, s3o2, p, p2 |
./model/src/find_rho.F |
362 |
FIND_BULKMOD |
p2 = p*p |
./model/src/find_rho.F |
393 |
FIND_BULKMOD |
& + p2*( eosJMDCKP(9) |
./model/src/find_rho.F |
397 |
FIND_BULKMOD |
& + p2*s*( eosJMDCKP(12) |
./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 |
647 |
FIND_RHO_SCALAR |
p2 = p1*p1 |
./model/src/find_rho.F |
705 |
FIND_RHO_SCALAR |
& + p2*( eosJMDCKP(9) |
./model/src/find_rho.F |
709 |
FIND_RHO_SCALAR |
& + p2*s1*( eosJMDCKP(12) |
./pkg/kpp/kpp_routines.F |
849 |
Z121 |
_KPP_RL p0 , p25 , p5 , p2 |
./pkg/kpp/kpp_routines.F |
850 |
Z121 |
parameter ( p0 = 0.0, p25 = 0.25, p5 = 0.5, p2 = 2.0 ) |
./pkg/kpp/kpp_routines.F |
876 |
Z121 |
v(i,1) = p2 * v(i,1) + |
./pkg/kpp/kpp_routines.F |
878 |
Z121 |
zflag = p2 + KRi_range(1) * KRi_range(2) |
./pkg/kpp/kpp_routines.F |
886 |
Z121 |
v(i,k) = p2 * v(i,k) + |
./pkg/kpp/kpp_routines.F |
890 |
Z121 |
zflag = p2 + KRi_range(k)*(KRi_range(kp1)+KRi_range(km1)) |