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,7 +77,7 @@
77 REALTYPE, public, dimension(:), allocatable :: SRelaxTau,TRelaxTau 77 REALTYPE, public, dimension(:), allocatable :: SRelaxTau,TRelaxTau
78 78
79 ! relaxation times for nitrate and ammonium 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 ! sea surface elevation, sea surface gradients and height of velocity obs. 82 ! sea surface elevation, sea surface gradients and height of velocity obs.
83 REALTYPE, public :: zeta=0.,dpdx=0.,dpdy=0.,h_press=0 83 REALTYPE, public :: zeta=0.,dpdx=0.,dpdy=0.,h_press=0
@@ -503,6 +503,10 @@ @@ -503,6 +503,10 @@
503 if (rc /= 0) STOP 'init_observations: Error allocating (NRelaxTau)' 503 if (rc /= 0) STOP 'init_observations: Error allocating (NRelaxTau)'
504 NRelaxTau = 0. 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 allocate(uprof(0:nlev),stat=rc) 510 allocate(uprof(0:nlev),stat=rc)
507 if (rc /= 0) stop 'init_observations: Error allocating (uprof)' 511 if (rc /= 0) stop 'init_observations: Error allocating (uprof)'
508 uprof = 0. 512 uprof = 0.