| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_calc_viscosities.F |
216 |
SEAICE_CALC_VISCOSITIES |
maskZ = maskC(I,J, k,bi,bj)*maskC(I-1,J, k,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
218 |
SEAICE_CALC_VISCOSITIES |
etaZ (I,J,bi,bj) = etaZ(I,J,bi,bj) * maskZ |
|
./pkg/seaice/seaice_calc_viscosities.F |
219 |
SEAICE_CALC_VISCOSITIES |
zetaZ(I,J,bi,bj) = zetaZ(I,J,bi,bj) * maskZ |
|
./pkg/seaice/seaice_calc_viscosities.F |
79 |
SEAICE_CALC_VISCOSITIES |
_RL sumNorm, maskZ |
|
./pkg/shap_filt/shap_filt_computvort.F |
105 |
SHAP_FILT_COMPUTVORT |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
107 |
SHAP_FILT_COMPUTVORT |
IF (maskZ.GE.2.) THEN |
|
./pkg/shap_filt/shap_filt_computvort.F |
119 |
SHAP_FILT_COMPUTVORT |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
121 |
SHAP_FILT_COMPUTVORT |
IF (maskZ.GE.2.) THEN |
|
./pkg/shap_filt/shap_filt_computvort.F |
141 |
SHAP_FILT_COMPUTVORT |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
143 |
SHAP_FILT_COMPUTVORT |
IF (maskZ.GE.2.) THEN |
|
./pkg/shap_filt/shap_filt_computvort.F |
163 |
SHAP_FILT_COMPUTVORT |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
165 |
SHAP_FILT_COMPUTVORT |
IF (maskZ.GE.2.) THEN |
|
./pkg/shap_filt/shap_filt_computvort.F |
52 |
SHAP_FILT_COMPUTVORT |
_RS maskZ |
|
./pkg/shap_filt/shap_filt_computvort.F |
75 |
SHAP_FILT_COMPUTVORT |
maskZ = (maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)) |
|
./pkg/shap_filt/shap_filt_computvort.F |
77 |
SHAP_FILT_COMPUTVORT |
IF (maskZ.LT.1.) vort(i,j)=0. |
|
./pkg/shap_filt/shap_filt_u.F |
32 |
SHAP_FILT_U |
_RS maskZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shap_filt/shap_filt_u.F |
59 |
SHAP_FILT_U |
maskZ(i,j) = _maskS(i-1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
87 |
SHAP_FILT_U |
& (tmpFldY(i,j+1,N1)-tmpFldY(i, j ,N1))*maskZ(i,j+1) |
|
./pkg/shap_filt/shap_filt_u.F |
88 |
SHAP_FILT_U |
& -(tmpFldY(i, j ,N1)-tmpFldY(i,j-1,N1))*maskZ(i, j ) |
|
./pkg/shap_filt/shap_filt_u.F |
90 |
SHAP_FILT_U |
& -2.*(2.-maskZ(i,j)-maskZ(i,j+1))*tmpFldY(i,j,N1) |
|
./pkg/shap_filt/shap_filt_v.F |
32 |
SHAP_FILT_V |
_RS maskZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shap_filt/shap_filt_v.F |
38 |
SHAP_FILT_V |
maskZ(i,j) = _maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
57 |
SHAP_FILT_V |
& (tmpFldX(i+1,j,N1)-tmpFldX( i ,j,N1))*maskZ(i+1,j) |
|
./pkg/shap_filt/shap_filt_v.F |
58 |
SHAP_FILT_V |
& -(tmpFldX( i ,j,N1)-tmpFldX(i-1,j,N1))*maskZ( i ,j) |
|
./pkg/shap_filt/shap_filt_v.F |
60 |
SHAP_FILT_V |
& -2.*(2.-maskZ(i,j)-maskZ(i+1,j))*tmpFldX(i,j,N1) |