Commit 70a3afeb435dcef8a3088682c2649ed14a5d70bd

Authored by Dany Dumont
1 parent 8465f2a2
Exists in master and in 1 other branch snow

Nouveau modele bio_npzd4

src/extras/bio/Makefile
... ... @@ -16,8 +16,9 @@ bio_sed.F90 \
16 16 bio_fasham.F90 \
17 17 bio_ismer.F90 \
18 18 bio_gsj.F90 \
19   -bio_nocera.F90 \
20 19 bio_save.F90 \
  20 +bio_nocera.F90 \
  21 +bio_npzd4.F90 \
21 22 nitrate.F90 \
22 23 ammonium.F90 \
23 24 hydrocarbon.F90
... ... @@ -33,6 +34,7 @@ ${LIB}(bio_ismer.o) \
33 34 ${LIB}(bio_gsj.o) \
34 35 ${LIB}(bio_fasham.o) \
35 36 ${LIB}(bio_nocera.o) \
  37 +${LIB}(bio_npzd4.o) \
36 38 ${LIB}(bio_sed.o) \
37 39 ${LIB}(bio_save.o) \
38 40 ${LIB}(nitrate.o) \
... ...
src/extras/bio/bio.F90
... ... @@ -40,6 +40,9 @@
40 40 use bio_nocera, only : init_bio_nocera,init_var_nocera,var_info_nocera
41 41 use bio_nocera, only : light_nocera,do_bio_nocera
42 42  
  43 + use bio_npzd4, only : init_bio_npzd4,init_var_npzd4,var_info_npzd4
  44 + use bio_npzd4, only : light_npzd4,do_bio_npzd4
  45 +
43 46 use bio_sed, only : init_bio_sed,init_var_sed,var_info_sed
44 47  
45 48 use bio_mab, only : init_bio_mab,init_var_mab,var_info_mab
... ... @@ -340,6 +343,16 @@
340 343  
341 344 call var_info_nocera()
342 345  
  346 + case (9) ! The model with four detrital compartments
  347 +
  348 + call init_bio_npzd4(namlst,'bio_npzd4.nml',unit)
  349 +
  350 + call allocate_memory(nlev)
  351 +
  352 + call init_var_npzd4(nlev)
  353 +
  354 + call var_info_npzd4()
  355 +
343 356 case default
344 357 stop "bio: no valid biomodel specified in bio.nml !"
345 358 end select
... ... @@ -726,6 +739,9 @@
726 739 case (8)
727 740 call light_nocera(nlev,bioshade_feedback)
728 741 call ode_solver(ode_method,numc,nlev,dt_eff,cc,do_bio_nocera)
  742 + case (9)
  743 + call light_npzd4(nlev,bioshade_feedback)
  744 + call ode_solver(ode_method,numc,nlev,dt_eff,cc,do_bio_npzd4)
729 745 end select
730 746  
731 747 end do
... ...
src/extras/bio/bio_nocera.F90
... ... @@ -609,6 +609,7 @@
609 609  
610 610 !Diurnal migration of zooplancton as a function of light and phytoplancton
611 611 !(food) concentration
  612 + !ws(z,ci) = -1.0*w_zmax*tanh(bertha*(par(ci)-parcrit))
612 613 if (cc(p,ci) .lt. pmin) then
613 614 ws(z,ci) = -1.0*w_zmax*tanh(bertha*(par(ci)-parcrit))
614 615 else
... ...