Commit c2245a16 authored by lars's avatar lars
Browse files

memory mangement for bottom stresses

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