Commit 098bc3aa authored by dumoda01's avatar dumoda01

Modification de bio_npzd -> initialisation des nutriments

parent efa4313b
...@@ -199,6 +199,10 @@ ...@@ -199,6 +199,10 @@
! taken up by benthic filter feeders. ! taken up by benthic filter feeders.
! !
! !USES: ! !USES:
use observations, only: nprof !DD
use meanflow, only: nit !DD
IMPLICIT NONE IMPLICIT NONE
! !
! !INPUT PARAMETERS: ! !INPUT PARAMETERS:
...@@ -213,7 +217,8 @@ ...@@ -213,7 +217,8 @@
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOC !BOC
do i=1,nlev do i=1,nlev
cc(n,i)=n_initial ! cc(n,i)=n_initial
cc(n,i)=nprof(i)
cc(p,i)=p_initial cc(p,i)=p_initial
cc(z,i)=z_initial cc(z,i)=z_initial
cc(d,i)=d_initial cc(d,i)=d_initial
......
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