Commit 2b2136f7 authored by dumoda01's avatar dumoda01

Bogue mineur

parent 1afe698e
......@@ -77,7 +77,7 @@
REALTYPE, public, dimension(:), allocatable :: SRelaxTau,TRelaxTau
! relaxation times for nitrate and ammonium
REALTYPE, public, dimension(:), allocatable :: NRelaxTau !CHG3-5
REALTYPE, public, dimension(:), allocatable :: NRelaxTau,ARelaxTau !CHG3-5
! sea surface elevation, sea surface gradients and height of velocity obs.
REALTYPE, public :: zeta=0.,dpdx=0.,dpdy=0.,h_press=0
......@@ -503,6 +503,10 @@
if (rc /= 0) STOP 'init_observations: Error allocating (NRelaxTau)'
NRelaxTau = 0.
allocate(ARelaxTau(0:nlev),stat=rc) !CHG5
if (rc /= 0) STOP 'init_observations: Error allocating (NRelaxTau)'
ARelaxTau = 0.
allocate(uprof(0:nlev),stat=rc)
if (rc /= 0) stop 'init_observations: Error allocating (uprof)'
uprof = 0.
......
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