Commit 098bc3aabba6b84f3ee126437ba0c4d7aaabfea4

Authored by dumoda01
1 parent efa4313b
Exists in master and in 1 other branch snow

Modification de bio_npzd -> initialisation des nutriments

Showing 1 changed file with 6 additions and 1 deletions   Show diff stats
src/extras/bio/bio_npzd.F90
@@ -199,6 +199,10 @@ @@ -199,6 +199,10 @@
199 ! taken up by benthic filter feeders. 199 ! taken up by benthic filter feeders.
200 ! 200 !
201 ! !USES: 201 ! !USES:
  202 + use observations, only: nprof !DD
  203 + use meanflow, only: nit !DD
  204 +
  205 +
202 IMPLICIT NONE 206 IMPLICIT NONE
203 ! 207 !
204 ! !INPUT PARAMETERS: 208 ! !INPUT PARAMETERS:
@@ -213,7 +217,8 @@ @@ -213,7 +217,8 @@
213 !----------------------------------------------------------------------- 217 !-----------------------------------------------------------------------
214 !BOC 218 !BOC
215 do i=1,nlev 219 do i=1,nlev
216 - cc(n,i)=n_initial 220 +! cc(n,i)=n_initial
  221 + cc(n,i)=nprof(i)
217 cc(p,i)=p_initial 222 cc(p,i)=p_initial
218 cc(z,i)=z_initial 223 cc(z,i)=z_initial
219 cc(d,i)=d_initial 224 cc(d,i)=d_initial