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 199 ! taken up by benthic filter feeders.
200 200 !
201 201 ! !USES:
  202 + use observations, only: nprof !DD
  203 + use meanflow, only: nit !DD
  204 +
  205 +
202 206 IMPLICIT NONE
203 207 !
204 208 ! !INPUT PARAMETERS:
... ... @@ -213,7 +217,8 @@
213 217 !-----------------------------------------------------------------------
214 218 !BOC
215 219 do i=1,nlev
216   - cc(n,i)=n_initial
  220 +! cc(n,i)=n_initial
  221 + cc(n,i)=nprof(i)
217 222 cc(p,i)=p_initial
218 223 cc(z,i)=z_initial
219 224 cc(d,i)=d_initial
... ...