| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
159 |
GAD_SOM_ADV_X |
slpmax = 0. |
|
./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 |
161 |
GAD_SOM_ADV_X |
s1max = slpmax*1.5 _d 0 |
|
./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 |
164 |
GAD_SOM_ADV_X |
& MAX(ABS(s1new)-slpmax,sm_xx(i,j)) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
165 |
GAD_SOM_ADV_X |
sm_xy(i,j) = MIN( slpmax, MAX(-slpmax,sm_xy(i,j)) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
166 |
GAD_SOM_ADV_X |
sm_xz(i,j) = MIN( slpmax, MAX(-slpmax,sm_xz(i,j)) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
93 |
GAD_SOM_ADV_X |
_RL slpmax, s1max, s1new, s2new |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
159 |
GAD_SOM_ADV_Y |
slpmax = 0. |
|
./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 |
161 |
GAD_SOM_ADV_Y |
s1max = slpmax*1.5 _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 |
164 |
GAD_SOM_ADV_Y |
& MAX(ABS(s1new)-slpmax,sm_yy(i,j)) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
165 |
GAD_SOM_ADV_Y |
sm_xy(i,j) = MIN( slpmax, MAX(-slpmax,sm_xy(i,j)) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
166 |
GAD_SOM_ADV_Y |
sm_yz(i,j) = MIN( slpmax, MAX(-slpmax,sm_yz(i,j)) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
93 |
GAD_SOM_ADV_Y |
_RL slpmax, s1max, s1new, s2new |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
60 |
GAD_SOM_LIM_R |
_RL slpmax, s1max, s1new, s2new |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
69 |
GAD_SOM_LIM_R |
slpmax = 0. |
|
./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) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
71 |
GAD_SOM_LIM_R |
s1max = slpmax*1.5 _d 0 |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
73 |
GAD_SOM_LIM_R |
s2new = MIN( (slpmax+slpmax-ABS(s1new)/three), |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
74 |
GAD_SOM_LIM_R |
& MAX(ABS(s1new)-slpmax,sm_zz(i,j,k)) ) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
75 |
GAD_SOM_LIM_R |
sm_xz(i,j,k) = MIN( slpmax, MAX(-slpmax,sm_xz(i,j,k)) ) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
76 |
GAD_SOM_LIM_R |
sm_yz(i,j,k) = MIN( slpmax, MAX(-slpmax,sm_yz(i,j,k)) ) |