| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_xtransport.F |
156 |
GMREDI_XTRANSPORT |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_xtransport.F |
157 |
GMREDI_XTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_xtransport.F |
160 |
GMREDI_XTRANSPORT |
uTrans(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
53 |
GMREDI_XTRANSPORT |
_RL maskp1 |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
44 |
GMREDI_CALC_UVFLOW |
_RL maskp1 |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
50 |
GMREDI_CALC_UVFLOW |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
51 |
GMREDI_CALC_UVFLOW |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
55 |
GMREDI_CALC_UVFLOW |
& + dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
59 |
GMREDI_CALC_UVFLOW |
& + dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
294 |
GMREDI_CALC_TENSOR |
maskp1 = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
295 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
335 |
GMREDI_CALC_TENSOR |
& +maskp1*(sigmaR(i-1,j,kp1) +sigmaR(i,j,kp1)) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
418 |
GMREDI_CALC_TENSOR |
& +maskp1*(sigmaR(i,j-1,kp1) +sigmaR(i,j,kp1)) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
52 |
GMREDI_CALC_TENSOR |
_RL maskp1, Kgm_tmp |
|
./pkg/gmredi/gmredi_ytransport.F |
156 |
GMREDI_YTRANSPORT |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_ytransport.F |
157 |
GMREDI_YTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_ytransport.F |
160 |
GMREDI_YTRANSPORT |
vTrans(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
53 |
GMREDI_YTRANSPORT |
_RL maskp1 |