Even more realignment

Author: mattatmet

components/science/source/kernel/inter_function_space/sample_flux_kernel_mod.F90

@@ -97,10 +97,9 @@ subroutine sample_flux_code_real32(  nlayers,                      &
   real(kind=real32),   dimension(undf_q),        intent(in)    :: q
 
   ! Internal variables
-  integer(kind=i_def)                :: df, df_q, k, loc
-
+  integer(kind=i_def)                   :: df, df_q, k, loc
   real(kind=real32),   dimension(ndf_q) :: q_cell
-  real(kind=real32)                   :: q_at_node
+  real(kind=real32)                     :: q_at_node
 
   do k = 0, nlayers-1
     do df_q = 1, ndf_q
@@ -141,10 +140,9 @@ subroutine sample_flux_code_real64(  nlayers,                      &
   real(kind=real64),   dimension(undf_q),        intent(in)    :: q
 
   ! Internal variables
-  integer(kind=i_def)                :: df, df_q, k, loc
-
+  integer(kind=i_def)                   :: df, df_q, k, loc
   real(kind=real64),   dimension(ndf_q) :: q_cell
-  real(kind=real64)                   :: q_at_node
+  real(kind=real64)                     :: q_at_node
 
   do k = 0, nlayers-1
     do df_q = 1, ndf_q

components/science/source/kernel/inter_mesh/sci_tri_solve_sh_rho_to_mr_kernel_mod.F90

@@ -97,9 +97,9 @@ subroutine tri_solve_sh_rho_to_mr_code_real32(
   real(kind=real32),   dimension(undf_sh_w3),  intent(in)    :: tri_below
 
   ! Internal variables
-  integer(kind=i_def)                     :: k, ij, nlayers_shifted
+  integer(kind=i_def)                        :: k, ij, nlayers_shifted
   real(kind=real32),   dimension(nlayers+1)  :: rhs_new, tri_above_new
-  real(kind=real32)                        :: denom
+  real(kind=real32)                          :: denom
 
   nlayers_shifted = nlayers + 1
 
@@ -150,9 +150,9 @@ subroutine tri_solve_sh_rho_to_mr_code_real64(
   real(kind=real64),   dimension(undf_sh_w3),  intent(in)    :: tri_below
 
   ! Internal variables
-  integer(kind=i_def)                     :: k, ij, nlayers_shifted
+  integer(kind=i_def)                        :: k, ij, nlayers_shifted
   real(kind=real64),   dimension(nlayers+1)  :: rhs_new, tri_above_new
-  real(kind=real64)                        :: denom
+  real(kind=real64)                          :: denom
 
   nlayers_shifted = nlayers + 1
 

components/science/source/kernel/solver/sci_tri_solve_kernel_mod.f90

@@ -88,9 +88,9 @@ subroutine tri_solve_code_real32(  nlayers,                    &
   real(kind=real32),   dimension(undf), intent(in)    :: tri_plus
   real(kind=real32),   dimension(undf), intent(in)    :: tri_minus
 
-  integer(kind=i_def)                  :: k, ij
+  integer(kind=i_def)                     :: k, ij
   real(kind=real32),   dimension(nlayers) :: x_new, tri_plus_new
-  real(kind=real32)                     :: denom
+  real(kind=real32)                       :: denom
 
   k  = 0
   ij = map(1)
@@ -132,9 +132,9 @@ subroutine tri_solve_code_real64(  nlayers,                    &
   real(kind=real64),   dimension(undf), intent(in)    :: tri_plus
   real(kind=real64),   dimension(undf), intent(in)    :: tri_minus
 
-  integer(kind=i_def)                  :: k, ij
+  integer(kind=i_def)                     :: k, ij
   real(kind=real64),   dimension(nlayers) :: x_new, tri_plus_new
-  real(kind=real64)                     :: denom
+  real(kind=real64)                       :: denom
 
   k  = 0
   ij = map(1)