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
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
3e5d6e6b
Commit
3e5d6e6b
authored
Feb 24, 2011
by
dumoda01
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Ajout de la variable sigma = gross growth rate
parent
8aec5348
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
17 additions
and
12 deletions
+17
-12
src/extras/bio/bio_fasham.F90
src/extras/bio/bio_fasham.F90
+17
-12
No files found.
src/extras/bio/bio_fasham.F90
View file @
3e5d6e6b
...
@@ -116,11 +116,13 @@
...
@@ -116,11 +116,13 @@
REALTYPE
::
vp
=
1.5
REALTYPE
::
vp
=
1.5
REALTYPE
::
alpha
=
0.065
REALTYPE
::
alpha
=
0.065
!CHG1 Intensité optimale (I_opt))
!CHG1 Intensité optimale (I_opt))
REALTYPE
::
I_opt
=
10.0
REALTYPE
::
I_opt
=
10.0
!CHG1 Paramere d'inibition (inib)
!CHG1 Paramere d'inibition (inib)
REALTYPE
::
inib
=
0.05
REALTYPE
::
inib
=
0.05
!CHG2 Paramere de flottaison du phytoplancton
!CHG2 Paramere de flottaison du phytoplancton
REALTYPE
::
theta
=
1.e7
REALTYPE
::
theta
=
0.0
REALTYPE
::
w_pmin
=
-0.06
REALTYPE
::
w_pmax
=
-0.38
REALTYPE
::
k1
=
0.2
REALTYPE
::
k1
=
0.2
REALTYPE
::
k2
=
0.8
REALTYPE
::
k2
=
0.8
REALTYPE
::
mu1
=
0.05
REALTYPE
::
mu1
=
0.05
...
@@ -143,9 +145,9 @@
...
@@ -143,9 +145,9 @@
REALTYPE
::
eta
=
0.0
REALTYPE
::
eta
=
0.0
REALTYPE
::
mu4
=
0.02
REALTYPE
::
mu4
=
0.02
REALTYPE
::
w_d
=
-2.0
REALTYPE
::
w_d
=
-2.0
REALTYPE
,
public
::
kc
=
0.03
REALTYPE
,
public
::
kc
=
0.03
REALTYPE
::
aa
=
0.62
REALTYPE
::
aa
=
0.70
REALTYPE
::
g2
=
20
.0
REALTYPE
::
g2
=
14
.0
integer
::
out_unit
integer
::
out_unit
integer
,
parameter
::
p
=
1
,
z
=
2
,
b
=
3
,
d
=
4
,
n
=
5
,
a
=
6
,
l
=
7
integer
,
parameter
::
p
=
1
,
z
=
2
,
b
=
3
,
d
=
4
,
n
=
5
,
a
=
6
,
l
=
7
!EOP
!EOP
...
@@ -182,9 +184,9 @@
...
@@ -182,9 +184,9 @@
p_initial
,
z_initial
,
b_initial
,
d_initial
,
n_initial
,
&
p_initial
,
z_initial
,
b_initial
,
d_initial
,
n_initial
,
&
a_initial
,
l_initial
,
p0
,
z0
,
b0
,
vp
,
alpha
,
k1
,
k2
,
mu1
,
k5
,&
a_initial
,
l_initial
,
p0
,
z0
,
b0
,
vp
,
alpha
,
k1
,
k2
,
mu1
,
k5
,&
gamma
,
w_p
,
gmax
,
k3
,
beta
,
mu2
,
k6
,
delta
,
epsi
,
r1
,
r2
,
r3
,
&
gamma
,
w_p
,
gmax
,
k3
,
beta
,
mu2
,
k6
,
delta
,
epsi
,
r1
,
r2
,
r3
,
&
vb
,
k4
,
mu3
,
eta
,
mu4
,
w_d
,
kc
,
aa
,
g2
,
&
vb
,
k4
,
mu3
,
eta
,
mu4
,
w_d
,
kc
,
&
I_opt
,
inib
,
&
!CHG1
I_opt
,
inib
,
&
!CHG1
theta
!CHG2
theta
,
w_pmax
,
w_pmin
!CHG2
!EOP
!EOP
!-----------------------------------------------------------------------
!-----------------------------------------------------------------------
!BOC
!BOC
...
@@ -512,7 +514,7 @@
...
@@ -512,7 +514,7 @@
! Original author(s): Hans Burchard, Karsten Bolding
! Original author(s): Hans Burchard, Karsten Bolding
!
!
! !LOCAL VARIABLES:
! !LOCAL VARIABLES:
REALTYPE
::
ff
,
fac
,
fac2
,
min67
REALTYPE
::
ff
,
fac
,
fac2
,
min67
,
sigma
REALTYPE
::
Ps
!CHG1
REALTYPE
::
Ps
!CHG1
integer
::
i
,
j
,
ci
integer
::
i
,
j
,
ci
!EOP
!EOP
...
@@ -539,13 +541,16 @@
...
@@ -539,13 +541,16 @@
! ff= vp*((par(ci)/I_opt)*exp(1-(par(ci)/I_opt)))**2
! ff= vp*((par(ci)/I_opt)*exp(1-(par(ci)/I_opt)))**2
! Platt et al. (1980) - inhibition
! Platt et al. (1980) - inhibition
Ps
=
vp
/((
alpha
/(
alpha
+
inib
))
*
(
alpha
/(
alpha
+
inib
))
**
(
inib
/
alpha
))
Ps
=
vp
/((
alpha
/(
alpha
+
inib
))
*
(
alpha
/(
alpha
+
inib
))
**
(
inib
/
alpha
))
ff
=
Ps
*
(
1
-
exp
(
-1
*
alpha
*
par
(
ci
)/
Ps
))
*
exp
(
-1
*
inib
*
par
(
ci
)/
Ps
)
ff
=
Ps
*
(
1
.
-
exp
(
-1.
*
alpha
*
par
(
ci
)/
Ps
))
*
exp
(
-1.
*
inib
*
par
(
ci
)/
Ps
)
! --------------------------------------------------------------------
! --------------------------------------------------------------------
fac
=
(
cc
(
z
,
ci
)
+
z0
)/(
k3
*
(
r1
*
cc
(
p
,
ci
)
+
r2
*
cc
(
b
,
ci
)
+
r3
*
cc
(
d
,
ci
))
+
&
fac
=
(
cc
(
z
,
ci
)
+
z0
)/(
k3
*
(
r1
*
cc
(
p
,
ci
)
+
r2
*
cc
(
b
,
ci
)
+
r3
*
cc
(
d
,
ci
))
+
&
r1
*
cc
(
p
,
ci
)
**
2
+
r2
*
cc
(
b
,
ci
)
**
2
+
r3
*
cc
(
d
,
ci
)
**
2
)
r1
*
cc
(
p
,
ci
)
**
2
+
r2
*
cc
(
b
,
ci
)
**
2
+
r3
*
cc
(
d
,
ci
)
**
2
)
min67
=
min
(
cc
(
a
,
ci
),
eta
*
cc
(
l
,
ci
))
min67
=
min
(
cc
(
a
,
ci
),
eta
*
cc
(
l
,
ci
))
! Gross growth rate / Taux de croissance brut (Kunh and Radach 1997)
sigma
=
ff
*
(
cc
(
n
,
ci
)/
k1
+
cc
(
a
,
ci
)/
k2
)/(
1.
+
cc
(
n
,
ci
)/
k1
+
cc
(
a
,
ci
)/
k2
)
dd
(
p
,
d
,
ci
)
=
mu1
*
(
cc
(
p
,
ci
)
+
p0
)/(
k5
+
cc
(
p
,
ci
)
+
p0
)
*
cc
(
p
,
ci
)
&
dd
(
p
,
d
,
ci
)
=
mu1
*
(
cc
(
p
,
ci
)
+
p0
)/(
k5
+
cc
(
p
,
ci
)
+
p0
)
*
cc
(
p
,
ci
)
&
+
(
1.
-
beta
)
*
gmax
*
r1
*
cc
(
p
,
ci
)
**
2
*
fac
+
(
1.
-
beta
)
*
gmax
*
r1
*
cc
(
p
,
ci
)
**
2
*
fac
dd
(
p
,
l
,
ci
)
=
gamma
*
ff
*
(
cc
(
n
,
ci
)/
k1
+
cc
(
a
,
ci
)/
k2
)/
&
dd
(
p
,
l
,
ci
)
=
gamma
*
ff
*
(
cc
(
n
,
ci
)/
k1
+
cc
(
a
,
ci
)/
k2
)/
&
...
@@ -564,9 +569,9 @@
...
@@ -564,9 +569,9 @@
dd
(
a
,
b
,
ci
)
=
vb
*
min67
/(
k4
+
min67
+
cc
(
l
,
ci
))
*
(
cc
(
b
,
ci
)
+
b0
)
dd
(
a
,
b
,
ci
)
=
vb
*
min67
/(
k4
+
min67
+
cc
(
l
,
ci
))
*
(
cc
(
b
,
ci
)
+
b0
)
dd
(
l
,
b
,
ci
)
=
vb
*
cc
(
l
,
ci
)/(
k4
+
min67
+
cc
(
l
,
ci
))
*
(
cc
(
b
,
ci
)
+
b0
)
dd
(
l
,
b
,
ci
)
=
vb
*
cc
(
l
,
ci
)/(
k4
+
min67
+
cc
(
l
,
ci
))
*
(
cc
(
b
,
ci
)
+
b0
)
!
Update de la vitesse de chute du phytoplancton en fonction de dd(n,p,ci) et dd(a,p,ci)
!
Taux de chute du phytoplancton en fonction de la croissance
ws
(
p
,
ci
)
=
w_p
*
exp
(
-
theta
*
(
dd
(
n
,
p
,
ci
)
+
dd
(
a
,
p
,
ci
))/(
cc
(
n
,
ci
)
+
p0
))
!CHG2
! ws(p,ci)=w_pmin+(w_pmax-w_pmin)*exp(-theta*sigma)
!
ws(p,ci)=w_p
ws
(
p
,
ci
)
=
w_p
do
i
=
1
,
numc
do
i
=
1
,
numc
do
j
=
1
,
numc
do
j
=
1
,
numc
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment