| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/sw_ptmp.F |
33 |
NO PROCEDURE |
_RL onehalf, two, three |
|
./pkg/ecco/sw_ptmp.F |
34 |
NO PROCEDURE |
parameter ( onehalf = 0.5 _d 0, two = 2. _d 0, three = 3. _d 0 ) |
|
./pkg/ecco/sw_ptmp.F |
48 |
NO PROCEDURE |
q = (two-sqrt(two))*del_th + (-two+three/sqrt(two))*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 |
57 |
NO PROCEDURE |
SW_PTMP = th + (del_th - two*q)/(two*three) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1975 |
DELEDD |
_RL zero,one,two,three,four,fourth,seven,tumin |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1976 |
DELEDD |
parameter (one=1., three=3.) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2012 |
DELEDD |
xx = three*gp |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2099 |
SAGPOL |
_RL one,three,four |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2100 |
SAGPOL |
parameter (one=1., three=3., four=4.) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2116 |
SAGPOL |
ttt = sqrt( xx*(one-ssc)*three )*tau |
|
./pkg/fizhi/fizhi_swrad.F |
1974 |
DELEDD |
_RL zero,one,two,three,four,fourth,seven,tumin |
|
./pkg/fizhi/fizhi_swrad.F |
1975 |
DELEDD |
parameter (one=1., three=3.) |
|
./pkg/fizhi/fizhi_swrad.F |
2011 |
DELEDD |
xx = three*gp |
|
./pkg/fizhi/fizhi_swrad.F |
2098 |
SAGPOL |
_RL one,three,four |
|
./pkg/fizhi/fizhi_swrad.F |
2099 |
SAGPOL |
parameter (one=1., three=3., four=4.) |
|
./pkg/fizhi/fizhi_swrad.F |
2115 |
SAGPOL |
ttt = sqrt( xx*(one-ssc)*three )*tau |