Commit f8ff861a38377c329644231bd253b22fb4419ca2

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

Initialisation de ammonium a partir de obs.nml au lieu de bio_fasham.nml

src/extras/bio/bio_fasham.F90
... ... @@ -299,8 +299,8 @@
299 299 ! cc(n,i)=n_initial
300 300 ! cc(n,i)=nit(i) !CHG3
301 301 cc(n,i)=nprof(i) !CHG3
302   -! cc(n,i)=aprof(i) !CHG5
303   - cc(a,i)=a_initial !CHG5
  302 + cc(n,i)=aprof(i) !CHG5
  303 +! cc(a,i)=a_initial !CHG5
304 304 cc(l,i)=l_initial
305 305 end do
306 306  
... ...
src/observations/observations.F90
... ... @@ -44,10 +44,10 @@
44 44 REALTYPE, public, dimension(:), allocatable :: tprof
45 45  
46 46 ! 'observed' nitrate profile
47   - REALTYPE, public, dimension(:), allocatable :: nprof,aprof !CHG3
  47 + REALTYPE, public, dimension(:), allocatable :: nprof !CHG3
48 48  
49 49 ! 'observed' ammonium profile
50   -! REALTYPE, public, dimension(:), allocatable :: aprof !CHG5
  50 + REALTYPE, public, dimension(:), allocatable :: aprof !CHG5
51 51  
52 52 ! 'observed' oxygen profile
53 53 REALTYPE, public, dimension(:), allocatable :: o2_prof
... ... @@ -504,7 +504,7 @@
504 504 NRelaxTau = 0.
505 505  
506 506 allocate(ARelaxTau(0:nlev),stat=rc) !CHG5
507   - if (rc /= 0) STOP 'init_observations: Error allocating (NRelaxTau)'
  507 + if (rc /= 0) STOP 'init_observations: Error allocating (ARelaxTau)'
508 508 ARelaxTau = 0.
509 509  
510 510 allocate(uprof(0:nlev),stat=rc)
... ...