Start writing example main program

csdms · Feb 2, 2024 · 914a405 · 914a405
1 parent 7d17756
commit 914a405
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 1 deletion.
diff --git a/example/CMakeLists.txt b/example/CMakeLists.txt
@@ -15,3 +15,4 @@ make_example(get_value_ex)
 make_example(set_value_ex)
 make_example(conflicting_instances_ex)
 make_example(change_diffusivity_ex)
+make_example(bmi_geospatial_ex)
diff --git a/example/bmi_geospatial_ex.f90 b/example/bmi_geospatial_ex.f90
@@ -1,6 +1,16 @@
 ! An example of using a BMI extension
 program bmi_geospatial_ex
 
+    use bmif_2_0
+    use bmiheatf
+    use bmiheatgeof
     implicit none
-
+
+    type(bmi_heat) :: h
+    integer :: status
+    character (len=BMI_MAX_COMPONENT_NAME), pointer :: name
+
+    status = h%get_component_name(name)
+    write (*,"(a, a30)") "Component name: ", name
+
 end program bmi_geospatial_ex