From a0c1558d28767517dddffbf8e4719138541738f2 Mon Sep 17 00:00:00 2001
From: ignis <ignis@postech.ac.kr>
Date: Fri, 14 Jun 2019 19:47:01 +0900
Subject: [PATCH] added conditional call to main and main_lb

---
 code/post_dns.f90 | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/code/post_dns.f90 b/code/post_dns.f90
index 5f5d436..5afce07 100644
--- a/code/post_dns.f90
+++ b/code/post_dns.f90
@@ -44,7 +44,11 @@
 
      if (iammaster) write(*,*) input_string(1:lnblnk(input_string))
 
-     CALL main
+     if (numprocs > 1) then
+         CALL main_lb
+     else
+         CALL main
+     end if
     
      CALL m_openmpi_exit