| 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 |
167 |
GAD_SOM_ADV_R |
& ( sm_o(i,j, k ) + alp1*sm_z(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
198 |
GAD_SOM_ADV_R |
fn_o (i,j,kUp) = aln(i,j,kUp)*sm_o(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
226 |
GAD_SOM_ADV_R |
& ( sm_o(i,j,km1) - aln1*sm_z(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
264 |
GAD_SOM_ADV_R |
fn_o (i,j,kUp) = aln(i,j,kUp)*sm_o(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
289 |
GAD_SOM_ADV_R |
sm_o (i,j,k) = sm_o (i,j,k) - fn_o (i,j,kDw) - fp_o (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
320 |
GAD_SOM_ADV_R |
locTp = alfp*sm_o(i,j,k) - alp1*fp_o(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
321 |
GAD_SOM_ADV_R |
locTn = alfn*sm_o(i,j,k) - aln1*fn_o(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
326 |
GAD_SOM_ADV_R |
& + twoRL*alfp*alfn*sm_o(i,j,k) + (alp1-alfp)*locTp |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
342 |
GAD_SOM_ADV_R |
sm_o (i,j,k) = sm_o (i,j,k) + fp_o (i,j,kDw) + fn_o (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
70 |
GAD_SOM_ADV_R |
_RL sm_o (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 |
160 |
GAD_SOM_ADV_X |
IF ( sm_o(i,j).GT.zeroRL ) slpmax = sm_o(i,j) |
|
./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 |
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 |
239 |
GAD_SOM_ADV_X |
sm_o (i,j) = sm_o (i,j) - fn_o (i,j) - fp_o (i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
270 |
GAD_SOM_ADV_X |
locTp = alfp*sm_o(i,j) - alp1*fp_o(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
271 |
GAD_SOM_ADV_X |
locTn = alfn*sm_o(i,j) - aln1*fn_o(i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
276 |
GAD_SOM_ADV_X |
& + twoRL*alfp*alfn*sm_o(i,j) + (alp1-alfp)*locTp |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
291 |
GAD_SOM_ADV_X |
sm_o (i,j) = sm_o (i,j) + fp_o (i,j) + fn_o (i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
69 |
GAD_SOM_ADV_X |
_RL sm_o (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 |
160 |
GAD_SOM_ADV_Y |
IF ( sm_o(i,j).GT.0. ) slpmax = sm_o(i,j) |
|
./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 |
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 |
240 |
GAD_SOM_ADV_Y |
sm_o (i,j) = sm_o (i,j) - fn_o (i,j) - fp_o (i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
271 |
GAD_SOM_ADV_Y |
locTp = alfp*sm_o(i,j) - alp1*fp_o(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
272 |
GAD_SOM_ADV_Y |
locTn = alfn*sm_o(i,j) - aln1*fn_o(i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
277 |
GAD_SOM_ADV_Y |
& + twoRL*alfp*alfn*sm_o(i,j) + (alp1-alfp)*locTp |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
292 |
GAD_SOM_ADV_Y |
sm_o (i,j) = sm_o (i,j) + fp_o (i,j) + fn_o (i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
69 |
GAD_SOM_ADV_Y |
_RL sm_o (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 |
48 |
GAD_SOM_FILL_CS_CORNER |
_RL sm_o (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
75 |
GAD_SOM_FILL_CS_CORNER |
& sm_o , 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 |
44 |
GAD_SOM_LIM_R |
_RL sm_o (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
70 |
GAD_SOM_LIM_R |
IF ( sm_o(i,j,k).GT.0. ) slpmax = sm_o(i,j,k) |