Commit c2245a16 authored by lars's avatar lars
Browse files

memory mangement for bottom stresses

parent a82a719e
...@@ -147,6 +147,12 @@ ...@@ -147,6 +147,12 @@
allocate(taus(I2DFIELD),stat=rc) ! Absolute Value of surface stress allocate(taus(I2DFIELD),stat=rc) ! Absolute Value of surface stress
if (rc /= 0) stop 'init_3d: Error allocating memory (taus)' if (rc /= 0) stop 'init_3d: Error allocating memory (taus)'
allocate(taubx(I2DFIELD),stat=rc) ! x-component of bottom stress
if (rc /= 0) stop 'init_3d: Error allocating memory (taubx)'
allocate(tauby(I2DFIELD),stat=rc) ! y-component of bottom stress
if (rc /= 0) stop 'init_3d: Error allocating memory (tauby)'
allocate(taub(I2DFIELD),stat=rc) ! Absolute Value of bottom stress allocate(taub(I2DFIELD),stat=rc) ! Absolute Value of bottom stress
if (rc /= 0) stop 'init_3d: Error allocating memory (taub)' if (rc /= 0) stop 'init_3d: Error allocating memory (taub)'
......
...@@ -48,7 +48,8 @@ ...@@ -48,7 +48,8 @@
REALTYPE, dimension(:,:), allocatable :: ssvo,ssvn REALTYPE, dimension(:,:), allocatable :: ssvo,ssvn
! 3D friction in 3D domain ! 3D friction in 3D domain
REALTYPE, dimension(:,:), allocatable :: rru,rrv,taus,taub REALTYPE, dimension(:,:), allocatable :: rru,rrv
REALTYPE, dimension(:,:), allocatable :: taus,taubx,tauby,taub
! attenuation ! attenuation
REALTYPE, dimension(:,:), allocatable :: A,g1,g2 REALTYPE, dimension(:,:), allocatable :: A,g1,g2
......
...@@ -85,6 +85,8 @@ ...@@ -85,6 +85,8 @@
REALTYPE :: rru(I2DFIELD) REALTYPE :: rru(I2DFIELD)
REALTYPE :: rrv(I2DFIELD) REALTYPE :: rrv(I2DFIELD)
REALTYPE :: taus(I2DFIELD) REALTYPE :: taus(I2DFIELD)
REALTYPE :: taubx(I2DFIELD)
REALTYPE :: tauby(I2DFIELD)
REALTYPE :: taub(I2DFIELD) REALTYPE :: taub(I2DFIELD)
! light attenuation ! light attenuation
......
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