[Dart-dev] DART/branches Revision: 10853

[dart at ucar.edu]

thoar at ucar.edu
2016-12-29 12:11:46 -0700 (Thu, 29 Dec 2016)
115
The system block should be commented in by default.
This was inadvertently changed in the last commit. mea culpa.




Modified: DART/branches/rma_cice/mpi_utilities/mpi_utilities_mod.f90
===================================================================
--- DART/branches/rma_cice/mpi_utilities/mpi_utilities_mod.f90	2016-12-29 19:07:59 UTC (rev 10852)
+++ DART/branches/rma_cice/mpi_utilities/mpi_utilities_mod.f90	2016-12-29 19:11:46 UTC (rev 10853)
@@ -175,16 +175,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_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
+ !!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
 
 
 ! allow global sum to be computed for integers, r4, and r8s

Modified: DART/branches/rma_cice/mpi_utilities/null_mpi_utilities_mod.f90
===================================================================
--- DART/branches/rma_cice/mpi_utilities/null_mpi_utilities_mod.f90	2016-12-29 19:07:59 UTC (rev 10852)
+++ DART/branches/rma_cice/mpi_utilities/null_mpi_utilities_mod.f90	2016-12-29 19:11:46 UTC (rev 10853)
@@ -139,16 +139,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_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
+ !!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
 
 
 interface sum_across_tasks