Commit 098bc3aa authored by dumoda01's avatar dumoda01

Modification de bio_npzd -> initialisation des nutriments

parent efa4313b
......@@ -199,6 +199,10 @@
! taken up by benthic filter feeders.
!
! !USES:
use observations, only: nprof !DD
use meanflow, only: nit !DD
IMPLICIT NONE
!
! !INPUT PARAMETERS:
......@@ -213,7 +217,8 @@
!-----------------------------------------------------------------------
!BOC
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(z,i)=z_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