| File |
Line number |
Procedure |
Code |
|
./verification/OpenAD/code_oad_all/seawater.F |
116 |
SW_TEMP |
_RL del_P ,del_th, th, q |
|
./verification/OpenAD/code_oad_all/seawater.F |
126 |
SW_TEMP |
del_th = del_P*adtg_val |
|
./verification/OpenAD/code_oad_all/seawater.F |
127 |
SW_TEMP |
th = T + onehalf*del_th |
|
./verification/OpenAD/code_oad_all/seawater.F |
128 |
SW_TEMP |
q = del_th |
|
./verification/OpenAD/code_oad_all/seawater.F |
131 |
SW_TEMP |
del_th = del_P*adtg_val |
|
./verification/OpenAD/code_oad_all/seawater.F |
133 |
SW_TEMP |
th = th + (1 - 1/sqrt(two))*(del_th - q) |
|
./verification/OpenAD/code_oad_all/seawater.F |
134 |
SW_TEMP |
q = (two-sqrt(two))*del_th + (-two+three/sqrt(two))*q |
|
./verification/OpenAD/code_oad_all/seawater.F |
138 |
SW_TEMP |
del_th = del_P*adtg_val |
|
./verification/OpenAD/code_oad_all/seawater.F |
139 |
SW_TEMP |
th = th + (1 + 1/sqrt(two))*(del_th - q) |
|
./verification/OpenAD/code_oad_all/seawater.F |
140 |
SW_TEMP |
q = (two + sqrt(two))*del_th + (-two-three/sqrt(two))*q |
|
./verification/OpenAD/code_oad_all/seawater.F |
144 |
SW_TEMP |
del_th = del_P*adtg_val |
|
./verification/OpenAD/code_oad_all/seawater.F |
145 |
SW_TEMP |
rv = th + (del_th - two*q)/(two*three) |
|
./verification/OpenAD/code_oad_all/seawater.F |
45 |
SW_PTMP |
_RL del_P ,del_th, th, q |
|
./verification/OpenAD/code_oad_all/seawater.F |
54 |
SW_PTMP |
del_th = del_P*adtg_val |
|
./verification/OpenAD/code_oad_all/seawater.F |
55 |
SW_PTMP |
th = T + onehalf*del_th |
|
./verification/OpenAD/code_oad_all/seawater.F |
56 |
SW_PTMP |
q = del_th |
|
./verification/OpenAD/code_oad_all/seawater.F |
59 |
SW_PTMP |
del_th = del_P*adtg_val |
|
./verification/OpenAD/code_oad_all/seawater.F |
61 |
SW_PTMP |
th = th + (1 - 1/sqrt(two))*(del_th - q) |
|
./verification/OpenAD/code_oad_all/seawater.F |
62 |
SW_PTMP |
q = (two-sqrt(two))*del_th + (-two+three/sqrt(two))*q |
|
./verification/OpenAD/code_oad_all/seawater.F |
66 |
SW_PTMP |
del_th = del_P*adtg_val |
|
./verification/OpenAD/code_oad_all/seawater.F |
67 |
SW_PTMP |
th = th + (1 + 1/sqrt(two))*(del_th - q) |
|
./verification/OpenAD/code_oad_all/seawater.F |
68 |
SW_PTMP |
q = (two + sqrt(two))*del_th + (-two-three/sqrt(two))*q |
|
./verification/OpenAD/code_oad_all/seawater.F |
72 |
SW_PTMP |
del_th = del_P*adtg_val |
|
./verification/OpenAD/code_oad_all/seawater.F |
73 |
SW_PTMP |
rv = th + (del_th - two*q)/(two*three) |
|
./model/src/seawater.F |
117 |
NO PROCEDURE |
_RL del_P ,del_th, th, q |
|
./model/src/seawater.F |
125 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,T,P) |
|
./model/src/seawater.F |
126 |
NO PROCEDURE |
th = T + onehalf*del_th |
|
./model/src/seawater.F |
127 |
NO PROCEDURE |
q = del_th |
|
./model/src/seawater.F |
129 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+onehalf*del_P) |
|
./model/src/seawater.F |
131 |
NO PROCEDURE |
th = th + (1 - 1/sqrt(two))*(del_th - q) |
|
./model/src/seawater.F |
132 |
NO PROCEDURE |
q = (two-sqrt(two))*del_th + (-two+three/sqrt(two))*q |
|
./model/src/seawater.F |
135 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+onehalf*del_P) |
|
./model/src/seawater.F |
136 |
NO PROCEDURE |
th = th + (1 + 1/sqrt(two))*(del_th - q) |
|
./model/src/seawater.F |
137 |
NO PROCEDURE |
q = (two + sqrt(two))*del_th + (-two-three/sqrt(two))*q |
|
./model/src/seawater.F |
140 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+del_P) |
|
./model/src/seawater.F |
141 |
NO PROCEDURE |
SW_temp= th + (del_th - two*q)/(two*three) |
|
./model/src/seawater.F |
48 |
NO PROCEDURE |
_RL del_P ,del_th, th, q |
|
./model/src/seawater.F |
55 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,T,P) |
|
./model/src/seawater.F |
56 |
NO PROCEDURE |
th = T + onehalf*del_th |
|
./model/src/seawater.F |
57 |
NO PROCEDURE |
q = del_th |
|
./model/src/seawater.F |
59 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+onehalf*del_P) |
|
./model/src/seawater.F |
61 |
NO PROCEDURE |
th = th + (1 - 1/sqrt(two))*(del_th - q) |
|
./model/src/seawater.F |
62 |
NO PROCEDURE |
q = (two-sqrt(two))*del_th + (-two+three/sqrt(two))*q |
|
./model/src/seawater.F |
65 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+onehalf*del_P) |
|
./model/src/seawater.F |
66 |
NO PROCEDURE |
th = th + (1 + 1/sqrt(two))*(del_th - q) |
|
./model/src/seawater.F |
67 |
NO PROCEDURE |
q = (two + sqrt(two))*del_th + (-two-three/sqrt(two))*q |
|
./model/src/seawater.F |
70 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+del_P) |
|
./model/src/seawater.F |
71 |
NO PROCEDURE |
SW_PTMP = th + (del_th - two*q)/(two*three) |