File |
Line number |
Procedure |
Code |
./model/src/find_alpha.F |
267 |
FIND_ALPHA |
dden_dtheta = eosMDJWFden(1) |
./model/src/find_alpha.F |
268 |
FIND_ALPHA |
& + t1*(2.*eosMDJWFden(2) |
./model/src/find_alpha.F |
269 |
FIND_ALPHA |
& + t1*(3.*eosMDJWFden(3) |
./model/src/find_alpha.F |
270 |
FIND_ALPHA |
& + 4.*eosMDJWFden(4)*t1 ) ) |
./model/src/find_alpha.F |
271 |
FIND_ALPHA |
& + s1*(eosMDJWFden(6) |
./model/src/find_alpha.F |
272 |
FIND_ALPHA |
& + t1*(3.*eosMDJWFden(7)*t1 |
./model/src/find_alpha.F |
273 |
FIND_ALPHA |
& + 2.*eosMDJWFden(9)*sp5 ) ) |
./model/src/find_alpha.F |
274 |
FIND_ALPHA |
& + p1*p1*(3.*eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) |
./model/src/find_alpha.F |
579 |
FIND_BETA |
dden_dsalt = eosMDJWFden(5) |
./model/src/find_alpha.F |
580 |
FIND_BETA |
& + t1*( eosMDJWFden(6) + eosMDJWFden(7)*t2 ) |
./model/src/find_alpha.F |
581 |
FIND_BETA |
& + 1.5*sp5*(eosMDJWFden(8) + eosMDJWFden(9)*t2) |
./model/src/find_rho.F |
1110 |
FIND_RHO_SCALAR |
den = eosMDJWFden(0) |
./model/src/find_rho.F |
1111 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFden(1) |
./model/src/find_rho.F |
1112 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFden(2) |
./model/src/find_rho.F |
1113 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFden(3) + t1*eosMDJWFden(4) ) ) ) |
./model/src/find_rho.F |
1114 |
FIND_RHO_SCALAR |
& + s1*(eosMDJWFden(5) |
./model/src/find_rho.F |
1115 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFden(6) |
./model/src/find_rho.F |
1116 |
FIND_RHO_SCALAR |
& + eosMDJWFden(7)*t2) |
./model/src/find_rho.F |
1117 |
FIND_RHO_SCALAR |
& + sp5*(eosMDJWFden(8) + eosMDJWFden(9)*t2) ) |
./model/src/find_rho.F |
1118 |
FIND_RHO_SCALAR |
& + p1*(eosMDJWFden(10) |
./model/src/find_rho.F |
1119 |
FIND_RHO_SCALAR |
& + p1t1*(eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) ) |
./model/src/find_rho.F |
719 |
FIND_RHODEN |
den = eosMDJWFden(0) |
./model/src/find_rho.F |
720 |
FIND_RHODEN |
& + t1*(eosMDJWFden(1) |
./model/src/find_rho.F |
721 |
FIND_RHODEN |
& + t1*(eosMDJWFden(2) |
./model/src/find_rho.F |
722 |
FIND_RHODEN |
& + t1*(eosMDJWFden(3) + t1*eosMDJWFden(4) ) ) ) |
./model/src/find_rho.F |
723 |
FIND_RHODEN |
& + s1*(eosMDJWFden(5) |
./model/src/find_rho.F |
724 |
FIND_RHODEN |
& + t1*(eosMDJWFden(6) |
./model/src/find_rho.F |
725 |
FIND_RHODEN |
& + eosMDJWFden(7)*t2) |
./model/src/find_rho.F |
726 |
FIND_RHODEN |
& + sp5*(eosMDJWFden(8) + eosMDJWFden(9)*t2) ) |
./model/src/find_rho.F |
727 |
FIND_RHODEN |
& + p1*(eosMDJWFden(10) |
./model/src/find_rho.F |
728 |
FIND_RHODEN |
& + p1t1*(eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) ) |
./model/src/ini_eos.F |
241 |
INI_EOS |
eosMDJWFden( 0) = 1.00000000 _d +00 |
./model/src/ini_eos.F |
242 |
INI_EOS |
eosMDJWFden( 1) = 7.28606739 _d -03 |
./model/src/ini_eos.F |
243 |
INI_EOS |
eosMDJWFden( 2) = -4.60835542 _d -05 |
./model/src/ini_eos.F |
244 |
INI_EOS |
eosMDJWFden( 3) = 3.68390573 _d -07 |
./model/src/ini_eos.F |
245 |
INI_EOS |
eosMDJWFden( 4) = 1.80809186 _d -10 |
./model/src/ini_eos.F |
246 |
INI_EOS |
eosMDJWFden( 5) = 2.14691708 _d -03 |
./model/src/ini_eos.F |
247 |
INI_EOS |
eosMDJWFden( 6) = -9.27062484 _d -06 |
./model/src/ini_eos.F |
248 |
INI_EOS |
eosMDJWFden( 7) = -1.78343643 _d -10 |
./model/src/ini_eos.F |
249 |
INI_EOS |
eosMDJWFden( 8) = 4.76534122 _d -06 |
./model/src/ini_eos.F |
250 |
INI_EOS |
eosMDJWFden( 9) = 1.63410736 _d -09 |
./model/src/ini_eos.F |
251 |
INI_EOS |
eosMDJWFden(10) = 5.30848875 _d -06 |
./model/src/ini_eos.F |
252 |
INI_EOS |
eosMDJWFden(11) = -3.03175128 _d -16 |
./model/src/ini_eos.F |
253 |
INI_EOS |
eosMDJWFden(12) = -1.27934137 _d -17 |
./model/src/ini_eos.F |
70 |
INI_EOS |
eosMDJWFden(k) = 0. _d 0 |
./model/inc/EOS.h |
58 |
NO PROCEDURE |
_RL eosMDJWFnum(0:11), eosMDJWFden(0:12) |
./model/inc/EOS.h |
60 |
NO PROCEDURE |
& eosMDJWFnum, eosMDJWFden |