diff --git a/srcbmi/mf6bmi.f90 b/srcbmi/mf6bmi.f90 index d8a1b55c798..73f043c632c 100644 --- 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