Remove ifdef SCALE_DEVELOP in lancher module

ywkawai · Apr 2, 2024 · da2679b · da2679b
1 parent ac07694
commit da2679b
Showing 1 changed file with 1 addition and 13 deletions.
diff --git a/model/atm_nonhydro3d/src/admin/mod_dg_launcher.F90 b/model/atm_nonhydro3d/src/admin/mod_dg_launcher.F90
@@ -238,26 +238,14 @@ subroutine launcher( &
        if( universal_master ) write(*,'(1x,A,L5)') "*** Flag of ABORT ALL JOBS  = ", ABORT_ALL_JOBS
     endif
 
-  ! communicator split for nesting domains
-#ifdef SCALE_DEVELOP
+    ! communicator split for nesting domains
     call PRC_MPIsplit_nest( global_comm,      & ! [IN]
                             NUM_DOMAIN,       & ! [IN]
                             PRC_DOMAINS(:),   & ! [IN]
                             LOG_SPLIT,        & ! [IN]
                             COLOR_REORDER,    & ! [IN]
                             local_comm,       & ! [OUT]
                             ID_DOMAIN         ) ! [OUT]
-#else
-    call PRC_MPIsplit_nest( global_comm,      & ! [IN]
-                            NUM_DOMAIN,       & ! [IN]
-                            PRC_DOMAINS(:),   & ! [IN]
-                            LOG_SPLIT,        & ! [IN]
-                            COLOR_REORDER,    & ! [IN]
-                            local_comm,       & ! [OUT]
-                            ID_DOMAIN,        & ! [OUT]
-                            intercomm_parent, & ! [OUT]
-                            intercomm_child   ) ! [OUT]
-#endif
 
     !--- initialize FPM module & error handler
     call FPM_Init( NUM_FAIL_TOLERANCE, & ! [IN]