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
f8ff861a
Commit
f8ff861a
authored
May 17, 2011
by
dumoda01
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Initialisation de ammonium a partir de obs.nml au lieu de bio_fasham.nml
parent
a9ed8aaf
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
5 deletions
+5
-5
src/extras/bio/bio_fasham.F90
src/extras/bio/bio_fasham.F90
+2
-2
src/observations/observations.F90
src/observations/observations.F90
+3
-3
No files found.
src/extras/bio/bio_fasham.F90
View file @
f8ff861a
...
...
@@ -299,8 +299,8 @@
! cc(n,i)=n_initial
! cc(n,i)=nit(i) !CHG3
cc
(
n
,
i
)
=
nprof
(
i
)
!CHG3
!
cc(n,i)=aprof(i) !CHG5
cc
(
a
,
i
)
=
a_initial
!CHG5
cc
(
n
,
i
)
=
aprof
(
i
)
!CHG5
!
cc(a,i)=a_initial !CHG5
cc
(
l
,
i
)
=
l_initial
end
do
...
...
src/observations/observations.F90
View file @
f8ff861a
...
...
@@ -44,10 +44,10 @@
REALTYPE
,
public
,
dimension
(:),
allocatable
::
tprof
! 'observed' nitrate profile
REALTYPE
,
public
,
dimension
(:),
allocatable
::
nprof
,
aprof
!CHG3
REALTYPE
,
public
,
dimension
(:),
allocatable
::
nprof
!CHG3
! 'observed' ammonium profile
!
REALTYPE, public, dimension(:), allocatable :: aprof !CHG5
REALTYPE
,
public
,
dimension
(:),
allocatable
::
aprof
!CHG5
! 'observed' oxygen profile
REALTYPE
,
public
,
dimension
(:),
allocatable
::
o2_prof
...
...
@@ -504,7 +504,7 @@
NRelaxTau
=
0.
allocate
(
ARelaxTau
(
0
:
nlev
),
stat
=
rc
)
!CHG5
if
(
rc
/
=
0
)
STOP
'init_observations: Error allocating (
N
RelaxTau)'
if
(
rc
/
=
0
)
STOP
'init_observations: Error allocating (
A
RelaxTau)'
ARelaxTau
=
0.
allocate
(
uprof
(
0
:
nlev
),
stat
=
rc
)
...
...
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