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 |
176 |
GAD_SOM_ADV_R |
& ( sm_y(i,j, k ) + alp1*sm_yz(i,j, k ) ) |
./pkg/generic_advdiff/gad_som_adv_r.F |
202 |
GAD_SOM_ADV_R |
fn_y (i,j,kUp) = aln(i,j,kUp)*sm_y(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
235 |
GAD_SOM_ADV_R |
& ( sm_y(i,j,km1) - aln1*sm_yz(i,j,km1) ) |
./pkg/generic_advdiff/gad_som_adv_r.F |
266 |
GAD_SOM_ADV_R |
fn_y (i,j,kUp) = aln(i,j,kUp)*sm_y(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
296 |
GAD_SOM_ADV_R |
sm_y (i,j,k) = sm_y (i,j,k) - fn_y (i,j,kDw) - fp_y (i,j,kUp) |
./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 |
345 |
GAD_SOM_ADV_R |
sm_y (i,j,k) = sm_y (i,j,k) + fp_y (i,j,kDw) + fn_y (i,j,kUp) |
./pkg/generic_advdiff/gad_som_adv_r.F |
72 |
GAD_SOM_ADV_R |
_RL sm_y (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 |
190 |
GAD_SOM_ADV_X |
fp_y (i,j) = alp(i,j)*( sm_y(i-1,j) + alp1*sm_xy(i-1,j) ) |
./pkg/generic_advdiff/gad_som_adv_x.F |
209 |
GAD_SOM_ADV_X |
fn_y (i,j) = aln(i,j)*( sm_y( i ,j) - aln1*sm_xy( i ,j) ) |
./pkg/generic_advdiff/gad_som_adv_x.F |
244 |
GAD_SOM_ADV_X |
sm_y (i,j) = sm_y (i,j) - fn_y (i,j) - fp_y (i+1,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 |
292 |
GAD_SOM_ADV_X |
sm_y (i,j) = sm_y (i,j) + fp_y (i,j) + fn_y (i+1,j) |
./pkg/generic_advdiff/gad_som_adv_x.F |
71 |
GAD_SOM_ADV_X |
_RL sm_y (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 |
162 |
GAD_SOM_ADV_Y |
s1new = MIN( s1max, MAX(-s1max,sm_y(i,j)) ) |
./pkg/generic_advdiff/gad_som_adv_y.F |
167 |
GAD_SOM_ADV_Y |
sm_y (i,j) = s1new |
./pkg/generic_advdiff/gad_som_adv_y.F |
185 |
GAD_SOM_ADV_Y |
fp_o (i,j) = alp(i,j)*( sm_o(i,j-1) + alp1*sm_y(i,j-1) |
./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 |
205 |
GAD_SOM_ADV_Y |
fn_o (i,j) = aln(i,j)*( sm_o(i, j ) - aln1*sm_y(i, j ) |
./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 |
275 |
GAD_SOM_ADV_Y |
& - 5. _d 0*(-alpmn*alf1*sm_y(i,j) + alfp*alp1*fp_y(i,j) |
./pkg/generic_advdiff/gad_som_adv_y.F |
290 |
GAD_SOM_ADV_Y |
sm_y (i,j) = alf1*sm_y(i,j) + alfp*fp_y(i,j) + alfn*fn_y(i,j+1) |
./pkg/generic_advdiff/gad_som_adv_y.F |
71 |
GAD_SOM_ADV_Y |
_RL sm_y (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 |
50 |
GAD_SOM_FILL_CS_CORNER |
_RL sm_y (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 |
46 |
GAD_SOM_LIM_R |
_RL sm_y (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |