| File |
Line number |
Procedure |
Code |
|
./model/inc/CG2D.h |
41 |
NO PROCEDURE |
& pW, pS, pC, |
|
./model/inc/CG2D.h |
46 |
NO PROCEDURE |
_RS pS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/ini_cg2d.F |
239 |
INI_CG2D |
pS(I,J,bi,bj) = 0. |
|
./model/src/ini_cg2d.F |
241 |
INI_CG2D |
pS(I,J,bi,bj) = |
|
./model/src/ini_cg2d.F |
255 |
INI_CG2D |
CALL EXCH_UV_XY_RS(pW,pS,.FALSE.,myThid) |
|
./model/src/ini_cg2d.F |
67 |
INI_CG2D |
pS(I,J,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
157 |
UPDATE_CG2D |
pS(I,J,bi,bj) = 0. |
|
./model/src/update_cg2d.F |
159 |
UPDATE_CG2D |
pS(I,J,bi,bj) = |
|
./model/src/cg2d.F |
246 |
CG2D |
& +pS(I ,J ,bi,bj)*cg2d_r(I ,J-1,bi,bj) |
|
./model/src/cg2d.F |
247 |
CG2D |
& +pS(I ,J+1,bi,bj)*cg2d_r(I ,J+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
320 |
CG2D_NSA |
& +pS(I ,J ,bi,bj)*cg2d_r(I ,J-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
321 |
CG2D_NSA |
& +pS(I ,J+1,bi,bj)*cg2d_r(I ,J+1,bi,bj) |