fesom2/src/info_module.F90 at main · FESOM/fesom2 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
module info_module
! synopsis: query information from FESOM

  implicit none
  public info
  private

  type :: info_type
  contains
    procedure, nopass :: print_definitions
  end type info_type
  type(info_type) info

contains

  ! this is a list of preprocessor definitions from the FESOM Fortran source files
  ! it will probably become outdated at some point and should be reviewed
  ! the result will reflect the status of definitions as they are set when *this file* had been compiled
  subroutine print_definitions()
#ifdef __icepack
      print '(g0)', '__icepack is ON'
#else
      print '(g0)', '__icepack is OFF'
#endif
#ifdef __oasis
      print '(g0)', '__oasis is ON'
#else
      print '(g0)', '__oasis is OFF'
#endif
#ifdef __yac
      print '(g0)', '__yac is ON'
#else
      print '(g0)', '__yac is OFF'
#endif
#ifdef __coupled
      print '(g0)', '__coupled is ON'
#else
      print '(g0)', '__coupled is OFF'
#endif
#ifdef __oifs
      print '(g0)', '__oifs is ON'
#else
      print '(g0)', '__oifs is OFF'
#endif
#ifdef DEBUG
      print '(g0)', 'DEBUG is ON'
#else
      print '(g0)', 'DEBUG is OFF'
#endif
#ifdef ASYNCHRONOUS_IO_THREADS
      print '(g0)', 'ASYNCHRONOUS_IO_THREADS is ON'
#else
      print '(g0)', 'ASYNCHRONOUS_IO_THREADS is OFF'
#endif
#ifdef false
      print '(g0)', 'false is ON'
#else
      print '(g0)', 'false is OFF'
#endif
#ifdef FVOM_INIT
      print '(g0)', 'FVOM_INIT is ON'
#else
      print '(g0)', 'FVOM_INIT is OFF'
#endif
#ifdef oifs
      print '(g0)', 'oifs is ON'
#else
      print '(g0)', 'oifs is OFF'
#endif
#ifdef OMP_MAX_THREADS
      print '(g0)', 'OMP_MAX_THREADS is ON'
#else
      print '(g0)', 'OMP_MAX_THREADS is OFF'
#endif
#ifdef PETSC
      print '(g0)', 'PETSC is ON'
#else
      print '(g0)', 'PETSC is OFF'
#endif
#ifdef use_fullfreesurf
      print '(g0)', 'use_fullfreesurf is ON'
#else
      print '(g0)', 'use_fullfreesurf is OFF'
#endif
#ifdef VERBOSE
      print '(g0)', 'VERBOSE is ON'
#else
      print '(g0)', 'VERBOSE is OFF'
#endif
#ifdef ENABLE_NVHPC_WORKAROUNDS
      print '(g0)', 'ENABLE_NVHPC_WORKAROUNDS is ON'
#else
      print '(g0)', 'ENABLE_NVHPC_WORKAROUNDS is OFF'
#endif
  end subroutine print_definitions

end module info_module