<commit_before>spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: .libs
spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: Makefile
spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: Makefile.in
spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: libspml_wa_mpi_module_sjpack.la
spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_base_mpi_module_sjpack.lo
spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_base_mpi_module_sjpack.mod
spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_base_mpi_module_sjpack.o
spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_deriv_mpi_module_sjpack.lo
spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_deriv_mpi_module_sjpack.mod
spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_deriv_mpi_module_sjpack.o
spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_integral_mpi_module_sjpack.lo
spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_integral_mpi_module_sjpack.mod
spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_integral_mpi_module_sjpack.o
diff -u spml/libsrc/wa_mpi_module_sjpack/wa_mpi_module_sjpack.f90 spml-0.8.0/libsrc/wa_mpi_module_sjpack/wa_mpi_module_sjpack.f90
--- spml/libsrc/wa_mpi_module_sjpack/wa_mpi_module_sjpack.f90	2015-08-12 15:08:12.803291417 +0900
+++ spml-0.8.0/libsrc/wa_mpi_module_sjpack/wa_mpi_module_sjpack.f90	2015-08-10 14:06:30.292975196 +0900
@@ -393,7 +393,7 @@
   public w_spectrum_VMiss                   ! »
 
 contains
-  subroutine wa_mpi_Initial(n_in,i_in,j_in,k_in,np_in)
+  subroutine wa_mpi_Initial(n_in,i_in,j_in,k_in,np_in,MY_COMM)
     !
     ! ڥȥѴγʻ, ȿ, ǡꤹ.
     !
@@ -405,7 +405,18 @@
     integer,intent(in) :: n_in                ! ȿ
     integer,intent(in) :: k_in                ! ǡ(ؿ)
     integer,intent(in), optional :: np_in     ! OPENMP Ǥκ祹åɿ
+    integer,intent(in), optional :: MY_COMM
 
+    ! Add by ykawai ************************
+    if ( present(MY_COMM) ) then
+       MPI_MY_COMM = MY_COMM
+       call MessageNotify('M', 'wa_mpi_initial', &
+            & 'MPI communicator is replaced by %d.', i=(/MY_COMM/) )
+    else
+       MPI_MY_COMM = MPI_COMM_WORLD
+    end if
+    !***************************************
+    
     if ( present(np_in) ) then
        call wa_Initial(n_in,i_in,j_in,k_in,np_in)
     else
spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_mpi_module_sjpack.lo
spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_mpi_module_sjpack.mod
spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_mpi_module_sjpack.o<commit_msg>* Renew a patch file.<commit_after>/home/ykawai/Dennou_gitrepo/spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: .libs
/home/ykawai/Dennou_gitrepo/spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: Makefile
/home/ykawai/Dennou_gitrepo/spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: Makefile.in
/home/ykawai/Dennou_gitrepo/spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: libspml_wa_mpi_module_sjpack.la
/home/ykawai/Dennou_gitrepo/spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_base_mpi_module_sjpack.lo
/home/ykawai/Dennou_gitrepo/spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_base_mpi_module_sjpack.mod
/home/ykawai/Dennou_gitrepo/spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_base_mpi_module_sjpack.o
/home/ykawai/Dennou_gitrepo/spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_deriv_mpi_module_sjpack.lo
/home/ykawai/Dennou_gitrepo/spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_deriv_mpi_module_sjpack.mod
/home/ykawai/Dennou_gitrepo/spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_deriv_mpi_module_sjpack.o
diff -u -r /home/ykawai/Dennou_gitrepo/spml/libsrc/wa_mpi_module_sjpack/wa_integral_mpi_module_sjpack.f90 /home/ykawai/Dennou_gitrepo/spml-0.8.0/libsrc/wa_mpi_module_sjpack/wa_integral_mpi_module_sjpack.f90
--- /home/ykawai/Dennou_gitrepo/spml/libsrc/wa_mpi_module_sjpack/wa_integral_mpi_module_sjpack.f90	2015-08-12 15:08:12.803291417 +0900
+++ /home/ykawai/Dennou_gitrepo/spml-0.8.0/libsrc/wa_mpi_module_sjpack/wa_integral_mpi_module_sjpack.f90	2015-08-31 16:52:25.391225358 +0900
@@ -38,7 +38,7 @@
   !
   !
   use w_base_module_sjpack, only : im, x_Lon_Weight, y_Lat_Weight
-  use w_base_mpi_module_sjpack, only : jc, v_Lat_Weight
+  use w_base_mpi_module_sjpack, only : jc, v_Lat_Weight, MPI_MY_COMM
   use wa_integral_module_sjpack, only : a_IntLon_xa, a_AvrLon_xa
   use mpi
 
@@ -96,7 +96,7 @@
 
       xa_IntLatTmp=xa_IntLat_xva
       CALL MPI_ALLREDUCE(xa_IntLatTMP,xa_IntLat_xva,im*size(xva_data,3),MPI_REAL8, &
-                         MPI_SUM,MPI_COMM_WORLD,IERR)
+                         MPI_SUM,MPI_MY_COMM,IERR)
 
     end function xa_IntLat_xva
 
@@ -143,7 +143,7 @@
 
       a_IntLatTmp=a_IntLat_va
       CALL MPI_ALLREDUCE(a_IntLatTMP,a_IntLat_va,size(va_data,2),MPI_REAL8, &
-                         MPI_SUM,MPI_COMM_WORLD,IERR)
+                         MPI_SUM,MPI_MY_COMM,IERR)
 
     end function a_IntLat_va
 
/home/ykawai/Dennou_gitrepo/spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_integral_mpi_module_sjpack.lo
/home/ykawai/Dennou_gitrepo/spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_integral_mpi_module_sjpack.mod
/home/ykawai/Dennou_gitrepo/spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_integral_mpi_module_sjpack.o
diff -u -r /home/ykawai/Dennou_gitrepo/spml/libsrc/wa_mpi_module_sjpack/wa_mpi_module_sjpack.f90 /home/ykawai/Dennou_gitrepo/spml-0.8.0/libsrc/wa_mpi_module_sjpack/wa_mpi_module_sjpack.f90
--- /home/ykawai/Dennou_gitrepo/spml/libsrc/wa_mpi_module_sjpack/wa_mpi_module_sjpack.f90	2015-08-12 15:08:12.803291417 +0900
+++ /home/ykawai/Dennou_gitrepo/spml-0.8.0/libsrc/wa_mpi_module_sjpack/wa_mpi_module_sjpack.f90	2015-08-10 14:06:30.292975196 +0900
@@ -393,7 +393,7 @@
   public w_spectrum_VMiss                   ! »
 
 contains
-  subroutine wa_mpi_Initial(n_in,i_in,j_in,k_in,np_in)
+  subroutine wa_mpi_Initial(n_in,i_in,j_in,k_in,np_in,MY_COMM)
     !
     ! ڥȥѴγʻ, ȿ, ǡꤹ.
     !
@@ -405,7 +405,18 @@
     integer,intent(in) :: n_in                ! ȿ
     integer,intent(in) :: k_in                ! ǡ(ؿ)
     integer,intent(in), optional :: np_in     ! OPENMP Ǥκ祹åɿ
+    integer,intent(in), optional :: MY_COMM
 
+    ! Add by ykawai ************************
+    if ( present(MY_COMM) ) then
+       MPI_MY_COMM = MY_COMM
+       call MessageNotify('M', 'wa_mpi_initial', &
+            & 'MPI communicator is replaced by %d.', i=(/MY_COMM/) )
+    else
+       MPI_MY_COMM = MPI_COMM_WORLD
+    end if
+    !***************************************
+    
     if ( present(np_in) ) then
        call wa_Initial(n_in,i_in,j_in,k_in,np_in)
     else
/home/ykawai/Dennou_gitrepo/spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_mpi_module_sjpack.lo
/home/ykawai/Dennou_gitrepo/spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_mpi_module_sjpack.mod
/home/ykawai/Dennou_gitrepo/spml-0.8.0/libsrc/wa_mpi_module_sjpack のみに存在: wa_mpi_module_sjpack.o
{'fraction_non_alphanumeric': 0.13170804221792776, 'fraction_numerical': 0.05321837371785343, 'mean_word_length': 4.187355435620663, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5914291', 'n_tokens_mistral': 3567, 'n_tokens_neox': 3262, 'n_words': 299}