| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1982 |
DELEDD |
_RL zero,one,two,three,four,fourth,seven,tumin |
|
./pkg/fizhi/fizhi_swrad.F |
1983 |
DELEDD |
parameter (one=1., three=3.) |
|
./pkg/fizhi/fizhi_swrad.F |
2019 |
DELEDD |
xx = three*gp |
|
./pkg/fizhi/fizhi_swrad.F |
2106 |
SAGPOL |
_RL one,three,four |
|
./pkg/fizhi/fizhi_swrad.F |
2107 |
SAGPOL |
parameter (one=1., three=3., four=4.) |
|
./pkg/fizhi/fizhi_swrad.F |
2123 |
SAGPOL |
ttt = sqrt( xx*(one-ssc)*three )*tau |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
109 |
GAD_SOM_ADV_R |
_RL three |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
110 |
GAD_SOM_ADV_R |
PARAMETER( three = 3. _d 0 ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
171 |
GAD_SOM_ADV_R |
& ( sm_z(i,j, k ) + three*alp1*sm_zz(i,j, k ) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
230 |
GAD_SOM_ADV_R |
& ( sm_z(i,j,km1) - three*aln1*sm_zz(i,j,km1) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
290 |
GAD_SOM_ADV_R |
sm_z (i,j,k) = alf1q*( sm_z(i,j,k) - three*alpmn*sm_zz(i,j,k) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
331 |
GAD_SOM_ADV_R |
& + three*( alpmn*sm_x(i,j,k) - alp1*fp_x(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
336 |
GAD_SOM_ADV_R |
& + three*( alpmn*sm_y(i,j,k) - alp1*fp_y(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
341 |
GAD_SOM_ADV_R |
& + three*( locTp - locTn ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
163 |
GAD_SOM_ADV_X |
s2new = MIN( (slpmax+slpmax-ABS(s1new)/three), |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
188 |
GAD_SOM_ADV_X |
fp_x (i,j) = alpq *( sm_x(i-1,j) + three*alp1*sm_xx(i-1,j) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
207 |
GAD_SOM_ADV_X |
fn_x (i,j) = alnq *( sm_x( i ,j) - three*aln1*sm_xx( i ,j) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
240 |
GAD_SOM_ADV_X |
sm_x (i,j) = alf1q*( sm_x(i,j) - three*alpmn*sm_xx(i,j) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
281 |
GAD_SOM_ADV_X |
& + three*( alpmn*sm_y(i,j) - alp1*fp_y(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
286 |
GAD_SOM_ADV_X |
& + three*( alpmn*sm_z(i,j) - alp1*fp_z(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
290 |
GAD_SOM_ADV_X |
& + three*( locTp - locTn ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
87 |
GAD_SOM_ADV_X |
_RL three |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
88 |
GAD_SOM_ADV_X |
PARAMETER( three = 3. _d 0 ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
163 |
GAD_SOM_ADV_Y |
s2new = MIN( (slpmax+slpmax-ABS(s1new)/three), |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
188 |
GAD_SOM_ADV_Y |
fp_y (i,j) = alpq *( sm_y(i,j-1) + three*alp1*sm_yy(i,j-1) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
208 |
GAD_SOM_ADV_Y |
fn_y (i,j) = alnq *( sm_y(i, j ) - three*aln1*sm_yy(i, j ) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
241 |
GAD_SOM_ADV_Y |
sm_y (i,j) = alf1q*( sm_y(i,j) - three*alpmn*sm_yy(i,j) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
282 |
GAD_SOM_ADV_Y |
& + three*( alpmn*sm_x(i,j) - alp1*fp_x(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
287 |
GAD_SOM_ADV_Y |
& + three*( alpmn*sm_z(i,j) - alp1*fp_z(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
291 |
GAD_SOM_ADV_Y |
& + three*( locTp - locTn ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
87 |
GAD_SOM_ADV_Y |
_RL three |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
88 |
GAD_SOM_ADV_Y |
PARAMETER( three = 3. _d 0 ) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
57 |
GAD_SOM_LIM_R |
_RL three |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
58 |
GAD_SOM_LIM_R |
PARAMETER( three = 3. _d 0 ) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
73 |
GAD_SOM_LIM_R |
s2new = MIN( (slpmax+slpmax-ABS(s1new)/three), |
|
./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 |
66 |
SW_PTMP |
q = (two-sqrt(two))*del_th + (-two+three/sqrt(two))*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 |
169 |
SALT_PLUME_FRAC |
& three*So*facz - three*So*So*facz*facz + S) |
|
./pkg/salt_plume/salt_plume_frac.F |
182 |
SALT_PLUME_FRAC |
& three/dd20*facz - three/(dd20*dd20)*facz*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 |
64 |
NO PROCEDURE |
q = (two-sqrt(two))*del_th + (-two+three/sqrt(two))*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) |