Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
Gyacomo
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package Registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Antoine Cyril David Hoffmann
Gyacomo
Commits
e361dc68
Commit
e361dc68
authored
1 year ago
by
Antoine Cyril David Hoffmann
Browse files
Options
Downloads
Patches
Plain Diff
removing unused src file
parent
9eb97515
No related branches found
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
src/compute_gradients.F90
+0
-28
0 additions, 28 deletions
src/compute_gradients.F90
with
0 additions
and
28 deletions
src/compute_gradients.F90
deleted
100644 → 0
+
0
−
28
View file @
9eb97515
SUBROUTINE
compute_gradients
! This routine compute the gradients of the moments without copying or slices.
! It should be faster than using a routine taking a slice as argument (see
! calculus_mod) since it avoid copying.
USE
fields
,
ONLY
:
moments
USE
grid
,
ONLY
:
local_nz
,
ngz
,
inv_deltaz
USE
prec_const
,
ONLY
:
dp
IMPLICIT
NONE
REAL
(
dp
),
dimension
(
-2
:
2
)
::
dz_usu
=
&
(/
1._dp
/
12._dp
,
-2._dp
/
3._dp
,
0._dp
,
2._dp
/
3._dp
,
-1._dp
/
12._dp
/)
! fd4 centered stencil
REAL
(
dp
),
dimension
(
-2
:
1
)
::
dz_o2e
=
&
(/
1._dp
/
24._dp
,
-9._dp
/
8._dp
,
9._dp
/
8._dp
,
-1._dp
/
24._dp
/)
! fd4 odd to even stencil
REAL
(
dp
),
dimension
(
-1
:
2
)
::
dz_e2o
=
&
(/
1._dp
/
24._dp
,
-9._dp
/
8._dp
,
9._dp
/
8._dp
,
-1._dp
/
24._dp
/)
! fd4 odd to even stencil
REAL
(
dp
),
dimension
(
-2
:
2
)
::
dz2_usu
=
&
(/
-1._dp
/
12._dp
,
4._dp
/
3._dp
,
-5._dp
/
2._dp
,
4._dp
/
3._dp
,
-1._dp
/
12._dp
/)
! 2th derivative, 4th order (for parallel hypdiff)
REAL
(
dp
),
dimension
(
-2
:
2
)
::
dz4_usu
=
&
(/
1._dp
,
-4._dp
,
6._dp
,
-4._dp
,
1._dp
/)
! 4th derivative, 2nd order (for parallel hypdiff)
REAL
(
dp
),
dimension
(
-2
:
1
)
::
iz_o2e
=
&
(/
-1._dp
/
16._dp
,
9._dp
/
16._dp
,
9._dp
/
16._dp
,
-1._dp
/
16._dp
/)
! grid interpolation, 4th order, odd to even
REAL
(
dp
),
dimension
(
-1
:
2
)
::
iz_e2o
=
&
(/
-1._dp
/
16._dp
,
9._dp
/
16._dp
,
9._dp
/
16._dp
,
-1._dp
/
16._dp
/)
! grid interpolation, 4th order, even to odd
PUBLIC
::
simpson_rule_z
,
interp_z
,
grad_z
,
grad_z4
IMPLICIT
NONE
END
SUBROUTINE
compute_gradients
\ No newline at end of file
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment