| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_biharm_y.F |
13 |
GAD_BIHARM_Y |
O dfy, |
|
./pkg/generic_advdiff/gad_biharm_y.F |
43 |
GAD_BIHARM_Y |
_RL dfy (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_biharm_y.F |
57 |
GAD_BIHARM_Y |
dfy(i,j) = dfy(i,j) + diffK4*yA(i,j) |
|
./pkg/generic_advdiff/gad_diff_y.F |
14 |
GAD_DIFF_Y |
O dfy, |
|
./pkg/generic_advdiff/gad_diff_y.F |
44 |
GAD_DIFF_Y |
_RL dfy (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_diff_y.F |
52 |
GAD_DIFF_Y |
dfy(i,1-Oly)=0. |
|
./pkg/generic_advdiff/gad_diff_y.F |
56 |
GAD_DIFF_Y |
dfy(i,j) = -diffKh*yA(i,j) |
|
./pkg/ggl90/ggl90_calc.F |
124 |
GGL90_CALC |
_RL dfy(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/ggl90/ggl90_calc.F |
201 |
GGL90_CALC |
dfy(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
396 |
GGL90_CALC |
dfy(i,1-OLy)=0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
400 |
GGL90_CALC |
dfy(i,j) = -GGL90diffTKEh*yA(i,j) |
|
./pkg/ggl90/ggl90_calc.F |
414 |
GGL90_CALC |
& + (dfy(i,j+1)-dfy(i,j)) ) |
|
./pkg/ggl90/ggl90_idemix.F |
104 |
GGL90_IDEMIX |
dfy(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
256 |
GGL90_IDEMIX |
dfy(i,1-OLy)=0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
263 |
GGL90_IDEMIX |
dfy(i,j) = -fxa*_dxG(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 |
66 |
GGL90_IDEMIX |
_RL dfy(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/diffus.F |
50 |
DIFFUS |
_RL dfy (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/diffus.F |
62 |
DIFFUS |
dfy(i,j) = 0. _d 0 |
|
./pkg/seaice/diffus.F |
76 |
DIFFUS |
dfy(i,j) = _dxG(i,j,bi,bj) * _recip_dyC(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
98 |
DIFFUS |
& + ( dfy(i,j+1) - dfy(i,j) ) |
|
./pkg/cheapaml/gad_diff_2d_y.F |
14 |
GAD_DIFF_2D_Y |
O dfy, |
|
./pkg/cheapaml/gad_diff_2d_y.F |
42 |
GAD_DIFF_2D_Y |
_RL dfy (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/cheapaml/gad_diff_2d_y.F |
50 |
GAD_DIFF_2D_Y |
dfy(i,1-Oly)=0. |
|
./pkg/cheapaml/gad_diff_2d_y.F |
54 |
GAD_DIFF_2D_Y |
dfy(i,j) = -diffKh |
|
./pkg/cheapaml/gad_diff_2d_y.F |
61 |
GAD_DIFF_2D_Y |
if(jG.eq.ny.or.jG.eq.1)dfy(i,j)=0.d0 |