| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/sw_ptmp.F |
32 |
NO PROCEDURE |
_RL del_P ,del_th, th, q |
|
./pkg/ecco/sw_ptmp.F |
41 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,T,P) |
|
./pkg/ecco/sw_ptmp.F |
42 |
NO PROCEDURE |
th = T + onehalf*del_th |
|
./pkg/ecco/sw_ptmp.F |
43 |
NO PROCEDURE |
q = del_th |
|
./pkg/ecco/sw_ptmp.F |
45 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+onehalf*del_P) |
|
./pkg/ecco/sw_ptmp.F |
47 |
NO PROCEDURE |
th = th + (1 - 1/sqrt(two))*(del_th - q) |
|
./pkg/ecco/sw_ptmp.F |
48 |
NO PROCEDURE |
q = (two-sqrt(two))*del_th + (-two+three/sqrt(two))*q |
|
./pkg/ecco/sw_ptmp.F |
51 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+onehalf*del_P) |
|
./pkg/ecco/sw_ptmp.F |
52 |
NO PROCEDURE |
th = th + (1 + 1/sqrt(two))*(del_th - q) |
|
./pkg/ecco/sw_ptmp.F |
53 |
NO PROCEDURE |
q = (two + sqrt(two))*del_th + (-two-three/sqrt(two))*q |
|
./pkg/ecco/sw_ptmp.F |
56 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+del_P) |
|
./pkg/ecco/sw_ptmp.F |
57 |
NO PROCEDURE |
SW_PTMP = th + (del_th - two*q)/(two*three) |