Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
N
Nemo
Manage
Activity
Members
Labels
Plan
Issues
92
Issue boards
Milestones
Iterations
Wiki
Requirements
Code
Merge requests
36
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Locked files
Build
Pipelines
Jobs
Pipeline schedules
Test cases
Artifacts
Deploy
Releases
Model registry
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Code review analytics
Issue analytics
Insights
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
NEMO Workspace
Nemo
Merge requests
!599
Resolve "remove lk_RK3"
Code
Review changes
Check out branch
Download
Patches
Plain diff
Merged
Resolve "remove lk_RK3"
474-remove-lk_rk3
into
main
Overview
0
Commits
1
Pipelines
0
Changes
3
Merged
Sebastien Masson
requested to merge
474-remove-lk_rk3
into
main
8 months ago
Overview
0
Commits
1
Pipelines
0
Changes
3
Expand
Closes
#474 (closed)
0
0
Merge request reports
Compare
main
main (base)
and
latest version
latest version
e1ce61a9
1 commit,
8 months ago
3 files
+
6
−
14
Inline
Compare changes
Side-by-side
Inline
Show whitespace changes
Show one file at a time
Files
3
Search (e.g. *.vue) (Ctrl+P)
src/OCE/DOM/dom_oce.F90
+
0
−
6
Options
@@ -40,7 +40,6 @@ MODULE dom_oce
LOGICAL
,
PUBLIC
::
ln_c1d
!: =T single column domain (1x1 pt)
LOGICAL
,
PUBLIC
::
ln_shuman
!: =T shuman averaging (RK3 only)
LOGICAL
,
PUBLIC
,
PARAMETER
::
lk_RK3
=
.TRUE.
!: RK3 key flag
! !** time level indices **!
INTEGER
,
PUBLIC
::
Nbb
,
Nnn
,
Naa
,
Nrhs
!: used by nemo_init
@@ -344,11 +343,6 @@ CONTAINS
IF
(
lk_qco
)
THEN
!* qco only : time variation factor (ssh/h ratio)
ii
=
ii
+1
ALLOCATE
(
r3t
(
jpi
,
jpj
,
jpt
)
,
r3u
(
jpi
,
jpj
,
jpt
)
,
r3v
(
jpi
,
jpj
,
jpt
)
,
r3f
(
jpi
,
jpj
)
,
STAT
=
ierr
(
ii
)
)
!
IF
(
.NOT.
lk_RK3
)
THEN
! + MLF : Asselin filter applied to r3. at f-point
ii
=
ii
+1
ALLOCATE
(
r3t_f
(
jpi
,
jpj
)
,
r3u_f
(
jpi
,
jpj
)
,
r3v_f
(
jpi
,
jpj
)
,
STAT
=
ierr
(
ii
)
)
ENDIF
ENDIF
!
ii
=
ii
+1
Loading