Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Open sidebar
Knut Klingbeil
getm
Commits
137c9115
Commit
137c9115
authored
Jun 06, 2018
by
Knut
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
calculate ip-gradients with respect to old positions if MUDFLAT
parent
179586ba
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
2 deletions
+7
-2
src/3d/internal_pressure.F90
src/3d/internal_pressure.F90
+6
-1
src/3d/ip_shchepetkin_mcwilliams.F90
src/3d/ip_shchepetkin_mcwilliams.F90
+1
-1
No files found.
src/3d/internal_pressure.F90
View file @
137c9115
...
...
@@ -67,7 +67,12 @@
#else
use
domain
,
only
:
dx
,
dy
#endif
use
variables_3d
,
only
:
kmin
,
hn
,
hun
,
hvn
,
idpdx
,
idpdy
,
buoy
,
ssun
,
ssvn
,
ssen
use
variables_3d
,
only
:
kmin
,
hun
,
hvn
,
idpdx
,
idpdy
,
buoy
,
ssun
,
ssvn
,
ssen
#ifdef MUDFLAT
use
variables_3d
,
only
:
hn
=>
ho
#else
use
variables_3d
,
only
:
hn
#endif
IMPLICIT
NONE
!
! !PUBLIC DATA MEMBERS:
...
...
src/3d/ip_shchepetkin_mcwilliams.F90
View file @
137c9115
...
...
@@ -38,7 +38,7 @@
!
! !USES:
use
internal_pressure
use
variables_3d
,
only
:
hn
,
buoy
,
sseo
use
variables_3d
,
only
:
buoy
,
sseo
use
domain
,
only
:
H
,
az
,
au
,
av
!$ use omp_lib
IMPLICIT
NONE
...
...
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