| File |
Line number |
Procedure |
Code |
|
./model/inc/CG2D.h |
39 |
NO PROCEDURE |
& aW2d, |
|
./model/inc/CG2D.h |
43 |
NO PROCEDURE |
_RS aW2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/ini_cg2d.F |
118 |
INI_CG2D |
IF (OB_Ie(J,bi,bj).NE.0) aW2d(OB_Ie(J,bi,bj),J,bi,bj)=0. |
|
./model/src/ini_cg2d.F |
119 |
INI_CG2D |
IF (OB_Ie(J,bi,bj).NE.0) aW2d(OB_Ie(J,bi,bj)+1,J,bi,bj)=0. |
|
./model/src/ini_cg2d.F |
120 |
INI_CG2D |
IF (OB_Iw(J,bi,bj).NE.0) aW2d(OB_Iw(J,bi,bj)+1,J,bi,bj)=0. |
|
./model/src/ini_cg2d.F |
121 |
INI_CG2D |
IF (OB_Iw(J,bi,bj).NE.0) aW2d(OB_Iw(J,bi,bj),J,bi,bj)=0. |
|
./model/src/ini_cg2d.F |
127 |
INI_CG2D |
myNorm = MAX(ABS(aW2d(I,J,bi,bj)),myNorm) |
|
./model/src/ini_cg2d.F |
144 |
INI_CG2D |
aW2d(I,J,bi,bj) = aW2d(I,J,bi,bj)*myNorm |
|
./model/src/ini_cg2d.F |
158 |
INI_CG2D |
CALL EXCH_UV_XY_RS(aW2d,aS2d,.FALSE.,myThid) |
|
./model/src/ini_cg2d.F |
210 |
INI_CG2D |
& aW2d(I,J,bi,bj) + aW2d(I+1,J ,bi,bj) |
|
./model/src/ini_cg2d.F |
216 |
INI_CG2D |
& aW2d(I,J-1,bi,bj) + aW2d(I+1,J-1,bi,bj) |
|
./model/src/ini_cg2d.F |
222 |
INI_CG2D |
& aW2d(I-1,J,bi,bj) + aW2d(I ,J ,bi,bj) |
|
./model/src/ini_cg2d.F |
236 |
INI_CG2D |
& -aW2d(I ,J ,bi,bj)/((cg2dpcOffDFac *(aCw+aC))**2 ) |
|
./model/src/ini_cg2d.F |
64 |
INI_CG2D |
aW2d(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
89 |
INI_CG2D |
aW2d(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
98 |
INI_CG2D |
aW2d(I,J,bi,bj) = aW2d(I,J,bi,bj) + |
|
./model/src/update_cg2d.F |
102 |
UPDATE_CG2D |
IF (OB_Ie(J,bi,bj).NE.0) aW2d(OB_Ie(J,bi,bj),J,bi,bj)=0. |
|
./model/src/update_cg2d.F |
103 |
UPDATE_CG2D |
IF (OB_Ie(J,bi,bj).NE.0) aW2d(OB_Ie(J,bi,bj)+1,J,bi,bj)=0. |
|
./model/src/update_cg2d.F |
104 |
UPDATE_CG2D |
IF (OB_Iw(J,bi,bj).NE.0) aW2d(OB_Iw(J,bi,bj)+1,J,bi,bj)=0. |
|
./model/src/update_cg2d.F |
105 |
UPDATE_CG2D |
IF (OB_Iw(J,bi,bj).NE.0) aW2d(OB_Iw(J,bi,bj),J,bi,bj)=0. |
|
./model/src/update_cg2d.F |
111 |
UPDATE_CG2D |
aW2d(I,J,bi,bj) = aW2d(I,J,bi,bj)*cg2dNorm |
|
./model/src/update_cg2d.F |
122 |
UPDATE_CG2D |
& aW2d(I,J,bi,bj) + aW2d(I+1,J ,bi,bj) |
|
./model/src/update_cg2d.F |
153 |
UPDATE_CG2D |
& -aW2d(I,J,bi,bj)/((cg2dpcOffDFac *pW_tmp)**2 ) |
|
./model/src/update_cg2d.F |
75 |
UPDATE_CG2D |
aW2d(I,J,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
84 |
UPDATE_CG2D |
aW2d(I,J,bi,bj) = aW2d(I,J,bi,bj) + |
|
./model/src/cg2d.F |
171 |
CG2D |
& (aW2d(I ,J ,bi,bj)*cg2d_x(I-1,J ,bi,bj) |
|
./model/src/cg2d.F |
172 |
CG2D |
& +aW2d(I+1,J ,bi,bj)*cg2d_x(I+1,J ,bi,bj) |
|
./model/src/cg2d.F |
175 |
CG2D |
& -aW2d(I ,J ,bi,bj)*cg2d_x(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
176 |
CG2D |
& -aW2d(I+1,J ,bi,bj)*cg2d_x(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
298 |
CG2D |
& aW2d(I ,J ,bi,bj)*cg2d_s(I-1,J ,bi,bj) |
|
./model/src/cg2d.F |
299 |
CG2D |
& +aW2d(I+1,J ,bi,bj)*cg2d_s(I+1,J ,bi,bj) |
|
./model/src/cg2d.F |
302 |
CG2D |
& -aW2d(I ,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
303 |
CG2D |
& -aW2d(I+1,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
229 |
CG2D_NSA |
& (aW2d(I ,J ,bi,bj)*cg2d_x(I-1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
230 |
CG2D_NSA |
& +aW2d(I+1,J ,bi,bj)*cg2d_x(I+1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
233 |
CG2D_NSA |
& -aW2d(I ,J ,bi,bj)*cg2d_x(I ,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
234 |
CG2D_NSA |
& -aW2d(I+1,J ,bi,bj)*cg2d_x(I ,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
384 |
CG2D_NSA |
& aW2d(I ,J ,bi,bj)*cg2d_s(I-1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
385 |
CG2D_NSA |
& +aW2d(I+1,J ,bi,bj)*cg2d_s(I+1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
388 |
CG2D_NSA |
& -aW2d(I ,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
389 |
CG2D_NSA |
& -aW2d(I+1,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |