Last active
June 5, 2019 12:44
-
-
Save bilke/46fb829830f8cb5727160bf3a12f1138 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git a/Applications/CLI/ogs.cpp b/Applications/CLI/ogs.cpp | |
index 209d72cc9..dbde5058a 100644 | |
--- a/Applications/CLI/ogs.cpp | |
+++ b/Applications/CLI/ogs.cpp | |
@@ -101,6 +101,11 @@ int main(int argc, char* argv[]) | |
"LOG_LEVEL"); | |
cmd.add(log_level_arg); | |
+#ifdef OGS_USE_PDAF | |
+ int a = 5; | |
+ c_init_parallel_pdaf(&a, &a); | |
+#endif | |
+ | |
TCLAP::SwitchArg nonfatal_arg("", | |
"config-warnings-nonfatal", | |
"warnings from parsing the configuration " | |
@@ -149,11 +154,6 @@ int main(int argc, char* argv[]) | |
(void)guard; | |
#endif | |
-#ifdef OGS_USE_PDAF | |
- int a = 5; | |
- c_init_parallel_pdaf(&a, &a); | |
-#endif | |
- | |
BaseLib::RunTime run_time; | |
{ | |
diff --git a/Applications/CLI/pdaf.f90 b/Applications/CLI/pdaf.f90 | |
index 42c52d380..8820468ed 100644 | |
--- a/Applications/CLI/pdaf.f90 | |
+++ b/Applications/CLI/pdaf.f90 | |
@@ -11,7 +11,8 @@ contains | |
subroutine c_init_parallel_pdaf(dim_ens, screen) bind(c) | |
integer(c_int), intent(in) :: dim_ens, screen | |
- call init_parallel_pdaf(dim_ens, screen) | |
+ write(*,*) "PDAF here" | |
+ !call init_parallel_pdaf(dim_ens, screen) | |
end subroutine c_init_parallel_pdaf |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment