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
ce92a3fc
Commit
ce92a3fc
authored
May 25, 2018
by
Knut
Browse files
Options
Browse Files
Download
Plain Diff
Merge remote-tracking branch 'origin/master' into output
parents
f3e7dcd3
179586ba
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
12 additions
and
4 deletions
+12
-4
src/3d/variables_3d.F90
src/3d/variables_3d.F90
+4
-0
src/getm/initialise.F90
src/getm/initialise.F90
+4
-1
src/getm/main.F90
src/getm/main.F90
+4
-3
No files found.
src/3d/variables_3d.F90
View file @
ce92a3fc
...
...
@@ -217,6 +217,10 @@
idpdy
=
_
ZERO_
#endif
! must be nonzero for gotm_fabm in case of calc_temp=F
g1
=
-9999
*
_
ONE_
g2
=
-9999
*
_
ONE_
#ifdef DEBUG
write
(
debug
,
*
)
'Leaving init_variables_3d()'
write
(
debug
,
*
)
...
...
src/getm/initialise.F90
View file @
ce92a3fc
...
...
@@ -206,7 +206,10 @@
STDERR
LINE
STDERR
'getm: Started on '
,
dstr
,
' '
,
tstr
STDERR
LINE
call
print_version
()
call
compilation_options
()
STDERR
'Initialising....'
STDERR
LINE
LEVEL1
'the run id is: '
,
trim
(
runid
)
...
...
src/getm/main.F90
View file @
ce92a3fc
...
...
@@ -48,8 +48,6 @@
!-----------------------------------------------------------------------
!BOC
call
cmdline
call
print_version
()
call
compilation_options
()
#ifdef FORTRAN95
call
CPU_Time
(
t1
)
...
...
@@ -110,7 +108,7 @@
LEVEL1
'under the General Public License (GPL) - http://www.gnu.org '
STDERR
LINE
call
compilation_options
!
call compilation_options
end
program
getm
...
...
@@ -266,6 +264,9 @@
#ifdef MIN_VEL_DEPTH
LEVEL1
'MIN_VEL_DEPTH'
#endif
#ifdef MUDFLAT
LEVEL1
'MUDFLAT'
#endif
#ifdef NEW_SS
LEVEL1
'NEW_SS'
#endif
...
...
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