| 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 |
108 |
GAD_SOM_ADV_R |
_RL two, 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 |
141 |
GAD_SOM_ADV_R |
& ( sm_z(i,j, k ) + three*alp1*sm_zz(i,j, k ) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
200 |
GAD_SOM_ADV_R |
& ( sm_z(i,j,km1) - three*aln1*sm_zz(i,j,km1) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
257 |
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 |
292 |
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 |
297 |
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 |
302 |
GAD_SOM_ADV_R |
& + three*( locTp - locTn ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
169 |
GAD_SOM_ADV_X |
s2new = MIN( (slpmax+slpmax-ABS(s1new)/three), |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
194 |
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 |
213 |
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 |
251 |
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 |
286 |
GAD_SOM_ADV_X |
& + three*( alpmn*sm_y(i,j) - alp1*fp_y(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
291 |
GAD_SOM_ADV_X |
& + three*( alpmn*sm_z(i,j) - alp1*fp_z(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
295 |
GAD_SOM_ADV_X |
& + three*( locTp - locTn ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
84 |
GAD_SOM_ADV_X |
_RL two, three |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
86 |
GAD_SOM_ADV_X |
PARAMETER( three = 3. _d 0 ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
169 |
GAD_SOM_ADV_Y |
s2new = MIN( (slpmax+slpmax-ABS(s1new)/three), |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
194 |
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 |
214 |
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 |
252 |
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 |
287 |
GAD_SOM_ADV_Y |
& + three*( alpmn*sm_x(i,j) - alp1*fp_x(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
292 |
GAD_SOM_ADV_Y |
& + three*( alpmn*sm_z(i,j) - alp1*fp_z(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
296 |
GAD_SOM_ADV_Y |
& + three*( locTp - locTn ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
84 |
GAD_SOM_ADV_Y |
_RL two, three |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
86 |
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/salt_plume/salt_plume_frac.F |
122 |
SALT_PLUME_FRAC |
& three/dd20*facz - three/(dd20*dd20)*facz*facz |
|
./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 ) |
|
./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 |
134 |
SW_TEMP |
q = (two-sqrt(two))*del_th + (-two+three/sqrt(two))*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 |
62 |
SW_PTMP |
q = (two-sqrt(two))*del_th + (-two+three/sqrt(two))*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) |
|
./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 |
132 |
NO PROCEDURE |
q = (two-sqrt(two))*del_th + (-two+three/sqrt(two))*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 |
62 |
NO PROCEDURE |
q = (two-sqrt(two))*del_th + (-two+three/sqrt(two))*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) |