Commit f8ff861a authored by dumoda01's avatar dumoda01

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

parent a9ed8aaf
......@@ -299,8 +299,8 @@
! cc(n,i)=n_initial
! cc(n,i)=nit(i) !CHG3
cc(n,i)=nprof(i) !CHG3
! cc(n,i)=aprof(i) !CHG5
cc(a,i)=a_initial !CHG5
cc(n,i)=aprof(i) !CHG5
! cc(a,i)=a_initial !CHG5
cc(l,i)=l_initial
end do
......
......@@ -44,10 +44,10 @@
REALTYPE, public, dimension(:), allocatable :: tprof
! 'observed' nitrate profile
REALTYPE, public, dimension(:), allocatable :: nprof,aprof !CHG3
REALTYPE, public, dimension(:), allocatable :: nprof !CHG3
! 'observed' ammonium profile
! REALTYPE, public, dimension(:), allocatable :: aprof !CHG5
REALTYPE, public, dimension(:), allocatable :: aprof !CHG5
! 'observed' oxygen profile
REALTYPE, public, dimension(:), allocatable :: o2_prof
......@@ -504,7 +504,7 @@
NRelaxTau = 0.
allocate(ARelaxTau(0:nlev),stat=rc) !CHG5
if (rc /= 0) STOP 'init_observations: Error allocating (NRelaxTau)'
if (rc /= 0) STOP 'init_observations: Error allocating (ARelaxTau)'
ARelaxTau = 0.
allocate(uprof(0:nlev),stat=rc)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment