Symbol Description Uses
aC 8



File Line number Procedure Code
./model/src/ini_cg2d.F 227 INI_CG2D
           aC  = aC2d( i, j, bi,bj)
./model/src/ini_cg2d.F 230 INI_CG2D
           IF ( aC .EQ. 0. ) THEN
./model/src/ini_cg2d.F 233 INI_CG2D
            pC(i,j,bi,bj) =  1. _d 0 / aC
./model/src/ini_cg2d.F 235 INI_CG2D
           IF ( aC + aCw .EQ. 0. ) THEN
./model/src/ini_cg2d.F 239 INI_CG2D
     &         -aW2d(i,j,bi,bj)/((cg2dpcOffDFac *(aCw+aC))**2 )
./model/src/ini_cg2d.F 241 INI_CG2D
           IF ( aC + aCs .EQ. 0. ) THEN
./model/src/ini_cg2d.F 245 INI_CG2D
     &         -aS2d(i,j,bi,bj)/((cg2dpcOffDFac *(aCs+aC))**2 )
./model/src/ini_cg2d.F 52 INI_CG2D
      _RS     aC, aCw, aCs