Aether cube sphere interface

models/aether_cube_sphere/aether_to_dart.f90

@@ -0,0 +1,18 @@
+program aether_to_dart
+
+use       utilities_mod, only : initialize_utilities, finalize_utilities
+use transform_state_mod, only : initialize_transform_state_mod, model_to_dart, finalize_transform_state_mod
+
+implicit none
+
+call initialize_utilities(progname='aether_to_dart')
+
+call initialize_transform_state_mod()
+
+call model_to_dart()
+
+call finalize_transform_state_mod()
+
+call finalize_utilities('aether_to_dart')
+
+end program aether_to_dart

models/aether_cube_sphere/dart_to_aether.f90

@@ -0,0 +1,18 @@
+program dart_to_aether
+
+use       utilities_mod, only : initialize_utilities, finalize_utilities
+use transform_state_mod, only : initialize_transform_state_mod, dart_to_model, finalize_transform_state_mod
+
+implicit none
+
+call initialize_utilities(progname='dart_to_aether')
+
+call initialize_transform_state_mod()
+
+call dart_to_model()
+
+call finalize_transform_state_mod()
+
+call finalize_utilities('dart_to_aether')
+
+end program dart_to_aether