| File |
Line number |
Procedure |
Code |
|
./model/src/ini_cg2d.F |
209 |
INI_CG2D |
aC = -( |
|
./model/src/ini_cg2d.F |
227 |
INI_CG2D |
IF ( aC .EQ. 0. ) THEN |
|
./model/src/ini_cg2d.F |
230 |
INI_CG2D |
pC(I,J,bi,bj) = 1. _d 0 / aC |
|
./model/src/ini_cg2d.F |
232 |
INI_CG2D |
IF ( aC + aCw .EQ. 0. ) THEN |
|
./model/src/ini_cg2d.F |
236 |
INI_CG2D |
& -aW2d(I ,J ,bi,bj)/((cg2dpcOffDFac *(aCw+aC))**2 ) |
|
./model/src/ini_cg2d.F |
238 |
INI_CG2D |
IF ( aC + aCs .EQ. 0. ) THEN |
|
./model/src/ini_cg2d.F |
242 |
INI_CG2D |
& -aS2d(I ,J ,bi,bj)/((cg2dpcOffDFac *(aCs+aC))**2 ) |
|
./model/src/ini_cg2d.F |
55 |
INI_CG2D |
_RL aC, aCw, aCs |
|
./model/src/ini_cg3d.F |
330 |
INI_CG3D |
aC = -aW-aE-aN-aS-aU-aL |
|
./model/src/ini_cg3d.F |
331 |
INI_CG3D |
IF ( aC .EQ. 0. ) THEN |
|
./model/src/ini_cg3d.F |
54 |
INI_CG3D |
_RL aU, aL, aW, aE, aN, aS, aC |