Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
G
gotm_ismer
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
2
Issues
2
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Dany Dumont
gotm_ismer
Commits
a5d329e7
Commit
a5d329e7
authored
Oct 03, 2018
by
Dany Dumont
Browse files
Options
Browse Files
Download
Plain Diff
Merge branch 'snow' of gitlasso.uqar.ca:dumoda01/gotm_ismer
parents
11b18235
c946efdb
Changes
9
Hide whitespace changes
Inline
Side-by-side
Showing
9 changed files
with
3809 additions
and
11 deletions
+3809
-11
nml/bio_polynow.nml
nml/bio_polynow.nml
+152
-0
src/extras/bio/Makefile
src/extras/bio/Makefile
+3
-1
src/extras/bio/ammonium.F90
src/extras/bio/ammonium.F90
+5
-0
src/extras/bio/bio.F90
src/extras/bio/bio.F90
+94
-2
src/extras/bio/bio_polynow.F90
src/extras/bio/bio_polynow.F90
+3315
-0
src/extras/bio/bio_save.F90
src/extras/bio/bio_save.F90
+181
-6
src/extras/bio/bio_var.F90
src/extras/bio/bio_var.F90
+36
-1
src/extras/bio/nitrate.F90
src/extras/bio/nitrate.F90
+4
-0
src/observations/observations.F90
src/observations/observations.F90
+19
-1
No files found.
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
! GG d1= dph , d2= dzo , d3= fp , d4 = msn, aug_si_d4= size_msn