File |
Line number |
Procedure |
Code |
./model/src/find_alpha.F |
311 |
FIND_ALPHA |
dnum_dtheta = teos(02) |
./model/src/find_alpha.F |
312 |
FIND_ALPHA |
& + ct*(2.*teos(03) + 3.*teos(04)*ct) |
./model/src/find_alpha.F |
313 |
FIND_ALPHA |
& + sa*(teos(06) + 2.*teos(07)*ct |
./model/src/find_alpha.F |
314 |
FIND_ALPHA |
& + sqrtsa*(teos(09) + ct*(2.*teos(10) + 3.*teos(11)*ct))) |
./model/src/find_alpha.F |
315 |
FIND_ALPHA |
& + p*( teos(13) + 2.*teos(14)*ct + sa*2.*teos(16) |
./model/src/find_alpha.F |
316 |
FIND_ALPHA |
& + p*(teos(18) + 2.*teos(19)*ct)) |
./model/src/find_alpha.F |
318 |
FIND_ALPHA |
dden_dtheta = teos(22) |
./model/src/find_alpha.F |
319 |
FIND_ALPHA |
& + ct*(2.*teos(23) + ct*(3.*teos(24) + 4.*teos(25)*ct)) |
./model/src/find_alpha.F |
320 |
FIND_ALPHA |
& + sa*(teos(27) |
./model/src/find_alpha.F |
321 |
FIND_ALPHA |
& + ct*(2.*teos(28) + ct*(3.*teos(29) + 4.*teos(30)*ct)) |
./model/src/find_alpha.F |
322 |
FIND_ALPHA |
& + sqrtsa*(teos(32) |
./model/src/find_alpha.F |
323 |
FIND_ALPHA |
& + ct*(2.*teos(33) + ct*(3.*teos(34) + 4.*teos(35)*ct)))) |
./model/src/find_alpha.F |
324 |
FIND_ALPHA |
& + p*(teos(38) + ct*(2.*teos(39) + 3.*teos(40)*ct) |
./model/src/find_alpha.F |
325 |
FIND_ALPHA |
& + teos(42) |
./model/src/find_alpha.F |
326 |
FIND_ALPHA |
& + p*(teos(44) + 2.*teos(45)*ct + teos(46)*sa |
./model/src/find_alpha.F |
327 |
FIND_ALPHA |
& + p*teos(48) )) |
./model/src/find_alpha.F |
618 |
FIND_BETA |
dnum_dsalt = teos(05) + ct*(teos(06) + teos(07)*ct) |
./model/src/find_alpha.F |
619 |
FIND_BETA |
& + 1.5*sqrtsa*(teos(08) |
./model/src/find_alpha.F |
620 |
FIND_BETA |
& + ct*(teos(09) + ct*(teos(10) + teos(11)*ct))) |
./model/src/find_alpha.F |
621 |
FIND_BETA |
& + p*(teos(15) + teos(16)*ct + p*teos(20)) |
./model/src/find_alpha.F |
623 |
FIND_BETA |
dden_dsalt = teos(26) |
./model/src/find_alpha.F |
624 |
FIND_BETA |
& + ct*(teos(27) + ct*(teos(28) + ct*(teos(29) + teos(30)*ct))) |
./model/src/find_alpha.F |
625 |
FIND_BETA |
& + 2.*teos(36)*sa |
./model/src/find_alpha.F |
626 |
FIND_BETA |
& + 1.5*sqrtsa*(teos(31) + ct*(teos(32) + ct*(teos(33) |
./model/src/find_alpha.F |
627 |
FIND_BETA |
& + ct*(teos(34) + teos(35)*ct)))) |
./model/src/find_alpha.F |
628 |
FIND_BETA |
& + p*(teos(41) + teos(42)*ct + p*teos(46)) |
./model/src/find_rho.F |
1137 |
FIND_RHO_SCALAR |
rhoNum = teos(01) |
./model/src/find_rho.F |
1138 |
FIND_RHO_SCALAR |
& + ct*(teos(02) + ct*(teos(03) + teos(04)*ct)) |
./model/src/find_rho.F |
1139 |
FIND_RHO_SCALAR |
& + sa*(teos(05) + ct*(teos(06) + teos(07)*ct) |
./model/src/find_rho.F |
1140 |
FIND_RHO_SCALAR |
& + sqrtsa*(teos(08) + ct*(teos(09) |
./model/src/find_rho.F |
1141 |
FIND_RHO_SCALAR |
& + ct*(teos(10) + teos(11)*ct)))) |
./model/src/find_rho.F |
1142 |
FIND_RHO_SCALAR |
& + p*(teos(12) + ct*(teos(13) + teos(14)*ct) |
./model/src/find_rho.F |
1143 |
FIND_RHO_SCALAR |
& + sa*(teos(15) + teos(16)*ct) |
./model/src/find_rho.F |
1144 |
FIND_RHO_SCALAR |
& + p*(teos(17) + ct*(teos(18) + teos(19)*ct) + teos(20)*sa)) |
./model/src/find_rho.F |
1146 |
FIND_RHO_SCALAR |
den = teos(21) |
./model/src/find_rho.F |
1147 |
FIND_RHO_SCALAR |
& + ct*(teos(22) + ct*(teos(23) + ct*(teos(24) + teos(25)*ct))) |
./model/src/find_rho.F |
1148 |
FIND_RHO_SCALAR |
& + sa*(teos(26) + ct*(teos(27) + ct*(teos(28) |
./model/src/find_rho.F |
1149 |
FIND_RHO_SCALAR |
& + ct*(teos(29) + teos(30)*ct))) |
./model/src/find_rho.F |
1150 |
FIND_RHO_SCALAR |
& + teos(36)*sa |
./model/src/find_rho.F |
1151 |
FIND_RHO_SCALAR |
% + sqrtsa*(teos(31) + ct*(teos(32) + ct*(teos(33) |
./model/src/find_rho.F |
1152 |
FIND_RHO_SCALAR |
& + ct*(teos(34) + teos(35)*ct))))) |
./model/src/find_rho.F |
1153 |
FIND_RHO_SCALAR |
% + p*(teos(37) + ct*(teos(38) + ct*(teos(39) + teos(40)*ct)) |
./model/src/find_rho.F |
1154 |
FIND_RHO_SCALAR |
% + sa*(teos(41) + teos(42)*ct) |
./model/src/find_rho.F |
1155 |
FIND_RHO_SCALAR |
% + p*(teos(43) + ct*(teos(44) + teos(45)*ct + teos(46)*sa) |
./model/src/find_rho.F |
1156 |
FIND_RHO_SCALAR |
% + p*(teos(47) + teos(48)*ct))) |
./model/src/find_rho.F |
800 |
FIND_RHOTEOS |
rhoNum(i,j) = teos(01) |
./model/src/find_rho.F |
801 |
FIND_RHOTEOS |
& + ct*(teos(02) + ct*(teos(03) + teos(04)*ct)) |
./model/src/find_rho.F |
802 |
FIND_RHOTEOS |
& + sa*(teos(05) + ct*(teos(06) + teos(07)*ct) |
./model/src/find_rho.F |
803 |
FIND_RHOTEOS |
& + sqrtsa*(teos(08) + ct*(teos(09) |
./model/src/find_rho.F |
804 |
FIND_RHOTEOS |
& + ct*(teos(10) + teos(11)*ct)))) |
./model/src/find_rho.F |
805 |
FIND_RHOTEOS |
& + p*(teos(12) + ct*(teos(13) + teos(14)*ct) |
./model/src/find_rho.F |
806 |
FIND_RHOTEOS |
& + sa*(teos(15) + teos(16)*ct) |
./model/src/find_rho.F |
807 |
FIND_RHOTEOS |
& + p*(teos(17) + ct*(teos(18) + teos(19)*ct) + teos(20)*sa)) |
./model/src/find_rho.F |
809 |
FIND_RHOTEOS |
den = teos(21) |
./model/src/find_rho.F |
810 |
FIND_RHOTEOS |
& + ct*(teos(22) + ct*(teos(23) + ct*(teos(24) + teos(25)*ct))) |
./model/src/find_rho.F |
811 |
FIND_RHOTEOS |
& + sa*(teos(26) + ct*(teos(27) + ct*(teos(28) |
./model/src/find_rho.F |
812 |
FIND_RHOTEOS |
& + ct*(teos(29) + teos(30)*ct))) |
./model/src/find_rho.F |
813 |
FIND_RHOTEOS |
& + teos(36)*sa |
./model/src/find_rho.F |
814 |
FIND_RHOTEOS |
& + sqrtsa*(teos(31) + ct*(teos(32) + ct*(teos(33) |
./model/src/find_rho.F |
815 |
FIND_RHOTEOS |
& + ct*(teos(34) + teos(35)*ct))))) |
./model/src/find_rho.F |
816 |
FIND_RHOTEOS |
& + p*(teos(37) + ct*(teos(38) + ct*(teos(39) + teos(40)*ct)) |
./model/src/find_rho.F |
817 |
FIND_RHOTEOS |
& + sa*(teos(41) + teos(42)*ct) |
./model/src/find_rho.F |
818 |
FIND_RHOTEOS |
& + p*(teos(43) + ct*(teos(44) + teos(45)*ct + teos(46)*sa) |
./model/src/find_rho.F |
819 |
FIND_RHOTEOS |
& + p*(teos(47) + teos(48)*ct))) |
./model/src/ini_eos.F |
257 |
INI_EOS |
teos(01) = 9.998420897506056 _d +02 |
./model/src/ini_eos.F |
258 |
INI_EOS |
teos(02) = 2.839940833161907 _d 00 |
./model/src/ini_eos.F |
259 |
INI_EOS |
teos(03) = -3.147759265588511 _d -02 |
./model/src/ini_eos.F |
260 |
INI_EOS |
teos(04) = 1.181805545074306 _d -03 |
./model/src/ini_eos.F |
261 |
INI_EOS |
teos(05) = -6.698001071123802 _d 00 |
./model/src/ini_eos.F |
262 |
INI_EOS |
teos(06) = -2.986498947203215 _d -02 |
./model/src/ini_eos.F |
263 |
INI_EOS |
teos(07) = 2.327859407479162 _d -04 |
./model/src/ini_eos.F |
264 |
INI_EOS |
teos(08) = -3.988822378968490 _d -02 |
./model/src/ini_eos.F |
265 |
INI_EOS |
teos(09) = 5.095422573880500 _d -04 |
./model/src/ini_eos.F |
266 |
INI_EOS |
teos(10) = -1.426984671633621 _d -05 |
./model/src/ini_eos.F |
267 |
INI_EOS |
teos(11) = 1.645039373682922 _d -07 |
./model/src/ini_eos.F |
268 |
INI_EOS |
teos(12) = -2.233269627352527 _d -02 |
./model/src/ini_eos.F |
269 |
INI_EOS |
teos(13) = -3.436090079851880 _d -04 |
./model/src/ini_eos.F |
270 |
INI_EOS |
teos(14) = 3.726050720345733 _d -06 |
./model/src/ini_eos.F |
271 |
INI_EOS |
teos(15) = -1.806789763745328 _d -04 |
./model/src/ini_eos.F |
272 |
INI_EOS |
teos(16) = 6.876837219536232 _d -07 |
./model/src/ini_eos.F |
273 |
INI_EOS |
teos(17) = -3.087032500374211 _d -07 |
./model/src/ini_eos.F |
274 |
INI_EOS |
teos(18) = -1.988366587925593 _d -08 |
./model/src/ini_eos.F |
275 |
INI_EOS |
teos(19) = -1.061519070296458 _d -11 |
./model/src/ini_eos.F |
276 |
INI_EOS |
teos(20) = 1.550932729220080 _d -10 |
./model/src/ini_eos.F |
277 |
INI_EOS |
teos(21) = 1.000000000000000 _d 00 |
./model/src/ini_eos.F |
278 |
INI_EOS |
teos(22) = 2.775927747785646 _d -03 |
./model/src/ini_eos.F |
279 |
INI_EOS |
teos(23) = -2.349607444135925 _d -05 |
./model/src/ini_eos.F |
280 |
INI_EOS |
teos(24) = 1.119513357486743 _d -06 |
./model/src/ini_eos.F |
281 |
INI_EOS |
teos(25) = 6.743689325042773 _d -10 |
./model/src/ini_eos.F |
282 |
INI_EOS |
teos(26) = -7.521448093615448 _d -03 |
./model/src/ini_eos.F |
283 |
INI_EOS |
teos(27) = -2.764306979894411 _d -05 |
./model/src/ini_eos.F |
284 |
INI_EOS |
teos(28) = 1.262937315098546 _d -07 |
./model/src/ini_eos.F |
285 |
INI_EOS |
teos(29) = 9.527875081696435 _d -10 |
./model/src/ini_eos.F |
286 |
INI_EOS |
teos(30) = -1.811147201949891 _d -11 |
./model/src/ini_eos.F |
287 |
INI_EOS |
teos(31) = -3.303308871386421 _d -05 |
./model/src/ini_eos.F |
288 |
INI_EOS |
teos(32) = 3.801564588876298 _d -07 |
./model/src/ini_eos.F |
289 |
INI_EOS |
teos(33) = -7.672876869259043 _d -09 |
./model/src/ini_eos.F |
290 |
INI_EOS |
teos(34) = -4.634182341116144 _d -11 |
./model/src/ini_eos.F |
291 |
INI_EOS |
teos(35) = 2.681097235569143 _d -12 |
./model/src/ini_eos.F |
292 |
INI_EOS |
teos(36) = 5.419326551148740 _d -06 |
./model/src/ini_eos.F |
293 |
INI_EOS |
teos(37) = -2.742185394906099 _d -05 |
./model/src/ini_eos.F |
294 |
INI_EOS |
teos(38) = -3.212746477974189 _d -07 |
./model/src/ini_eos.F |
295 |
INI_EOS |
teos(39) = 3.191413910561627 _d -09 |
./model/src/ini_eos.F |
296 |
INI_EOS |
teos(40) = -1.931012931541776 _d -12 |
./model/src/ini_eos.F |
297 |
INI_EOS |
teos(41) = -1.105097577149576 _d -07 |
./model/src/ini_eos.F |
298 |
INI_EOS |
teos(42) = 6.211426728363857 _d -10 |
./model/src/ini_eos.F |
299 |
INI_EOS |
teos(43) = -1.119011592875110 _d -10 |
./model/src/ini_eos.F |
300 |
INI_EOS |
teos(44) = -1.941660213148725 _d -11 |
./model/src/ini_eos.F |
301 |
INI_EOS |
teos(45) = -1.864826425365600 _d -14 |
./model/src/ini_eos.F |
302 |
INI_EOS |
teos(46) = 1.119522344879478 _d -14 |
./model/src/ini_eos.F |
303 |
INI_EOS |
teos(47) = -1.200507748551599 _d -15 |
./model/src/ini_eos.F |
304 |
INI_EOS |
teos(48) = 6.057902487546866 _d -17 |
./model/src/ini_eos.F |
73 |
INI_EOS |
teos(k) = 0. _d 0 |
./model/inc/EOS.h |
61 |
NO PROCEDURE |
_RL teos(48) |
./model/inc/EOS.h |
63 |
NO PROCEDURE |
& teos |