Symbol Description Uses
aC 8



File Line number Procedure Code
./model/src/ini_cg2d.F 218 INI_CG2D
           aC  = aC2d( i, j, bi,bj)
./model/src/ini_cg2d.F 221 INI_CG2D
           IF ( aC .EQ. 0. ) THEN
./model/src/ini_cg2d.F 224 INI_CG2D
            pC(i,j,bi,bj) =  1. _d 0 / aC
./model/src/ini_cg2d.F 226 INI_CG2D
           IF ( aC + aCw .EQ. 0. ) THEN
./model/src/ini_cg2d.F 230 INI_CG2D
     &         -aW2d(i,j,bi,bj)/((cg2dpcOffDFac *(aCw+aC))**2 )
./model/src/ini_cg2d.F 232 INI_CG2D
           IF ( aC + aCs .EQ. 0. ) THEN
./model/src/ini_cg2d.F 236 INI_CG2D
     &         -aS2d(i,j,bi,bj)/((cg2dpcOffDFac *(aCs+aC))**2 )
./model/src/ini_cg2d.F 48 INI_CG2D
      _RS     aC, aCw, aCs