From ab9f6bc001c47d4bb68c69ec4b3f2e72e10c3ded Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 22 Jan 2019 16:02:16 +0100
Subject: [PATCH] Philippe 22/01/2019: use sleep_c subroutine instead of
non-standard call system
---
src/LIB/SURCOUCHE/src/mode_mppdb.f90 | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_mppdb.f90 b/src/LIB/SURCOUCHE/src/mode_mppdb.f90
index e105a61ad..575fb7b8e 100644
--- a/src/LIB/SURCOUCHE/src/mode_mppdb.f90
+++ b/src/LIB/SURCOUCHE/src/mode_mppdb.f90
@@ -13,11 +13,15 @@ MODULE MODE_MPPDB
! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
! Philippe Wautelet: 10/01/2019: use NEWUNIT argument of OPEN
! Philippe Wautelet: 22/01/2019: use standard FLUSH statement instead of non standard intrinsics
+! Philippe Wautelet: 22/01/2019: use sleep_c subroutine instead of non-standard call system
!
use ISO_FORTRAN_ENV, only: OUTPUT_UNIT
+ use modi_tools_c
+
IMPLICIT NONE
+ INTEGER ,PARAMETER :: NSLEEP=30 !Sleep duration to wait for (in seconds)
INTEGER ,PARAMETER :: chlg=256
CHARACTER(LEN=chlg),PARAMETER :: MPPDB_CONF = "mppdb.nam"
@@ -28,7 +32,6 @@ MODULE MODE_MPPDB
CHARACTER(LEN=chlg) :: MPPDB_HOST = "localhost"
CHARACTER(LEN=chlg) :: MPPDB_WDIR = "."
INTEGER :: MPPDB_NBSON = 1
- CHARACTER(LEN=chlg) :: MPPDB_COMMAND = " sleep " // " 30 "
INTEGER :: MPPDB_INTER_COMM,MPPDB_INTRA_COMM
INTEGER :: MPPDB_IRANK_WORLD,MPPDB_IRANK_INTRA
@@ -192,7 +195,7 @@ CONTAINS
!
CALL MPI_BARRIER ( MPPDB_INTRA_COMM , ierr )
! WAIT FOR TOTALVIEW IF NEEDED
- call system(MPPDB_COMMAND)
+ call sleep_c(NSLEEP)
!
ELSE ! (MPPDB_INTER_COMM <> MPI_COMM_NULL)
!-------------------------------------------------------------------------!
@@ -220,7 +223,7 @@ CONTAINS
CALL MPI_BARRIER ( MPPDB_INTRA_COMM , ierr )
!
! WAIT FOR TOTALVIEW IF NEEDED
- call system(MPPDB_COMMAND)
+ call sleep_c(NSLEEP)
!
MPPDB_DEBUG = .TRUE.
IF (MPPDB_DEBUG) write(200,*) "MPPDB_INIT :: FIRST SON mppdb_irank_intra=", mppdb_irank_intra &
--
GitLab