[Dart-dev] DART/branches Revision: 11713

[dart at ucar.edu]

hendric at ucar.edu
2017-06-13 11:35:51 -0600 (Tue, 13 Jun 2017)
26

reverting mpi utilities




Modified: DART/branches/rma_par_single_file/assimilation_code/modules/utilities/mpi_utilities_mod.f90
===================================================================
--- DART/branches/rma_par_single_file/assimilation_code/modules/utilities/mpi_utilities_mod.f90	2017-06-13 17:30:13 UTC (rev 11712)
+++ DART/branches/rma_par_single_file/assimilation_code/modules/utilities/mpi_utilities_mod.f90	2017-06-13 17:35:51 UTC (rev 11713)
@@ -72,16 +72,16 @@
 ! this directory.  It is a sed script that comments in and out the interface
 ! block below.  Please leave the BLOCK comment lines unchanged.
 
- !!SYSTEM_BLOCK_EDIT START COMMENTED_IN
- ! interface block for getting return code back from system() routine
- interface
-  function system(string)
-   character(len=*) :: string
-   integer :: system
-  end function system
- end interface
- ! end block
- !!SYSTEM_BLOCK_EDIT END COMMENTED_IN
+! !!SYSTEM_BLOCK_EDIT START COMMENTED_OUT
+! ! interface block for getting return code back from system() routine
+! interface
+!  function system(string)
+!   character(len=*) :: string
+!   integer :: system
+!  end function system
+! end interface
+! ! end block
+! !!SYSTEM_BLOCK_EDIT END COMMENTED_OUT
 
 
 ! allow global sum to be computed for integers, r4, and r8s
@@ -318,7 +318,7 @@
 
 if (r8 == digits12) then
    datasize = MPI_REAL8
-   print *, "using real * 8 for datasize of r8"
+   !print *, "using real * 8 for datasize of r8"
 else
    datasize = MPI_REAL4
    if (myrank == 0) then

Modified: DART/branches/rma_par_single_file/assimilation_code/modules/utilities/null_mpi_utilities_mod.f90
===================================================================
--- DART/branches/rma_par_single_file/assimilation_code/modules/utilities/null_mpi_utilities_mod.f90	2017-06-13 17:30:13 UTC (rev 11712)
+++ DART/branches/rma_par_single_file/assimilation_code/modules/utilities/null_mpi_utilities_mod.f90	2017-06-13 17:35:51 UTC (rev 11713)
@@ -46,16 +46,16 @@
 ! this directory.  It is a sed script that comments in and out the interface
 ! block below.  Please leave the BLOCK comment lines unchanged.
 
- !!SYSTEM_BLOCK_EDIT START COMMENTED_IN
- ! interface block for getting return code back from system() routine
- interface
-  function system(string)    
-   character(len=*) :: string
-   integer :: system         
-  end function system
- end interface
- ! end block                 
- !!SYSTEM_BLOCK_EDIT END COMMENTED_IN
+! !!SYSTEM_BLOCK_EDIT START COMMENTED_OUT
+! ! interface block for getting return code back from system() routine
+! interface
+!  function system(string)    
+!   character(len=*) :: string
+!   integer :: system         
+!  end function system
+! end interface
+! ! end block                 
+! !!SYSTEM_BLOCK_EDIT END COMMENTED_OUT
 
 
 interface sum_across_tasks