[cig-commits] r20974 - in seismo/3D/FAULT_SOURCE/branches/new_fault_db: START_UP src

[surendra at geodynamics.org]

Author: surendra
Date: 2012-10-31 08:57:51 -0700 (Wed, 31 Oct 2012)
New Revision: 20974

Modified:
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/START_UP/Makefile.in
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver_common.f90
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver_dynamic.f90
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver_kinematic.f90
Log:
Fixed compile-time errors for dataT clean up

Modified: seismo/3D/FAULT_SOURCE/branches/new_fault_db/START_UP/Makefile.in
===================================================================
--- seismo/3D/FAULT_SOURCE/branches/new_fault_db/START_UP/Makefile.in	2012-10-31 15:04:56 UTC (rev 20973)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/START_UP/Makefile.in	2012-10-31 15:57:51 UTC (rev 20974)
@@ -309,7 +309,7 @@
 $O/fault_solver_common.o: fault_solver_common.f90 constants.h $O/specfem3D_par.o
 	${FCCOMPILE_NO_CHECK} -c -o $O/fault_solver_common.o fault_solver_common.f90
 
-$O/fault_solver_dynamic.o: fault_solver_dyanmic.f90 constants.h $O/specfem3D_par.o $O/fault_solver_common.o
+$O/fault_solver_dynamic.o: fault_solver_dynamic.f90 constants.h $O/specfem3D_par.o $O/fault_solver_common.o
 	${FCCOMPILE_NO_CHECK} -c -o $O/fault_solver_dynamic.o fault_solver_dynamic.f90
 
 $O/fault_solver_kinematic.o: fault_solver_kinematic.f90 constants.h $O/specfem3D_par.o $O/fault_solver_common.o

Modified: seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver_common.f90
===================================================================
--- seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver_common.f90	2012-10-31 15:04:56 UTC (rev 20973)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver_common.f90	2012-10-31 15:57:51 UTC (rev 20974)
@@ -34,7 +34,7 @@
 
   public :: fault_type, PARALLEL_FAULT, &
             initialize_fault, get_jump, get_weighted_jump, rotate, add_BT, &
-            dataT, init_dataT, store_dataT, SCEC_write_dataT
+            dataT_type, init_dataT, store_dataT, SCEC_write_dataT
 
 contains
 
@@ -347,7 +347,9 @@
     if (myrank==0) then
      ! NOTE: output points lying at an interface between procs are assigned to a unique proc
       iproc = minloc(dist_all,2) - 1
-      dataT%iglob = iglob_all(:,iproc)
+      do ipoin = 1,dataT%npoin
+         dataT%iglob(ipoin) = iglob_all(ipoin,iproc(ipoin))
+      enddo
     endif
     call bcast_all_i(iproc,dataT%npoin)
     call bcast_all_i(dataT%iglob,dataT%npoin)
@@ -433,7 +435,7 @@
 !------------------------------------------------------------------------
 subroutine SCEC_write_dataT(dataT)
 
-  class(my_dataT_type), intent(in) :: dataT
+  class(dataT_type), intent(in) :: dataT
   
   integer   :: i,k,IOUT
   character(len=10) :: my_fmt

Modified: seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver_dynamic.f90
===================================================================
--- seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver_dynamic.f90	2012-10-31 15:04:56 UTC (rev 20973)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver_dynamic.f90	2012-10-31 15:57:51 UTC (rev 20974)
@@ -51,7 +51,7 @@
     private
     real(kind=CUSTOM_REAL), dimension(:,:), pointer :: T0=>null()
     real(kind=CUSTOM_REAL), dimension(:),   pointer :: MU=>null(), Fload=>null()
-    integer, dimension(:),   pointer :: npoin_perproc=>null(), npoin_offset=>null()
+    integer, dimension(:),   pointer :: npoin_perproc=>null(), poin_offset=>null()
     type(dataT_type)        :: dataT
     type(dataXZ_type)       :: dataXZ,dataXZ_all
     type(swf_type), pointer :: swf => null()
@@ -569,7 +569,7 @@
 
     !-- outputs --
     ! write dataT every NTOUT time step or at the end of simulation
-    if ( mod(it,NTOUT) == 0 .or. it==NSTEP) call SCEC_write_dataT(bc%dataT,it)
+    if ( mod(it,NTOUT) == 0 .or. it==NSTEP) call SCEC_write_dataT(bc%dataT)
 
   endif
 

Modified: seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver_kinematic.f90
===================================================================
--- seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver_kinematic.f90	2012-10-31 15:04:56 UTC (rev 20973)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver_kinematic.f90	2012-10-31 15:57:51 UTC (rev 20974)
@@ -283,7 +283,7 @@
 
     !-- OUTPUTS --
     ! write dataT every NTOUT time steps or at the end of simulation
-    if ( mod(it,NTOUT) == 0 .or. it==NSTEP) call SCEC_write_dataT(bc%dataT,it)
+    if ( mod(it,NTOUT) == 0 .or. it==NSTEP) call SCEC_write_dataT(bc%dataT)
     ! write dataXZ every NSNAP time steps
     ! if ( mod(it,NSNAP) == 0) call write_dataXZ(bc,it,iflt)