Commit 3cebf0ed authored by kb's avatar kb
Browse files

convc and convx defaults to 0

parent 532d5d97
......@@ -102,11 +102,11 @@
! grid convergence
allocate(convc(E2DFIELD),stat=rc)
if (rc /= 0) stop 'init_domain: Error allocating memory (convc)'
convc = -999.
convc = _ZERO_
allocate(convx(E2DXFIELD),stat=rc)
if (rc /= 0) stop 'init_domain: Error allocating memory (convx)'
convx = -999.
convx = _ZERO_
allocate(angle(E2DFIELD),stat=rc)
if (rc /=0) stop 'init_domain: Error allocating memory (angle)'
......
......@@ -39,8 +39,8 @@
! grid convergence
REALTYPE :: angle(E2DFIELD)
REALTYPE :: convc(E2DFIELD) = -999.
REALTYPE :: convx(E2DXFIELD) = -999.
REALTYPE :: convc(E2DFIELD) = _ZERO_
REALTYPE :: convx(E2DXFIELD) = _ZERO_
! grid points
REALTYPE :: xx(E2DXFIELD)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment