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,8 +299,8 @@
299 ! cc(n,i)=n_initial 299 ! cc(n,i)=n_initial
300 ! cc(n,i)=nit(i) !CHG3 300 ! cc(n,i)=nit(i) !CHG3
301 cc(n,i)=nprof(i) !CHG3 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 cc(l,i)=l_initial 304 cc(l,i)=l_initial
305 end do 305 end do
306 306
src/observations/observations.F90
@@ -44,10 +44,10 @@ @@ -44,10 +44,10 @@
44 REALTYPE, public, dimension(:), allocatable :: tprof 44 REALTYPE, public, dimension(:), allocatable :: tprof
45 45
46 ! 'observed' nitrate profile 46 ! 'observed' nitrate profile
47 - REALTYPE, public, dimension(:), allocatable :: nprof,aprof !CHG3 47 + REALTYPE, public, dimension(:), allocatable :: nprof !CHG3
48 48
49 ! 'observed' ammonium profile 49 ! 'observed' ammonium profile
50 -! REALTYPE, public, dimension(:), allocatable :: aprof !CHG5 50 + REALTYPE, public, dimension(:), allocatable :: aprof !CHG5
51 51
52 ! 'observed' oxygen profile 52 ! 'observed' oxygen profile
53 REALTYPE, public, dimension(:), allocatable :: o2_prof 53 REALTYPE, public, dimension(:), allocatable :: o2_prof
@@ -504,7 +504,7 @@ @@ -504,7 +504,7 @@
504 NRelaxTau = 0. 504 NRelaxTau = 0.
505 505
506 allocate(ARelaxTau(0:nlev),stat=rc) !CHG5 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 ARelaxTau = 0. 508 ARelaxTau = 0.
509 509
510 allocate(uprof(0:nlev),stat=rc) 510 allocate(uprof(0:nlev),stat=rc)