| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
100 |
GAD_CALC_RHS |
_RL diffKh, diffK4 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
14 |
GAD_CALC_RHS |
I diffKh, diffK4, KappaR, diffKr4, TracerN, TracAB, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
299 |
GAD_CALC_RHS |
IF (diffKh.NE.0.) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
300 |
GAD_CALC_RHS |
CALL GAD_DIFF_X(bi,bj,k,xA,diffKh,localT,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
335 |
GAD_CALC_RHS |
& (diffKh.NE.0. .OR. diffK4 .NE.0. .OR. trUseGMRedi) ) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
439 |
GAD_CALC_RHS |
IF (diffKh.NE.0.) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
440 |
GAD_CALC_RHS |
CALL GAD_DIFF_Y(bi,bj,k,yA,diffKh,localT,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
475 |
GAD_CALC_RHS |
& (diffKh.NE.0. .OR. diffK4 .NE.0. .OR. trUseGMRedi) ) THEN |
|
./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_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) |
|
./pkg/seaice/seaice_diffusion.F |
103 |
SEAICE_DIFFUSION |
IF ( useDiagnostics .AND. diffKh.NE.0. ) THEN |
|
./pkg/seaice/seaice_diffusion.F |
14 |
SEAICE_DIFFUSION |
I diffKh, fac, |
|
./pkg/seaice/seaice_diffusion.F |
52 |
SEAICE_DIFFUSION |
_RL diffKh, fac |
|
./pkg/seaice/seaice_diffusion.F |
72 |
SEAICE_DIFFUSION |
IF ( diffKh .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_diffusion.F |
88 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_X(bi,bj,k,xA,diffKh,iceFld,fZon,myThid) |
|
./pkg/seaice/seaice_diffusion.F |
90 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_Y(bi,bj,k,yA,diffKh,iceFld,fMer,myThid) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
14 |
GAD_2D_CALC_RHS |
I diffKh, Tracer, |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
189 |
GAD_2D_CALC_RHS |
IF (diffKh.NE.0.) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
190 |
GAD_2D_CALC_RHS |
CALL GAD_DIFF_2D_X(bi,bj,diffKh,localT,df,myThid) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
286 |
GAD_2D_CALC_RHS |
IF (diffKh.NE.0.) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
287 |
GAD_2D_CALC_RHS |
CALL GAD_DIFF_2D_Y(bi,bj,diffKh,localT,df,myThid) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
72 |
GAD_2D_CALC_RHS |
_RL diffKh |
|
./pkg/cheapaml/gad_diff_2d_x.F |
12 |
GAD_DIFF_2D_X |
I diffKh, |
|
./pkg/cheapaml/gad_diff_2d_x.F |
35 |
GAD_DIFF_2D_X |
_RL diffKh |
|
./pkg/cheapaml/gad_diff_2d_x.F |
51 |
GAD_DIFF_2D_X |
dfx(i,j) = -diffKh |
|
./pkg/cheapaml/gad_diff_2d_y.F |
12 |
GAD_DIFF_2D_Y |
I diffKh, |
|
./pkg/cheapaml/gad_diff_2d_y.F |
36 |
GAD_DIFF_2D_Y |
_RL diffKh |
|
./pkg/cheapaml/gad_diff_2d_y.F |
54 |
GAD_DIFF_2D_Y |
dfy(i,j) = -diffKh |