| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_biharm_x.F |
13 |
GAD_BIHARM_X |
U dfx, |
|
./pkg/generic_advdiff/gad_biharm_x.F |
43 |
GAD_BIHARM_X |
_RL dfx (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_biharm_x.F |
55 |
GAD_BIHARM_X |
dfx(i,j) = dfx(i,j) + diffK4*xA(i,j) |
|
./pkg/generic_advdiff/gad_diff_x.F |
14 |
GAD_DIFF_X |
O dfx, |
|
./pkg/generic_advdiff/gad_diff_x.F |
44 |
GAD_DIFF_X |
_RL dfx (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_diff_x.F |
52 |
GAD_DIFF_X |
dfx(1-Olx,j)=0. |
|
./pkg/generic_advdiff/gad_diff_x.F |
54 |
GAD_DIFF_X |
dfx(i,j) = -diffKh*xA(i,j) |
|
./pkg/ggl90/ggl90_calc.F |
123 |
GGL90_CALC |
_RL dfx(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/ggl90/ggl90_calc.F |
200 |
GGL90_CALC |
dfx(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
384 |
GGL90_CALC |
dfx(1-OLx,j)=0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
386 |
GGL90_CALC |
dfx(i,j) = -GGL90diffTKEh*xA(i,j) |
|
./pkg/ggl90/ggl90_calc.F |
413 |
GGL90_CALC |
& *((dfx(i+1,j)-dfx(i,j)) |
|
./pkg/ggl90/ggl90_idemix.F |
103 |
GGL90_IDEMIX |
dfx(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
241 |
GGL90_IDEMIX |
dfx(1-OLx,j)=0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
246 |
GGL90_IDEMIX |
dfx(i,j) = -fxa*_dyG(i,j,bi,bj)*drC(k) |
|
./pkg/ggl90/ggl90_idemix.F |
280 |
GGL90_IDEMIX |
& *((dfx(i+1,j)-dfx(i,j))+(dfy(i,j+1)-dfy(i,j)) ) ) |
|
./pkg/ggl90/ggl90_idemix.F |
65 |
GGL90_IDEMIX |
_RL dfx(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/diffus.F |
49 |
DIFFUS |
_RL dfx (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/diffus.F |
61 |
DIFFUS |
dfx(i,j) = 0. _d 0 |
|
./pkg/seaice/diffus.F |
68 |
DIFFUS |
dfx(i,j) = _dyG(i,j,bi,bj) * _recip_dxC(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
97 |
DIFFUS |
& ( dfx(i+1,j) - dfx(i,j) ) |
|
./pkg/cheapaml/gad_diff_2d_x.F |
14 |
GAD_DIFF_2D_X |
O dfx, |
|
./pkg/cheapaml/gad_diff_2d_x.F |
41 |
GAD_DIFF_2D_X |
_RL dfx (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/cheapaml/gad_diff_2d_x.F |
49 |
GAD_DIFF_2D_X |
dfx(1-Olx,j)=0. |
|
./pkg/cheapaml/gad_diff_2d_x.F |
51 |
GAD_DIFF_2D_X |
dfx(i,j) = -diffKh |