adjust name to reflect it is an API variable

MODFLOW-USGS · Jul 20, 2023 · 22a1f60 · 22a1f60
1 parent 9e57468
commit 22a1f60
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/srcbmi/mf6bmi.f90 b/srcbmi/mf6bmi.f90
@@ -36,8 +36,8 @@ module mf6bmi
 
   integer(c_int), bind(C, name="ISTDOUTTOFILE") :: istdout_to_file = 1 !< output control: =0 to screen, >0 to file
   !DIR$ ATTRIBUTES DLLEXPORT :: istdout_to_file
-  integer(c_int), bind(C, name="ISIM_MODE_C_INT") :: isim_mode_c_int = MNORMAL !< simulation mode MVALIDATE=0, MNORMAL=1, MRUN=2
-  !DIR$ ATTRIBUTES DLLEXPORT :: isim_mode_c_int
+  integer(c_int), bind(C, name="ISIM_MODE_API") :: isim_mode_api = MNORMAL !< simulation mode MVALIDATE=0, MNORMAL=1, MRUN=2
+  !DIR$ ATTRIBUTES DLLEXPORT :: isim_mode_api
 
 contains
 
@@ -71,7 +71,7 @@ function bmi_initialize() result(bmi_status) bind(C, name="initialize")
     ! -- local variables
     !
     ! -- set isim_mode
-    isim_mode = isim_mode_c_int
+    isim_mode = isim_mode_api
     !
     if (istdout_to_file > 0) then
       ! -- open stdout file mfsim.stdout