Skip to content
GitLab
Commit a5d329e7 authored by Dany Dumont's avatar Dany Dumont
Browse files

Merge branch 'snow' of gitlasso.uqar.ca:dumoda01/gotm_ismer

parents 11b18235 c946efdb
Hide whitespace changes
Inline Side-by-side
nml/bio_polynow.nml 0 → 100644
View file @ a5d329e7
#$Id$
!-------------------------------------------------------------------------------
! Fasham et al. biological model with modifications by Kuehn and Radach
!
! numc= number of compartments for geobiochemical model
!
! p_initial= initial phytoplankton concentration [mmol n/m3]
! z_initial= initial zooplakton concentration [mmol n/m3]
! b_initial= initial bacteria concentration [mmol n/m3]
! dph_initial= initial dph concentration [mmol n/m3]
! dzo_initial= initial dzo concentration [mmol n/m3]
! fp_initial= initial fp concentration [mmol n/m3]
! msn_initial= initial dzo concentration [mmol n/m3]
! n_initial= *** see obs.nml *** [mmol n/m3]
! a_initial= *** see obs.nml *** [mmol n/m3]
! l_initial= initial LDON concentration [mmol n/m3]
! p0 = minimum phytoplankton concentration [mmol n/m3]
! z0 = minimum zooplakton concentration [mmol n/m3]
! b0 = minimum bacteria concentration [mmol n/m3]
! mu5 = nitrification rate [1/day] !!GG-CHG1
! vp = maximum phytoplankton uptake rate [1/day]
! alpha = slope of the PI-curvea [m2/(W day)]
! inib = inhibition slope of the PI-curve (positive) [m2/(W day)]
! kc = attenuation constant for the self shading effect [m**2/mmol N]
! k1 = half saturation constant nitrate uptake [mmol n/m3]
! k2 = half saturation constant ammonium uptake [mmol n/m3]
! mu1 = phytoplankton mortality rate [1/day]
! k5 = half saturation constant phytoplankton mortality [mmol n/m3]
! gamma = exudation fraction [-]
! capt = Percentage of living phyto. captured in msn [%/day] - GG-D
! sp_mort = Phytoplankton non grazing mortality [1/day] - GG-D
! sp_mort2 = Quadratic mortality/aggrgation rate coefficient [1/day] - GG-D
! w_p = phytoplankton settling velocity [m/day]
! stip = Stickiness of choosen Phytoplankton species [-] - GG-D
! stidph = Stickiness of dead Phytoplankton [-] - GG-D
! gmax = maximum ingestion rate [1/day]
! k3 = half saturation constant ingestion [mmol n/m3]
! beta = grazing efficiency [-]
! betamsn = grazing efficiency on marine snow [-] - GG-D
! mu2 = maximum zooplankton loss rate [1/day]
! k6 = half saturation zooplankton loss [mmol n/m3]
! delta = fractional zooplankton loss to LDON [-]
! epsi = fractional zooplankton loss to ammonium [-]
! r1 = grazing preference phytoplankton [-]
! r2 = grazing preference bacteria [-]
! r3 = grazing preference dead phytoplankton (dph) [-] - GG-D
! r4 = grazing preference dead zooplankton (dzo) [-] - GG-D
! r5 = grazing preference fecal pellets (fp) [-] - GG-D
! r6 = grazing preference marine snow (msn) [-] - GG-D
!zingest = Proportion of grazed matter added to zoo. biomass [-] - GG-D
! eg = Percentage of eggestion [%/day] - GG-D
! stidzo = Stickiness of choosen zooplankton species [-] - GG-D
! stifp = Stickiness of fecal pellets [-] - GG-D
! pmin = intensity rariadtion in the water column
! w_zmax = Max. swimming speed for zoo (not exceed 320) [1/day]
! bertha = amplitud coefficient
! parcrit =min. phyto concentration needed for zooplankton
! vb = maximum bacterial uptake rate [1/day]
! k4 = half saturation bacterial uptake [mmol n/m3]
! mu3 = bacteria excretion rate [1/day]
! eta = uptake ratio ammonium:LDON [-]
! mbac = Percentage of bacerias captured in msn [%/day] - GG-D
! dphlossl = Dph breakdown rate [%/day] - GG-D
! dzolossl = Percentage of Dzo loss in LDON [%/day] - GG-D
! dzolossb = Percentage of Dzo loss in bacteria respiration [%/day] - GG-D
! fplossl = Percentage of fp loss in LDON [%/day] - GG-D
! fplossb = Percentage of fp loss in bacteria respiration [%/day] - GG-D
! w_d1 = [1/day]
! w_d2 = [1/day]
! w_d3 = [1/day]
! w_d4 = [1/day]
! mldon = Percentage of LDON used to constitute matrice of msn [%/day] - GG-D
!lmin = LDON limit concentration to become the matrix of msn [mmol n/m3]- GG-D
!Coag_coef = Specification by user of utilisation of model calculated Coagulation coefficient(false) or given parameter(true) [true.false] - GG-D
!betap = Coagulation coefficient of Phytoplankton [1/day]- GG-D
!betadph = Coagulation coefficient of dead Phytoplankton [1/day]- GG-D
!betadzo = Coagulation coefficient of deadzooplankton [1/day]- GG-D
!betafp = Coagulation coefficient of fecal pellets [1/day]- GG-D
!-------------------------------------------------------------------------------
&bio_polynow_nml
numc= 10
p_initial= 0.012
z_initial= 0.012
b_initial= 0.001
dph_initial= 0.012
dzo_initial= 0.012
fp_initial= 0.012
msn_initial= 0.012
l_initial= 0.1
p0= 0.0001
z0= 0.0001
b0= 0.0001
mu5= 0.1
vp= 0.3
alpha= 0.04
inib= 0.06
kc= 0.03
k1= 1.0
k2= 0.8
mu1= 0.05
k5= 0.2
gamma= 0.0
capt= 0.0
sp_mort= 0.0
sp_mort2= 0.0
w_p= 0.5
stip= 0.0
stidph= 0.0
gmax= 0.6
k3= 1.0
beta= 0.625
betamsn= 0.0
mu2= 0.3
k6= 0.2
delta= 0.0
epsi= 0.70
r1= 0.1
r2= 0.2
r3= 0.3
r4= 0.1
r5= 0.2
r6= 0.1
zingest= 0.0
eg= 0.0
stidzo= 0.0
stifp= 0.0
pmin= 0.7
w_zmax= 320
bertha= 0.05
parcrit= 10
vb= 0.
k4= 0.5
mu3= 0.03
eta= 0.0
mbac= 0.0
dphlossl= 0.0
dzolossl= 0.0
dzolossb= 0.0
fplossl= 0.0
fplossb= 0.0
w_d1= 0
w_d2= 0
w_d3= 0
w_d4= 0
mldon= 0.0
lmin= 0.0
coag_coef= .false.
betap= 0.0
betadph= 0.0
betadzo= 0.0
betafp= 0.0
/
src/extras/bio/Makefile
View file @ a5d329e7
......@@ -16,8 +16,9 @@ bio_sed.F90 \
bio_fasham.F90 \
bio_ismer.F90 \
bio_gsj.F90 \
bio_save.F90 \
bio_nocera.F90 \
bio_polynow.F90 \
bio_save.F90 \
bio_npzd4.F90 \
nitrate.F90 \
ammonium.F90 \
......@@ -34,6 +35,7 @@ ${LIB}(bio_ismer.o) \
${LIB}(bio_gsj.o) \
${LIB}(bio_fasham.o) \
${LIB}(bio_nocera.o) \
${LIB}(bio_polynow.o) \
${LIB}(bio_npzd4.o) \
${LIB}(bio_sed.o) \
${LIB}(bio_save.o) \
......
src/extras/bio/ammonium.F90
View file @ a5d329e7
......@@ -180,6 +180,11 @@
do i=1,nlev
amm(i) = cc(6,i)
end do
else if (bio_model.eq.9) then ! GG-A
do i=1,nlev
amm(i) = cc(6,i)
end do
end if
#endif
......
src/extras/bio/bio.F90
View file @ a5d329e7
......@@ -48,9 +48,13 @@
use bio_mab, only : init_bio_mab,init_var_mab,var_info_mab
use bio_mab, only : light_mab,surface_fluxes_mab,do_bio_mab
use bio_polynow, only : init_bio_polynow,init_var_polynow,var_info_polynow !GG-A
use bio_polynow, only : light_polynow,do_bio_polynow !GG-A
use output, only : out_fmt,write_results,ts
use util
!
! default: all is private.
private
......@@ -58,6 +62,9 @@
! !PUBLIC MEMBER FUNCTIONS:
public init_bio, set_env_bio, do_bio, get_bio_updates, clean_bio
logical, public :: bio_calc=.false.
! REALTYPE,public, dimension(:), allocatable :: eps_ !GG-T
!
! !REVISION HISTORY:!
! Original author(s): Hans Burchard & Karsten Bolding
......@@ -353,6 +360,17 @@
call var_info_npzd4()
case (10) ! The model for the north Water polynya - NPZD- Sedimentation GG-A
call init_bio_polynow(namlst,'bio_polynow.nml',unit)
call allocate_memory(nlev)
call init_var_polynow(nlev)
call var_info_polynow()
case default
stop "bio: no valid biomodel specified in bio.nml !"
end select
......@@ -448,9 +466,9 @@
! modules
!
! !INTERFACE:
subroutine set_env_bio(nlev,h_,t_,s_,nit_,amm_,hcb_,rho_,nuh_,rad_,wind_, &
subroutine set_env_bio(nlev,h_,t_,s_,nit_,amm_,hcb_,rho_,nuh_,rad_,wind_, &
I_0_,w_,w_adv_ctr_)
!
! !DESCRIPTION:
!
! !USES:
......@@ -471,6 +489,8 @@
REALTYPE, intent(in) :: I_0_
REALTYPE, optional, intent(in) :: w_(0:nlev)
integer, optional, intent(in) :: w_adv_ctr_
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
......@@ -494,6 +514,9 @@
if (present(w_)) w = w_
if (present(w_adv_ctr_)) w_adv_ctr = w_adv_ctr_
return
end subroutine set_env_bio
!EOC
......@@ -742,6 +765,10 @@
case (9)
call light_npzd4(nlev,bioshade_feedback)
call ode_solver(ode_method,numc,nlev,dt_eff,cc,do_bio_npzd4)
case (10)
call light_polynow(nlev,bioshade_feedback)
call ode_solver(ode_method,numc,nlev,dt_eff,cc,do_bio_polynow)
end select
end do
......@@ -820,6 +847,17 @@
if (allocated(var_units)) deallocate(var_units)
if (allocated(var_long)) deallocate(var_long)
!Stickiness
if (allocated(sti_2p)) deallocate(sti_2p)
if (allocated(sti_pdph)) deallocate(sti_pdph)
if (allocated(sti_pdzo)) deallocate(sti_pdzo)
if (allocated(sti_pfp)) deallocate(sti_pfp)
if (allocated(sti_2dph)) deallocate(sti_2dph)
if (allocated(sti_dphdzo)) deallocate(sti_dphdzo)
if (allocated(sti_dphfp)) deallocate(sti_dphfp)
if (allocated(sti_2dzo)) deallocate(sti_2dzo)
if (allocated(sti_dzofp)) deallocate(sti_dzofp)
if (allocated(sti_2fp)) deallocate(sti_2fp)
!DD
if (allocated(lumlim1)) deallocate(lumlim1)
if (allocated(nitlim1)) deallocate(nitlim1)
......@@ -829,6 +867,15 @@
if (allocated(ammlim2)) deallocate(ammlim2)
if (allocated(ppnet)) deallocate(ppnet)
if (allocated(flux_msn)) deallocate(flux_msn)
if (allocated(Flux_P)) deallocate(Flux_P)
if (allocated(Flux_D1)) deallocate(Flux_D1)
if (allocated(Flux_D2)) deallocate(Flux_D2)
if (allocated(Flux_D3)) deallocate(Flux_D3)
if (allocated(size_msnow)) deallocate(size_msnow)
if (allocated(w_msn_lev)) deallocate(w_msn_lev)
! The external provide arrays
if (allocated(h)) deallocate(h)
if (allocated(nuh)) deallocate(nuh)
......@@ -912,6 +959,29 @@
allocate(var_long(numc),stat=rc)
if (rc /= 0) stop 'init_bio(): Error allocating var_long)'
!Stickiness
allocate(sti_2p(0:nlev),stat=rc)
if (rc /= 0) STOP 'init_bio: Error allocating (sti_2p)'
allocate(sti_pdph(0:nlev),stat=rc)
if (rc /= 0) STOP 'init_bio: Error allocating (sti_pdph)'
allocate(sti_pdzo(0:nlev),stat=rc)
if (rc /= 0) STOP 'init_bio: Error allocating (sti_pdzo)'
allocate(sti_pfp(0:nlev),stat=rc)
if (rc /= 0) STOP 'init_bio: Error allocating (sti_pfp)'
allocate(sti_2dph(0:nlev),stat=rc)
if (rc /= 0) STOP 'init_bio: Error allocating (sti_2dph)'
allocate(sti_dphdzo(0:nlev),stat=rc)
if (rc /= 0) STOP 'init_bio: Error allocating (sti_dphdzo)'
allocate(sti_dphfp(0:nlev),stat=rc)
if (rc /= 0) STOP 'init_bio: Error allocating (sti_dphfp)'
allocate(sti_2dzo(0:nlev),stat=rc)
if (rc /= 0) STOP 'init_bio: Error allocating (sti_2dzo)'
allocate(sti_dzofp(0:nlev),stat=rc)
if (rc /= 0) STOP 'init_bio: Error allocating (sti_dzofp)'
allocate(sti_2fp(0:nlev),stat=rc)
if (rc /= 0) STOP 'init_bio: Error allocating (sti_2fp)'
!DD
allocate(lumlim1(0:nlev),stat=rc)
......@@ -935,6 +1005,28 @@
allocate(ppnet(0:nlev),stat=rc)
if (rc /= 0) stop 'init_bio(): Error allocating (ppnet)'
allocate(flux_msn(0:nlev),stat=rc)
if (rc /= 0) stop 'init_bio(): Error allocating (flux_msn)'
allocate(Flux_P(0:nlev),stat=rc)
if (rc /= 0) stop 'init_bio(): Error allocating (Flux_P)'
allocate(Flux_D1(0:nlev),stat=rc)
if (rc /= 0) stop 'init_bio(): Error allocating (Flux_D1)'
allocate(Flux_D2(0:nlev),stat=rc)
if (rc /= 0) stop 'init_bio(): Error allocating (Flux_D2)'
allocate(Flux_D3(0:nlev),stat=rc)
if (rc /= 0) stop 'init_bio(): Error allocating (Flux_D3)'
allocate(size_msnow(0:nlev),stat=rc)
if (rc /= 0) stop 'init_bio(): Error allocating (size_msnow)'
allocate(w_msn_lev(0:nlev),stat=rc)
if (rc /= 0) stop 'init_bio(): Error allocating (w_msn_lev)'
! The external provide arrays
allocate(h(0:nlev),stat=rc)
if (rc /= 0) stop 'init_bio(): Error allocating (h)'
......
src/extras/bio/bio_polynow.F90 0 → 100644
View file @ a5d329e7
!$id: bio_polynow.F90,v 1.11 2016-05-05 11:49:15 dd Exp $
#include"cppdefs.h"
!-----------------------------------------------------------------------
!BOP
!
! !MODULE: bio_fasham --- Fasham et al. biological model \label{sec:bio-fasham}
!
! !INTERFACE:
module bio_polynow
!
!----DESCRIPTION:--------------------------------------------------------------
! The model developed by Fashametal1990
! uses nitrogen as 'currency' according to the evidence that in
! most cases nitrogen is the limiting macronutrient. It consists of
! seven state variables: phytoplankton, zooplankton, bacteria,
! particulate organic matter (detritus), dissolved organic matter
! and the nutrients nitrate and ammonium.
! The structure of the biogeochemical model in XXX states variables
! bacteria (bac),
! phytoplankton (phy),
! detritus (det),
! zooplankton (zoo),
! labile dissolved
! organic nitrogen (don),
! ammonium (amm) and nitrate (nit)
! XXX
! The concentrations are in mmol N\m^-3,and all fluxes are conservative.
!---------------------------------------------------------------------------------
! !USES:
! default: all is private.
use bio_var ! S,T,zlev,rho
use output
use observations, only : aa,g2
use turbulence, only : eps
use meanflow, only : Rho_0
! use eqstate, only : eqstate1 ! In situ density in kg.m-3
private
!
! !PUBLIC MEMBER FUNCTIONS:
public init_bio_polynow, init_var_polynow, var_info_polynow, &
light_polynow, do_bio_polynow, end_bio_polynow
REALTYPE, public,parameter :: pi= 3.141592654
REALTYPE, public,parameter :: g= 9.80665 !m/s2
REALTYPE :: pres = 10.1325! gauge pressure (absolute pressure - 10.1325 bar)
REALTYPE,public ::gauss_p
!-----LOCAL VARIABLES:---------- from a namelist : bio_polynow.nml----------------------
REALTYPE :: dt_bio
REALTYPE :: splitfac_bio
REALTYPE :: depth_bio
!INITIAL and Minimum concentration for the variable
REALTYPE :: p_init_value=1.0
REALTYPE :: p_initial=0.01
REALTYPE :: z_p_gauss_init= 2.0
REALTYPE :: sigma_p=2.0
REALTYPE :: zoo_init_value=1.0
REALTYPE :: z_initial=0.01
REALTYPE :: z_zoo_gauss_init= 2.0
REALTYPE :: sigma_zoo=2.0
REALTYPE :: b_initial= 0.001
! Nitrate and ammonium are initialized within the GOTM observation module
! REALTYPE :: n_initial= 8.3
! REALTYPE :: a_initial= 0.22
!Classes de détritus et LDON
REALTYPE :: dph_init_value=1.0
REALTYPE :: dph_initial=0.01
REALTYPE :: z_dph_gauss_init= 2.0
REALTYPE :: sigma_dph=2.0
REALTYPE :: dzo_init_value=1.0
REALTYPE :: dzo_initial=0.01
REALTYPE :: z_dzo_gauss_init= 2.0
REALTYPE :: sigma_dzo=2.0
REALTYPE :: fp_init_value=1.0
REALTYPE :: fp_initial=0.01
REALTYPE :: z_fp_gauss_init= 2.0
REALTYPE :: sigma_fp=2.0
REALTYPE :: msn_init_value=1.0
REALTYPE :: msn_initial=0.01
REALTYPE :: z_msn_gauss_init= 2.0
REALTYPE :: sigma_msn=2.0
REALTYPE :: l_initial= 0.14
REALTYPE :: p0 = 0.0
REALTYPE :: z0 = 0.0
REALTYPE :: b0 = 0.0
REALTYPE :: mu5 = 0.02 !! GG-CHG1
!Phytoplankton
REALTYPE :: vp = 1.5
REALTYPE :: alpha = 0.065
REALTYPE :: inib = 0.05
REALTYPE, public :: kc = 0.03
REALTYPE :: k1 = 0.2
REALTYPE :: k2 = 0.8
REALTYPE :: mu1 = 0.05
REALTYPE :: k5 = 0.2
REALTYPE :: gamma = 0.05
REALTYPE :: txloss_p = 0.7 ! GG-D
REALTYPE :: txloss_dph = 0.05 ! GG-D
!Zooplankton
REALTYPE :: gmax = 1.0
REALTYPE :: k3 = 1.0
REALTYPE :: beta = 0.625
REALTYPE :: mu2 = 0.3
REALTYPE :: k6 = 0.2
REALTYPE :: delta = 0.1
REALTYPE :: epsi = 0.70
REALTYPE :: eg = 0.05 ! GG-D
REALTYPE :: r1 = 0.55
REALTYPE :: r2 = 0.4
REALTYPE :: r3 = 0.05 !dph GG-D
REALTYPE :: r4 = 0.05 !dzo GG-D
REALTYPE :: r5 = 0.05 !fp GG-D
REALTYPE :: r6 = 0.05 !msn GG-D
REALTYPE :: txloss_dzo = 0.05 ! GG-D
REALTYPE :: txloss_fp = 0.05 ! GG-D
! Vertical migration(From Ariadna Nocera)
!LOGICAL and integer doesn't work :: Migra_zoo=.true.
REALTYPE :: Migra_zoo= 1.0
REALTYPE :: pmin = 0.05
REALTYPE :: w_zmax = 100.0 !! GG-B
REALTYPE :: bertha = 0.05 !! GG-B
REALTYPE :: parcrit = 0.02 !! GG-B
!Bacterias
REALTYPE :: vb = 1.2
REALTYPE :: remi = 0.1
REALTYPE :: k4 = 0.5
REALTYPE :: mu3 = 0.15
REALTYPE :: eta = 0.0
REALTYPE :: mbac = 0.0 ! GG-D
REALTYPE ::dphlossb =0.4
REALTYPE :: dphlossl = 10.0 ! GG-D
REALTYPE :: dzolossl = 10.0 ! GG-D
REALTYPE :: dzolossb = 10.0 ! GG-D
REALTYPE :: fplossl = 10.0 ! GG-D
REALTYPE :: fplossb = 10.0 ! GG-D
REALTYPE :: msnlossb =0.6
!LDON
REALTYPE :: leak=0.1
REALTYPE :: mldon = 0.02 ! GG-D
REALTYPE :: lmin = 0.02 ! GG-D
!detritus/Settling
! LOGICAL :: Phys_w= .true.
REALTYPE :: size_w=0.0
REALTYPE :: Phys_w= 0.0
REALTYPE :: w_msnow= 0.0
REALTYPE :: w_p = -0.5
REALTYPE :: w_dph = -1.0 !!GG-C
REALTYPE :: w_dzo = -10.0 !!GG-C
REALTYPE :: w_fp = -100.0 !!GG-C
REALTYPE :: w_msn = -2.0 !!GG-C
REALTYPE :: rho_p = 0.02
REALTYPE :: rho_dph = 0.02
REALTYPE :: rho_dzo = 0.02
REALTYPE :: rho_fp = 0.02
REALTYPE :: rho_msn = 0.02
!Aggregation
! LOGICAL :: Coag_coef=.true.
REALTYPE :: Coag_coef=0.0 ! If true : utilisation of given parameters / False : utilisation of model calculate coefficient
! Coefficient de Kernel sans calcul via la physique
REALTYPE :: betap_p = 0.2
REALTYPE :: betap_dph= 1
REALTYPE :: betap_dzo= 1
REALTYPE :: betap_fp= 1
REALTYPE :: betadph_dph = 0.2
REALTYPE :: betadph_dzo= 1
REALTYPE :: betadph_fp= 1
REALTYPE :: betadzo_dzo = 0.02
REALTYPE :: betadzo_fp = 0.02
REALTYPE :: betafp_fp = 0.02
!Calcul de la collision avec la physique
REALTYPE :: sti_cst = 0.0
REALTYPE :: stip_p = -0.5
REALTYPE :: stip_dph = -0.5
REALTYPE :: stip_dzo = -0.5
REALTYPE :: stip_fp = -0.5
REALTYPE :: stidph_dph = -0.5
REALTYPE :: stidph_dzo = -0.5
REALTYPE :: stidph_fp = -0.5
REALTYPE :: stidzo_dzo = -0.5
REALTYPE :: stidzo_fp = -0.5
REALTYPE :: stifp_fp = -0.5
!Collision rate and Settling
REALTYPE :: CSF =1.0
REALTYPE :: size_rand = 1.0
REALTYPE :: size_phy_us = -0.5
REALTYPE :: size_phy_up = -0.5
REALTYPE :: size_dph_us = 0.00001
REALTYPE :: size_dph_up = 0.00001
REALTYPE :: size_dzo_us= 0.000100
REALTYPE :: size_dzo_up= 0.000100
REALTYPE :: size_fp_us= 0.000050
REALTYPE :: size_fp_up= 0.000050
REALTYPE :: size_msn = -0.5
REALTYPE :: dm_msn = 0.0
REALTYPE :: diam_msn_us = 0.01
REALTYPE :: litt_msn_w = 0.01
!Parametres pour l'aggregation physique
REALTYPE :: dynvis = -0.5
REALTYPE :: kinvis = -0.5
REALTYPE :: kB = -0.5
!Fragmentation - Concentration seuil d'agrégat avant qu'un pourcentage parte dans le dph
!logical :: Frag_meth=.true. !Utilisation de la physique ou pas pour la fragmentation
! integer :: Frag_meth=0.0
REALTYPE :: Frag_meth=0.0
REALTYPE :: swim_brk = 0.8
REALTYPE ::Floc_coef = 0.1
!Tests parameter
REALTYPE ::betaBr=1.0
REALTYPE ::betaSh =1.0
REALTYPE ::betaDs =1.0
REALTYPE ::eps_const =1.0
REALTYPE ::eps_n =1.0
REALTYPE ::cons_min= 0.00001
REALTYPE ::write_screen
REALTYPE ::coef1
REALTYPE ::coef2
REALTYPE ::RFV
REALTYPE ::coef3
REALTYPE ::coef4
REALTYPE ::coef5
REALTYPE ::cons_max
integer :: out_unit
! integer, parameter :: p=1,z=2,b=3,d1=4,n=5,a=6,l=7,d2=8,d3=9,d4=10,aug_si_d4=11,taille_msn=12