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.

src/extras/bio/bio.F90

@@ -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,:))