| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
903 |
ASTRO |
_RL pi, zero, one, two, six, dg2rd, yrlen, eqnx, ob, ecc, per |
|
./pkg/fizhi/fizhi_clockstuff.F |
908 |
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 |
1352 |
TRBFLX |
_RL argmax, onethrd, z1pem25, b2, two |
|
./pkg/fizhi/fizhi_turb.F |
1357 |
TRBFLX |
PARAMETER ( two = 2.0 ) |
|
./pkg/openad/seawater.F |
50 |
SW_PTMP |
_RL onehalf, two, three |
|
./pkg/openad/seawater.F |
51 |
SW_PTMP |
PARAMETER ( onehalf = 0.5 _d 0, two = 2. _d 0, three = 3. _d 0 ) |
|
./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 |
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 |
77 |
SW_PTMP |
rv = th + (del_th - two*q)/(two*three) |
|
./pkg/salt_plume/salt_plume_frac.F |
166 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,two*So*facz-S) |
|
./pkg/salt_plume/salt_plume_frac.F |
179 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,two/dd20*facz-S/So) |
|
./pkg/salt_plume/salt_plume_frac.F |
77 |
SALT_PLUME_FRAC |
_RL one, two, three, S, So, zero |
|
./pkg/salt_plume/salt_plume_frac.F |
78 |
SALT_PLUME_FRAC |
parameter( one = 1. _d 0, two = 2. _d 0, three = 3. _d 0 ) |
|
./model/src/seawater.F |
51 |
NO PROCEDURE |
_RL onehalf, two, three |
|
./model/src/seawater.F |
52 |
NO PROCEDURE |
PARAMETER ( onehalf = 0.5 _d 0, two = 2. _d 0, three = 3. _d 0 ) |
|
./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 |
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 |
73 |
NO PROCEDURE |
SW_PTMP = th + (del_th - two*q)/(two*three) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
230 |
EXTERNAL_FORCING_T |
integer two |
|
./verification/tidal_basin_2d/code/external_forcing.F |
232 |
EXTERNAL_FORCING_T |
parameter (two=2,minusone=-1.) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
233 |
EXTERNAL_FORCING_T |
_RL swfracb(two) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
265 |
EXTERNAL_FORCING_T |
I two, minusone, |
|
./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 ) |