File |
Line number |
Procedure |
Code |
./pkg/generic_advdiff/gad_diff_x.F |
12 |
GAD_DIFF_X |
I xA, diffKh, |
./pkg/generic_advdiff/gad_diff_x.F |
38 |
GAD_DIFF_X |
_RL diffKh |
./pkg/generic_advdiff/gad_diff_x.F |
54 |
GAD_DIFF_X |
dfx(i,j) = -diffKh*xA(i,j) |
./pkg/generic_advdiff/gad_calc_rhs.F |
14 |
GAD_CALC_RHS |
I diffKh, diffK4, KappaR, Tracer, |
./pkg/generic_advdiff/gad_calc_rhs.F |
235 |
GAD_CALC_RHS |
IF (diffKh.NE.0.) THEN |
./pkg/generic_advdiff/gad_calc_rhs.F |
236 |
GAD_CALC_RHS |
CALL GAD_DIFF_X(bi,bj,k,xA,diffKh,localT,df,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
271 |
GAD_CALC_RHS |
& (diffKh.NE.0. .OR. diffK4 .NE.0. .OR. useGMRedi) ) THEN |
./pkg/generic_advdiff/gad_calc_rhs.F |
330 |
GAD_CALC_RHS |
IF (diffKh.NE.0.) THEN |
./pkg/generic_advdiff/gad_calc_rhs.F |
331 |
GAD_CALC_RHS |
CALL GAD_DIFF_Y(bi,bj,k,yA,diffKh,localT,df,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
366 |
GAD_CALC_RHS |
& (diffKh.NE.0. .OR. diffK4 .NE.0. .OR. useGMRedi) ) THEN |
./pkg/generic_advdiff/gad_calc_rhs.F |
90 |
GAD_CALC_RHS |
_RL diffKh, diffK4 |
./pkg/generic_advdiff/gad_diff_y.F |
12 |
GAD_DIFF_Y |
I yA, diffKh, |
./pkg/generic_advdiff/gad_diff_y.F |
38 |
GAD_DIFF_Y |
_RL diffKh |
./pkg/generic_advdiff/gad_diff_y.F |
56 |
GAD_DIFF_Y |
dfy(i,j) = -diffKh*yA(i,j) |