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
4b1909c7
Commit
4b1909c7
authored
Jul 11, 2018
by
Knut
Browse files
Options
Browse Files
Download
Plain Diff
Merge remote-tracking branch 'origin/master' into output
parents
29f68cdc
4418118e
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
175 additions
and
154 deletions
+175
-154
src/CMakeLists.txt
src/CMakeLists.txt
+1
-0
src/getm/Makefile
src/getm/Makefile
+2
-1
src/getm/compilation_options.F90
src/getm/compilation_options.F90
+172
-0
src/getm/main.F90
src/getm/main.F90
+0
-153
No files found.
src/CMakeLists.txt
View file @
4b1909c7
...
...
@@ -285,6 +285,7 @@ endif()
add_library
(
getm OBJECT
getm/cleanup.F90
getm/compilation_options.F90
getm/initialise.F90
getm/integration.F90
getm/register_all_variables.F90
...
...
src/getm/Makefile
View file @
4b1909c7
...
...
@@ -7,7 +7,7 @@ include ../Rules.make
LIB
=
$(LIBDIR)
/libgetm
${buildtype}
.a
SRC
=
main.F90 initialise.F90 integration.F90 cleanup.F90
\
print_version.F90
compilation_options.F90
print_version.F90
MOD
=
\
${LIB}
(
register_all_variables.o
)
\
...
...
@@ -16,6 +16,7 @@ ${LIB}(initialise.o)
OBJ
=
\
${LIB}
(
cleanup.o
)
\
${LIB}
(
compilation_options.o
)
\
${LIB}
(
print_version.o
)
all
:
modules objects
...
...
src/getm/compilation_options.F90
0 → 100644
View file @
4b1909c7
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
!
! !ROUTINE: compilation_options() -
!
! !INTERFACE:
subroutine
compilation_options
()
!
! !DESCRIPTION:
!
! !USES:
IMPLICIT
NONE
!
!EOP
!-----------------------------------------------------------------------
!BOC
#ifdef GETM_PARALLEL
LEVEL1
'Compiled for parallel execution'
#else
LEVEL1
'Compiled for serial execution'
#endif
#ifdef GETM_OMP
LEVEL1
' with OpenMP thread capability'
#else
LEVEL1
' without OpenMP thread capability'
#endif
!
#ifdef SLICE_MODEL
LEVEL1
'SLICE_MODEL'
#endif
#ifdef NO_3D
LEVEL1
'NO_3D'
#endif
#ifdef NO_BAROCLINIC
LEVEL1
'NO_BAROCLINIC'
#endif
!
#ifdef FORTRAN90
LEVEL1
'Fortran 90 compilation'
#endif
!
#ifdef FORTRAN95
LEVEL1
'Fortran 95 compilation'
#endif
!
#ifdef PRODUCTION
LEVEL1
'Production compilation'
#endif
!
#ifdef PROFILING
LEVEL1
'Profiling is enabled'
#endif
!
#ifdef DEBUG
LEVEL1
'Debugging enabled'
#endif
!
#ifdef STATIC
LEVEL1
'Using STATIC memory allocation'
#else
LEVEL1
'Using DYNAMIC memory allocation'
#endif
!
#ifdef SINGLE
LEVEL1
'Using single precision'
#else
LEVEL1
'Using double precision'
#endif
!
! Various tests
#ifdef CARTESIAN
LEVEL1
'CARTESIAN'
#endif
#ifdef SPHERICAL
LEVEL1
'SPHERICAL'
#endif
#ifdef CURVILINEAR
LEVEL1
'CURVILINEAR'
#endif
#ifdef TURB_ADV
LEVEL1
'TURB_ADV'
#endif
#ifdef NO_BOTTFRIC
LEVEL1
'NO_BOTTFRIC'
#endif
#ifdef NO_ADVECT
LEVEL1
'NO_ADVECT'
#endif
#ifdef NO_SLR
LEVEL1
'NO_SLR'
#endif
#ifdef CONSTANT_VISCOSITY
LEVEL1
'CONSTANT_VISCOSITY'
#endif
#ifdef PARABOLIC_VISCOSITY
LEVEL1
'PARABOLIC_VISCOSITY'
#endif
#ifdef MIN_VEL_DEPTH
LEVEL1
'MIN_VEL_DEPTH'
#endif
#ifdef MUDFLAT
LEVEL1
'MUDFLAT'
#endif
#ifdef NEW_SS
LEVEL1
'NEW_SS'
#endif
#ifdef SMOOTH_BVF_HORI
LEVEL1
'SMOOTH_BVF_HORI'
#endif
#ifdef _SMOOTH_BVF_VERT_
LEVEL1
'_SMOOTH_BVF_VERT_'
#endif
#ifdef NONNEGSALT
LEVEL1
'NONNEGSALT'
#endif
#ifdef USE_BREAKS
LEVEL1
'USE_BREAKS'
#endif
#ifdef PRESS_GRAD_Z
LEVEL1
'PRESS_GRAD_Z'
#endif
#ifdef ITERATE_VERT_ADV
LEVEL1
'ITERATE_VERT_ADV'
#endif
#ifdef SUBSTR_INI_PRESS
LEVEL1
'SUBSTR_INI_PRESS'
#endif
#ifdef SONG_WRIGHT
LEVEL1
'SONG_WRIGHT'
#endif
#ifdef NO_TIMERS
LEVEL1
'NO_TIMERS'
#endif
#ifdef OLD_WRONG_FLUXES
LEVEL1
'OLD_WRONG_FLUXES'
#endif
#ifdef _WRITE_HALOS_
LEVEL1
'_WRITE_HALOS_'
#endif
#ifdef _WRITE_HOT_HALOS_
LEVEL1
'_WRITE_HOT_HALOS_'
#endif
#ifdef _READ_HOT_HALOS_
LEVEL1
'_READ_HOT_HALOS_'
#endif
#ifdef GETM_BIO
LEVEL1
'GETM_BIO'
#endif
#ifdef _FABM_
LEVEL1
'_FABM_'
#endif
#ifdef _POINTER_REMAP_
LEVEL1
'_POINTER_REMAP_'
#endif
#ifdef _NCDF_SAVE_DOUBLE_
LEVEL1
'_NCDF_SAVE_DOUBLE_'
#endif
STDERR
LINE
return
end
subroutine
compilation_options
!EOC
!-----------------------------------------------------------------------
! Copyright (C) 2018 - Knut Klingbeil (IOW) !
!-----------------------------------------------------------------------
src/getm/main.F90
View file @
4b1909c7
...
...
@@ -174,159 +174,6 @@
print
'(a)'
,
''
end
subroutine
print_help
!-----------------------------------------------------------------------
subroutine
compilation_options
IMPLICIT
NONE
!
#ifdef GETM_PARALLEL
LEVEL1
'Compiled for parallel execution'
#else
LEVEL1
'Compiled for serial execution'
#endif
#ifdef GETM_OMP
LEVEL1
' with OpenMP thread capability'
#else
LEVEL1
' without OpenMP thread capability'
#endif
!
#ifdef SLICE_MODEL
LEVEL1
'SLICE_MODEL'
#endif
#ifdef NO_3D
LEVEL1
'NO_3D'
#endif
#ifdef NO_BAROCLINIC
LEVEL1
'NO_BAROCLINIC'
#endif
!
#ifdef FORTRAN90
LEVEL1
'Fortran 90 compilation'
#endif
!
#ifdef FORTRAN95
LEVEL1
'Fortran 95 compilation'
#endif
!
#ifdef PRODUCTION
LEVEL1
'Production compilation'
#endif
!
#ifdef PROFILING
LEVEL1
'Profiling is enabled'
#endif
!
#ifdef DEBUG
LEVEL1
'Debugging enabled'
#endif
!
#ifdef STATIC
LEVEL1
'Using STATIC memory allocation'
#else
LEVEL1
'Using DYNAMIC memory allocation'
#endif
!
#ifdef SINGLE
LEVEL1
'Using single precision'
#else
LEVEL1
'Using double precision'
#endif
!
! Various tests
#ifdef CARTESIAN
LEVEL1
'CARTESIAN'
#endif
#ifdef SPHERICAL
LEVEL1
'SPHERICAL'
#endif
#ifdef CURVILINEAR
LEVEL1
'CURVILINEAR'
#endif
#ifdef TURB_ADV
LEVEL1
'TURB_ADV'
#endif
#ifdef NO_BOTTFRIC
LEVEL1
'NO_BOTTFRIC'
#endif
#ifdef NO_ADVECT
LEVEL1
'NO_ADVECT'
#endif
#ifdef NO_SLR
LEVEL1
'NO_SLR'
#endif
#ifdef CONSTANT_VISCOSITY
LEVEL1
'CONSTANT_VISCOSITY'
#endif
#ifdef PARABOLIC_VISCOSITY
LEVEL1
'PARABOLIC_VISCOSITY'
#endif
#ifdef MIN_VEL_DEPTH
LEVEL1
'MIN_VEL_DEPTH'
#endif
#ifdef MUDFLAT
LEVEL1
'MUDFLAT'
#endif
#ifdef NEW_SS
LEVEL1
'NEW_SS'
#endif
#ifdef SMOOTH_BVF_HORI
LEVEL1
'SMOOTH_BVF_HORI'
#endif
#ifdef _SMOOTH_BVF_VERT_
LEVEL1
'_SMOOTH_BVF_VERT_'
#endif
#ifdef NONNEGSALT
LEVEL1
'NONNEGSALT'
#endif
#ifdef USE_BREAKS
LEVEL1
'USE_BREAKS'
#endif
#ifdef PRESS_GRAD_Z
LEVEL1
'PRESS_GRAD_Z'
#endif
#ifdef ITERATE_VERT_ADV
LEVEL1
'ITERATE_VERT_ADV'
#endif
#ifdef SUBSTR_INI_PRESS
LEVEL1
'SUBSTR_INI_PRESS'
#endif
#ifdef SONG_WRIGHT
LEVEL1
'SONG_WRIGHT'
#endif
#ifdef NO_TIMERS
LEVEL1
'NO_TIMERS'
#endif
#ifdef OLD_WRONG_FLUXES
LEVEL1
'OLD_WRONG_FLUXES'
#endif
#ifdef _WRITE_HALOS_
LEVEL1
'_WRITE_HALOS_'
#endif
#ifdef _WRITE_HOT_HALOS_
LEVEL1
'_WRITE_HOT_HALOS_'
#endif
#ifdef _READ_HOT_HALOS_
LEVEL1
'_READ_HOT_HALOS_'
#endif
#ifdef GETM_BIO
LEVEL1
'GETM_BIO'
#endif
#ifdef _FABM_
LEVEL1
'_FABM_'
#endif
#ifdef _POINTER_REMAP_
LEVEL1
'_POINTER_REMAP_'
#endif
#ifdef _NCDF_SAVE_DOUBLE_
LEVEL1
'_NCDF_SAVE_DOUBLE_'
#endif
STDERR
LINE
return
end
!-----------------------------------------------------------------------
! Copyright (C) 2001 - Hans Burchard and Karsten Bolding !
!-----------------------------------------------------------------------
...
...
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