@@ -3,31 +3,56 @@ mode = "idem"
3
3
role = "kernel"
4
4
expand = true
5
5
strict = true
6
- disable = ["DR_HOOK", "lhook", "jphook", "omp_get_wtime", "flush", "jwim", "jwrb", "jwru", "jwro", "environment", "frequency", "forcing_fields", "intgt_param_fields", "wave2ocean", "abort1", "iu06"]
6
+ disable = [
7
+ "DR_HOOK", "lhook", "jphook", "omp_get_wtime", "flush", "jwim",
8
+ "jwrb", "jwru", "jwro", "environment", "frequency",
9
+ "forcing_fields", "intgt_param_fields", "wave2ocean", "abort1",
10
+ "iu06"
11
+ ]
7
12
utility_routines = ['dr_hook', 'abort1', 'write(iu06']
8
13
enable_imports = true
9
14
10
- [[routine]]
11
- name = "wamintgr_loki_gpu"
12
- role = "driver"
13
- expand = true
14
- disable = ["PROPAG_WAM", "NEWWIND", "GSTATS", "FREQUENCY_FIELD%INIT", "ENVIRONMENT_FIELD%INIT", "FORCING_FIELDS_FIELD%INIT", "WAVE2OCEAN_FIELD%INIT", "INTGT_PARAM_FIELDS_FIELD%INIT", "FREQUENCY_FIELD%UPDATE_DEVICE", "ENVIRONMENT_FIELD%UPDATE_DEVICE", "FORCING_FIELDS_FIELD%UPDATE_DEVICE", "WAVE2OCEAN_FIELD%UPDATE_DEVICE", "INTGT_PARAM_FIELDS_FIELD%UPDATE_DEVICE", "SOURCE_CONTRIBS_FIELD%INIT", "SOURCE_CONTRIBS_FIELD%UPDATE_DEVICE", "INCDATE", "DR_HOOK", "omp_get_wtime", "abort1", "wam_user_clock", "FREQUENCY_FIELD%ENSURE_HOST", "ENVIRONMENT_FIELD%ENSURE_HOST", "FORCING_FIELDS_FIELD%ENSURE_HOST", "WAVE2OCEAN_FIELD%ENSURE_HOST", "INTGT_PARAM_FIELDS_FIELD%ENSURE_HOST", "SOURCE_CONTRIBS_FIELD%INIT", "SOURCE_CONTRIBS_FIELD%ENSURE_HOST", "FREQUENCY_FIELD%FINAL", "ENVIRONMENT_FIELD%FINAL", "FORCING_FIELDS_FIELD%FINAL", "WAVE2OCEAN_FIELD%FINAL", "INTGT_PARAM_FIELDS_FIELD%FINAL", "SOURCE_CONTRIBS_FIELD%INIT", "SOURCE_CONTRIBS_FIELD%FINAL"]
15
- enable_imports = false
16
- real_kind = 'JWRB'
15
+ # Define entry point for call-tree transformation
16
+ [routines]
17
17
18
- [[dimension]]
19
- name = "horizontal"
20
- size = "KIJL"
21
- index = "IJ"
22
- bounds = ["KIJS", "KIJL"]
23
- aliases = ["NPROMA_WAM"]
18
+ [routines.wamintgr_loki_gpu]
19
+ role = "driver"
20
+ expand = true
21
+ disable = [
22
+ "PROPAG_WAM", "NEWWIND", "GSTATS", "FREQUENCY_FIELD%INIT",
23
+ "ENVIRONMENT_FIELD%INIT", "FORCING_FIELDS_FIELD%INIT",
24
+ "WAVE2OCEAN_FIELD%INIT", "INTGT_PARAM_FIELDS_FIELD%INIT",
25
+ "FREQUENCY_FIELD%UPDATE_DEVICE", "ENVIRONMENT_FIELD%UPDATE_DEVICE",
26
+ "FORCING_FIELDS_FIELD%UPDATE_DEVICE",
27
+ "WAVE2OCEAN_FIELD%UPDATE_DEVICE",
28
+ "INTGT_PARAM_FIELDS_FIELD%UPDATE_DEVICE",
29
+ "SOURCE_CONTRIBS_FIELD%INIT", "SOURCE_CONTRIBS_FIELD%UPDATE_DEVICE",
30
+ "INCDATE", "DR_HOOK", "omp_get_wtime", "abort1", "wam_user_clock",
31
+ "FREQUENCY_FIELD%ENSURE_HOST", "ENVIRONMENT_FIELD%ENSURE_HOST",
32
+ "FORCING_FIELDS_FIELD%ENSURE_HOST", "WAVE2OCEAN_FIELD%ENSURE_HOST",
33
+ "INTGT_PARAM_FIELDS_FIELD%ENSURE_HOST",
34
+ "SOURCE_CONTRIBS_FIELD%INIT", "SOURCE_CONTRIBS_FIELD%ENSURE_HOST",
35
+ "FREQUENCY_FIELD%FINAL", "ENVIRONMENT_FIELD%FINAL",
36
+ "FORCING_FIELDS_FIELD%FINAL", "WAVE2OCEAN_FIELD%FINAL",
37
+ "INTGT_PARAM_FIELDS_FIELD%FINAL", "SOURCE_CONTRIBS_FIELD%INIT",
38
+ "SOURCE_CONTRIBS_FIELD%FINAL"
39
+ ]
40
+ enable_imports = false
41
+ real_kind = 'JWRB'
24
42
25
- [[dimension]]
26
- name = "vertical"
27
- size = "NFRE"
28
- index = "M"
43
+ # Define indices and bounds for array dimensions
44
+ [dimensions]
29
45
30
- [[dimension]]
31
- name = "block_dim"
32
- size = "NCHNK"
33
- index = "ICHNK"
46
+ [dimensions.horizontal]
47
+ size = "KIJL"
48
+ index = "IJ"
49
+ bounds = ["KIJS", "KIJL"]
50
+ aliases = ["NPROMA_WAM"]
51
+
52
+ [dimensions.vertical]
53
+ size = "NFRE"
54
+ index = "M"
55
+
56
+ [dimensions.block_dim]
57
+ size = "NCHNK"
58
+ index = "ICHNK"
0 commit comments