| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
889 |
ASTRO |
_RL pi, zero, one, two, six, dg2rd, yrlen, eqnx, ob, ecc, per |
|
./pkg/fizhi/fizhi_clockstuff.F |
893 |
ASTRO |
parameter ( two = 2.0 ) |
|
./pkg/fizhi/fizhi_swrad.F |
1982 |
DELEDD |
_RL zero,one,two,three,four,fourth,seven,tumin |
|
./pkg/fizhi/fizhi_swrad.F |
1984 |
DELEDD |
parameter (seven=7., two=2.) |
|
./pkg/fizhi/fizhi_swrad.F |
2022 |
DELEDD |
gm3 = (two - zth*xx )*fourth |
|
./pkg/fizhi/fizhi_swrad.F |
2037 |
DELEDD |
xx = akk * two |
|
./pkg/fizhi/fizhi_turb.F |
1522 |
TRBFLX |
_RL argmax, onethrd, z1pem25, b2, two |
|
./pkg/fizhi/fizhi_turb.F |
1527 |
TRBFLX |
PARAMETER ( two = 2.0 ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
108 |
GAD_SOM_ADV_R |
_RL two, three |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
109 |
GAD_SOM_ADV_R |
PARAMETER( two = 2. _d 0 ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
287 |
GAD_SOM_ADV_R |
& + two*alfp*alfn*sm_o(i,j,k) + (alp1-alfp)*locTp |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
281 |
GAD_SOM_ADV_X |
& + two*alfp*alfn*sm_o(i,j) + (alp1-alfp)*locTp |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
84 |
GAD_SOM_ADV_X |
_RL two, three |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
85 |
GAD_SOM_ADV_X |
PARAMETER( two = 2. _d 0 ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
282 |
GAD_SOM_ADV_Y |
& + two*alfp*alfn*sm_o(i,j) + (alp1-alfp)*locTp |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
84 |
GAD_SOM_ADV_Y |
_RL two, three |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
85 |
GAD_SOM_ADV_Y |
PARAMETER( two = 2. _d 0 ) |
|
./pkg/salt_plume/salt_plume_frac.F |
119 |
SALT_PLUME_FRAC |
plumek(i) = one - min(one,two/dd20*facz-tempN/tempN20) |
|
./pkg/salt_plume/salt_plume_frac.F |
64 |
SALT_PLUME_FRAC |
_RL one, two, three, tempN, tempN20 |
|
./pkg/salt_plume/salt_plume_frac.F |
65 |
SALT_PLUME_FRAC |
parameter( one = 1. _d 0, two = 2. _d 0, three = 3. _d 0 ) |
|
./model/src/external_forcing.F |
262 |
EXTERNAL_FORCING_T |
integer two |
|
./model/src/external_forcing.F |
264 |
EXTERNAL_FORCING_T |
parameter (two=2,minusone=-1.) |
|
./model/src/external_forcing.F |
265 |
EXTERNAL_FORCING_T |
_RL swfracb(two) |
|
./model/src/external_forcing.F |
360 |
EXTERNAL_FORCING_T |
I two, minusone, |
|
./verification/OpenAD/code_oad_all/seawater.F |
117 |
SW_TEMP |
_RL onehalf, two, three |
|
./verification/OpenAD/code_oad_all/seawater.F |
118 |
SW_TEMP |
PARAMETER ( onehalf = 0.5 _d 0, two = 2. _d 0, three = 3. _d 0 ) |
|
./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 |
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 |
145 |
SW_TEMP |
rv = th + (del_th - two*q)/(two*three) |
|
./verification/OpenAD/code_oad_all/seawater.F |
46 |
SW_PTMP |
_RL onehalf, two, three |
|
./verification/OpenAD/code_oad_all/seawater.F |
47 |
SW_PTMP |
PARAMETER ( onehalf = 0.5 _d 0, two = 2. _d 0, three = 3. _d 0 ) |
|
./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 |
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 |
73 |
SW_PTMP |
rv = th + (del_th - two*q)/(two*three) |
|
./verification/rotating_tank/code/external_forcing.F |
292 |
EXTERNAL_FORCING_T |
integer two |
|
./verification/rotating_tank/code/external_forcing.F |
294 |
EXTERNAL_FORCING_T |
parameter (two=2,minusone=-1.) |
|
./verification/rotating_tank/code/external_forcing.F |
295 |
EXTERNAL_FORCING_T |
_RL swfracb(two) |
|
./verification/rotating_tank/code/external_forcing.F |
337 |
EXTERNAL_FORCING_T |
I two, minusone, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
280 |
EXTERNAL_FORCING_T |
integer two |
|
./verification/tidal_basin_2d/code/external_forcing.F |
282 |
EXTERNAL_FORCING_T |
parameter (two=2,minusone=-1.) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
283 |
EXTERNAL_FORCING_T |
_RL swfracb(two) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
325 |
EXTERNAL_FORCING_T |
I two, minusone, |
|
./model/src/seawater.F |
118 |
NO PROCEDURE |
_RL onehalf, two, three |
|
./model/src/seawater.F |
119 |
NO PROCEDURE |
PARAMETER ( onehalf = 0.5 _d 0, two = 2. _d 0, three = 3. _d 0 ) |
|
./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 |
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 |
141 |
NO PROCEDURE |
SW_temp= th + (del_th - two*q)/(two*three) |
|
./model/src/seawater.F |
49 |
NO PROCEDURE |
_RL onehalf, two, three |
|
./model/src/seawater.F |
50 |
NO PROCEDURE |
PARAMETER ( onehalf = 0.5 _d 0, two = 2. _d 0, three = 3. _d 0 ) |
|
./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 |
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 |
71 |
NO PROCEDURE |
SW_PTMP = th + (del_th - two*q)/(two*three) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
122 |
BULKF_FORMULA_LAY |
_RL half, one, two |
|
./pkg/bulk_force/bulkf_formula_lay.F |
128 |
BULKF_FORMULA_LAY |
DATA half, one, two |
|
./pkg/bulk_force/bulkf_formula_lay.F |
198 |
BULKF_FORMULA_LAY |
& ( LOG( (one + two*x + xsq)*(one+xsq)*.125 ) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
199 |
BULKF_FORMULA_LAY |
& -two*ATAN(x) + half*pi ) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
203 |
BULKF_FORMULA_LAY |
& + (one-stable)*( two*LOG(half*(one+xsq)) ) |
|
./pkg/chronos/chronos.F |
740 |
ASTRO |
_RL pi, zero, one, two, six, dg2rd, yrlen, eqnx, ob, ecc, per |
|
./pkg/chronos/chronos.F |
746 |
ASTRO |
parameter ( two = 2.0 ) |