Commit b0a803da authored by dumoda01's avatar dumoda01

Complement de modification a la revision precedente sur l'harmonisation de la...

Complement de modification a la revision precedente sur l'harmonisation de la prise en charge du nitrate et de l'ammonium par le module bio.
parent 8473db4a
......@@ -565,16 +565,31 @@
if (bio_eulerian) then
do j=1,numcc
if(j==1) then !CHG3
do k=1,nlev
cc(j,k) = nit(k)
if (j==1 .and. bio_model==6) then
do i=1,nlev
cc(j,i) = nit(i)
end do
else if (j==9 .and. bio_model==6) then
do i=1,nlev
cc(j,i) = amm(i)
end do
else if (j==5 .and. bio_model==4) then
do i=1,nlev
cc(j,i) = nit(i)
end do
else if (j==9) then !CHG5
do k=1,nlev
cc(j,k) = amm(k)
else if (j==6 .and. bio_model==4) then
do i=1,nlev
cc(j,i) = amm(i)
end do
else if (j==7 .and. bio_model==2) then
do i=1,nlev
cc(7,i) = nit(i)
end do
else if (j==6 .and. bio_model==2) then
do i=1,nlev
cc(6,i) = amm(i)
end do
else
! do advection step due to settling or rising
call adv_center(nlev,dt,h,h,ws(j,:),flux, &
flux,_ZERO_,_ZERO_,w_adv_discr,adv_mode_1,cc(j,:))
......
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