Bogue mineur

src/observations/observations.F90

@@ -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.