| File |
Line number |
Procedure |
Code |
|
./pkg/openad/seawater.F |
49 |
SW_PTMP |
_RL del_P ,del_th, th, q |
|
./pkg/openad/seawater.F |
58 |
SW_PTMP |
del_th = del_P*adtg_val |
|
./pkg/openad/seawater.F |
59 |
SW_PTMP |
th = T + onehalf*del_th |
|
./pkg/openad/seawater.F |
60 |
SW_PTMP |
q = del_th |
|
./pkg/openad/seawater.F |
63 |
SW_PTMP |
del_th = del_P*adtg_val |
|
./pkg/openad/seawater.F |
65 |
SW_PTMP |
th = th + (1 - 1/sqrt(two))*(del_th - q) |
|
./pkg/openad/seawater.F |
66 |
SW_PTMP |
q = (two-sqrt(two))*del_th + (-two+three/sqrt(two))*q |
|
./pkg/openad/seawater.F |
70 |
SW_PTMP |
del_th = del_P*adtg_val |
|
./pkg/openad/seawater.F |
71 |
SW_PTMP |
th = th + (1 + 1/sqrt(two))*(del_th - q) |
|
./pkg/openad/seawater.F |
72 |
SW_PTMP |
q = (two + sqrt(two))*del_th + (-two-three/sqrt(two))*q |
|
./pkg/openad/seawater.F |
76 |
SW_PTMP |
del_th = del_P*adtg_val |
|
./pkg/openad/seawater.F |
77 |
SW_PTMP |
rv = th + (del_th - two*q)/(two*three) |
|
./model/src/seawater.F |
50 |
NO PROCEDURE |
_RL del_P ,del_th, th, q |
|
./model/src/seawater.F |
57 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,T,P) |
|
./model/src/seawater.F |
58 |
NO PROCEDURE |
th = T + onehalf*del_th |
|
./model/src/seawater.F |
59 |
NO PROCEDURE |
q = del_th |
|
./model/src/seawater.F |
61 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+onehalf*del_P) |
|
./model/src/seawater.F |
63 |
NO PROCEDURE |
th = th + (1 - 1/sqrt(two))*(del_th - q) |
|
./model/src/seawater.F |
64 |
NO PROCEDURE |
q = (two-sqrt(two))*del_th + (-two+three/sqrt(two))*q |
|
./model/src/seawater.F |
67 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+onehalf*del_P) |
|
./model/src/seawater.F |
68 |
NO PROCEDURE |
th = th + (1 + 1/sqrt(two))*(del_th - q) |
|
./model/src/seawater.F |
69 |
NO PROCEDURE |
q = (two + sqrt(two))*del_th + (-two-three/sqrt(two))*q |
|
./model/src/seawater.F |
72 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+del_P) |
|
./model/src/seawater.F |
73 |
NO PROCEDURE |
SW_PTMP = th + (del_th - two*q)/(two*three) |