Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mossco
mossco-fabm
Commits
97344b14
Commit
97344b14
authored
Oct 06, 2017
by
Onur.Kerimoglu
Browse files
maecs: register Rub and chl even when acclimation is off
parent
725175f2
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/models/hzg/maecs/maecs.F90
View file @
97344b14
...
...
@@ -668,17 +668,17 @@ call self%register_state_variable(self%id_domN, 'domN','mmol-N/m**3','Dissolved
domN_initial
,
minimum
=
_
ZERO_
,
no_river_dilution
=
.false.
)
call
self
%
add_to_aggregate_variable
(
standard_variables
%
total_nitrogen
,
self
%
id_domN
)
if
(
self
%
RubiscoOn
)
then
!
if (self%RubiscoOn) then
Rub
=
frac_Rub_ini
*
phyC_initial
! trait times biomass
call
self
%
register_state_variable
(
self
%
id_Rub
,
'Rub'
,
'-'
,
'fraction of Rubisco Rub'
,
&
Rub
,
minimum
=
_
ZERO_
,
no_river_dilution
=
plankton_no_river_dilution
)
end
if
!
end if
if
(
self
%
PhotoacclimOn
)
then
!
if (self%PhotoacclimOn) then
chl
=
frac_chl_ini
*
phyC_initial
! trait times biomass
call
self
%
register_state_variable
(
self
%
id_chl
,
'chl'
,
'mg-Chl/m**3'
,
'Chl chl'
,
&
chl
,
minimum
=
_
ZERO_
,
no_river_dilution
=
plankton_no_river_dilution
)
end
if
!
end if
if
(
self
%
PhosphorusOn
)
then
call
self
%
register_state_variable
(
self
%
id_nutP
,
'nutP'
,
'mmol-P/m**3'
,
'Dissolved Inorganic Phosphorus DIP nutP'
,
&
...
...
src/models/hzg/maecs/maecs_do.F90
View file @
97344b14
...
...
@@ -681,9 +681,13 @@ end if !IsCritical
_
SET_ODE_
(
self
%
id_domN
,
rhsv
%
domN
UNIT
)
if
(
self
%
RubiscoOn
)
then
_
SET_ODE_
(
self
%
id_Rub
,
rhsv
%
Rub
UNIT
)
else
_
SET_ODE_
(
self
%
id_Rub
,
0
)
end
if
if
(
self
%
PhotoacclimOn
)
then
_
SET_ODE_
(
self
%
id_chl
,
rhsv
%
chl
UNIT
)
else
_
SET_ODE_
(
self
%
id_chl
,
0
)
end
if
if
(
self
%
PhosphorusOn
)
then
_
SET_ODE_
(
self
%
id_nutP
,
rhsv
%
nutP
UNIT
)
...
...
Write
Preview
Supports
Markdown
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