Commit cc053af1 authored by kbk's avatar kbk
Browse files

CONST_VISC --> CONSTANT_VISCOSITY

parent 377ef394
......@@ -70,7 +70,7 @@
#endif
#ifndef NO_SUSP_MATTER
#ifdef SPM
allocate(spm(I3DFIELD),stat=rc) ! Suspended particulate matter
if (rc /= 0) stop 'init_3d: Error allocating memory (spm)'
......
! Remember to update this value if you add more 3D arrays.
#ifdef UV_TVD
#ifndef NO_SUSP_MATTER
#ifdef SPM
integer, parameter :: n3d_fields=29
#else
integer, parameter :: n3d_fields=26
#endif
#else
#ifndef NO_SUSP_MATTER
#ifdef SPM
integer, parameter :: n3d_fields=22
#else
integer, parameter :: n3d_fields=19
......@@ -50,7 +50,7 @@
REALTYPE :: idpdy(I3DFIELD)
#endif
#ifndef NO_SUSP_MATTER
#ifdef SPM
! suspended matter
REALTYPE :: spm(I3DFIELD)
REALTYPE :: spm_ws(I3DFIELD)
......
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