| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
13 |
GAD_SOM_ADV_R |
U sm_v, sm_o, sm_x, sm_y, sm_z, |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
174 |
GAD_SOM_ADV_R |
& ( sm_x(i,j, k ) + alp1*sm_xz(i,j, k ) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
201 |
GAD_SOM_ADV_R |
fn_x (i,j,kUp) = aln(i,j,kUp)*sm_x(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
233 |
GAD_SOM_ADV_R |
& ( sm_x(i,j,km1) - aln1*sm_xz(i,j,km1) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
265 |
GAD_SOM_ADV_R |
fn_x (i,j,kUp) = aln(i,j,kUp)*sm_x(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
294 |
GAD_SOM_ADV_R |
sm_x (i,j,k) = sm_x (i,j,k) - fn_x (i,j,kDw) - fp_x (i,j,kUp) |
|
./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 |
343 |
GAD_SOM_ADV_R |
sm_x (i,j,k) = sm_x (i,j,k) + fp_x (i,j,kDw) + fn_x (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
71 |
GAD_SOM_ADV_R |
_RL sm_x (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
15 |
GAD_SOM_ADV_X |
U sm_v, sm_o, sm_x, sm_y, sm_z, |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
162 |
GAD_SOM_ADV_X |
s1new = MIN( s1max, MAX(-s1max,sm_x(i,j)) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
167 |
GAD_SOM_ADV_X |
sm_x (i,j) = s1new |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
185 |
GAD_SOM_ADV_X |
fp_o (i,j) = alp(i,j)*( sm_o(i-1,j) + alp1*sm_x(i-1,j) |
|
./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 |
204 |
GAD_SOM_ADV_X |
fn_o (i,j) = aln(i,j)*( sm_o( i ,j) - aln1*sm_x( i ,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 |
274 |
GAD_SOM_ADV_X |
& - 5. _d 0*(-alpmn*alf1*sm_x(i,j) + alfp*alp1*fp_x(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
289 |
GAD_SOM_ADV_X |
sm_x (i,j) = alf1*sm_x(i,j) + alfp*fp_x(i,j) + alfn*fn_x(i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
70 |
GAD_SOM_ADV_X |
_RL sm_x (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
15 |
GAD_SOM_ADV_Y |
U sm_v, sm_o, sm_x, sm_y, sm_z, |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
190 |
GAD_SOM_ADV_Y |
fp_x (i,j) = alp(i,j)*( sm_x(i,j-1) + alp1*sm_xy(i,j-1) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
210 |
GAD_SOM_ADV_Y |
fn_x (i,j) = aln(i,j)*( sm_x(i, j ) - aln1*sm_xy(i, j ) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
245 |
GAD_SOM_ADV_Y |
sm_x (i,j) = sm_x (i,j) - fn_x (i,j) - fp_x (i,j+1) |
|
./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 |
293 |
GAD_SOM_ADV_Y |
sm_x (i,j) = sm_x (i,j) + fp_x (i,j) + fn_x (i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
70 |
GAD_SOM_ADV_Y |
_RL sm_x (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
11 |
GAD_SOM_FILL_CS_CORNER |
U sm_v, sm_o, sm_x, sm_y, sm_z, |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
49 |
GAD_SOM_FILL_CS_CORNER |
_RL sm_x (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
77 |
GAD_SOM_FILL_CS_CORNER |
& sm_x , sm_y , bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
12 |
GAD_SOM_LIM_R |
U sm_v, sm_o, sm_x, sm_y, sm_z, |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
45 |
GAD_SOM_LIM_R |
_RL sm_x (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |