| File |
Line number |
Procedure |
Code |
|
./model/src/ini_cg2d.F |
224 |
INI_CG2D |
aC = -( |
|
./model/src/ini_cg2d.F |
242 |
INI_CG2D |
IF ( aC .EQ. 0. ) THEN |
|
./model/src/ini_cg2d.F |
245 |
INI_CG2D |
pC(I,J,bi,bj) = 1. _d 0 / aC |
|
./model/src/ini_cg2d.F |
247 |
INI_CG2D |
IF ( aC + aCw .EQ. 0. ) THEN |
|
./model/src/ini_cg2d.F |
251 |
INI_CG2D |
& -aW2d(I ,J ,bi,bj)/((cg2dpcOffDFac *(aCw+aC))**2 ) |
|
./model/src/ini_cg2d.F |
253 |
INI_CG2D |
IF ( aC + aCs .EQ. 0. ) THEN |
|
./model/src/ini_cg2d.F |
257 |
INI_CG2D |
& -aS2d(I ,J ,bi,bj)/((cg2dpcOffDFac *(aCs+aC))**2 ) |
|
./model/src/ini_cg2d.F |
57 |
INI_CG2D |
_RL aC, aCw, aCs |
|
./model/src/ini_cg3d.F |
219 |
INI_CG3D |
aC = -aW-aE-aN-aS-aU-aL |
|
./model/src/ini_cg3d.F |
220 |
INI_CG3D |
IF ( K .EQ. 1 .AND. aC .NE. 0. ) THEN |
|
./model/src/ini_cg3d.F |
221 |
INI_CG3D |
aC = aC |
|
./model/src/ini_cg3d.F |
225 |
INI_CG3D |
IF ( aC .NE. 0. ) THEN |
|
./model/src/ini_cg3d.F |
226 |
INI_CG3D |
zMC(i,j,k,bi,bj) = aC |
|
./model/src/ini_cg3d.F |
276 |
INI_CG3D |
aC = -aW-aE-aN-aS-aU-aL |
|
./model/src/ini_cg3d.F |
277 |
INI_CG3D |
IF ( aC .EQ. 0. ) THEN |
|
./model/src/ini_cg3d.F |
59 |
INI_CG3D |
_RL aU, aL, aW, aE, aN, aS, aC |