Added variables for new general define_bc.f90 type

src/module_definitions.f90

@@ -341,7 +341,7 @@ module definitions
 ! due to isostasy
 
       type ziso
-        double precision,dimension(:,:),pointer::zisodisp,zisoinc
+        double precision,dimension(:,:),pointer :: zisodisp,zisoinc
       end type ziso
 
 !=====[BC_DEFINITION]===========================================================
@@ -350,8 +350,11 @@ module definitions
 
       type bc_definition
         character(len=3) :: bcorder
+        character(len=40) :: bctype
         double precision,dimension(:,:),pointer :: zisodisp,zisoinc
-        double precision :: ux0,ux1,vx0,vx1,wx0,wx1,uy0,uy1,vy0,vy1,wy0,wy1
+        double precision :: bc_parameters(12),utrans,vtrans
+        double precision :: ux0,ux1,vx0,vx1,wx0,wx1
+        double precision :: uy0,uy1,vy0,vy1,wy0,wy1
         double precision :: uz0,uz1,vz0,vz1,wz0,wz1
         logical :: fixux0,fixux1,fixvx0,fixvx1,fixwx0,fixwx1
         logical :: fixuy0,fixuy1,fixvy0,fixvy1,fixwy0,fixwy1