Commit 2b2136f7baa69a6ecaf76bc2c438bc62c5f8990b

Authored by dumoda01
1 parent 1afe698e
Exists in master and in 1 other branch snow

Bogue mineur

Showing 1 changed file with 5 additions and 1 deletions   Show diff stats
src/observations/observations.F90
... ... @@ -77,7 +77,7 @@
77 77 REALTYPE, public, dimension(:), allocatable :: SRelaxTau,TRelaxTau
78 78  
79 79 ! relaxation times for nitrate and ammonium
80   - REALTYPE, public, dimension(:), allocatable :: NRelaxTau !CHG3-5
  80 + REALTYPE, public, dimension(:), allocatable :: NRelaxTau,ARelaxTau !CHG3-5
81 81  
82 82 ! sea surface elevation, sea surface gradients and height of velocity obs.
83 83 REALTYPE, public :: zeta=0.,dpdx=0.,dpdy=0.,h_press=0
... ... @@ -503,6 +503,10 @@
503 503 if (rc /= 0) STOP 'init_observations: Error allocating (NRelaxTau)'
504 504 NRelaxTau = 0.
505 505  
  506 + allocate(ARelaxTau(0:nlev),stat=rc) !CHG5
  507 + if (rc /= 0) STOP 'init_observations: Error allocating (NRelaxTau)'
  508 + ARelaxTau = 0.
  509 +
506 510 allocate(uprof(0:nlev),stat=rc)
507 511 if (rc /= 0) stop 'init_observations: Error allocating (uprof)'
508 512 uprof = 0.
... ...