| 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 |
293 |
GAD_CALC_RHS |
IF (diffKh.NE.0.) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
294 |
GAD_CALC_RHS |
CALL GAD_DIFF_X(bi,bj,k,xA,diffKh,localT,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
329 |
GAD_CALC_RHS |
& (diffKh.NE.0. .OR. diffK4 .NE.0. .OR. trUseGMRedi) ) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
426 |
GAD_CALC_RHS |
IF (diffKh.NE.0.) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
427 |
GAD_CALC_RHS |
CALL GAD_DIFF_Y(bi,bj,k,yA,diffKh,localT,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
462 |
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 |
100 |
SEAICE_DIFFUSION |
IF ( useDiagnostics .AND. diffKh.NE.0. ) THEN |
|
./pkg/seaice/seaice_diffusion.F |
11 |
SEAICE_DIFFUSION |
I diffKh, fac, |
|
./pkg/seaice/seaice_diffusion.F |
49 |
SEAICE_DIFFUSION |
_RL diffKh, fac |
|
./pkg/seaice/seaice_diffusion.F |
69 |
SEAICE_DIFFUSION |
IF ( diffKh .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_diffusion.F |
85 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_X(bi,bj,k,xA,diffKh,iceFld,fZon,myThid) |
|
./pkg/seaice/seaice_diffusion.F |
87 |
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 |