Update stubs

iangrooms · May 21, 2024 · ff03d4b · ff03d4b
1 parent 8783c6a
commit ff03d4b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/config_src/external/stochastic_physics/stochastic_physics.F90 b/config_src/external/stochastic_physics/stochastic_physics.F90
@@ -52,7 +52,7 @@ end subroutine init_stochastic_physics_ocn
 !> Determines the stochastic physics perturbations.
 subroutine run_stochastic_physics_ocn(sppt_wts, skeb_wts, t_rp1, t_rp2)
   real, intent(inout) :: sppt_wts(:,:) !< array containing random weights for SPPT range [0,2]
-  real, intent(inout) :: sppt_wts(:,:) !< array containing random weights for SKEB
+  real, intent(inout) :: skeb_wts(:,:) !< array containing random weights for SKEB
   real, intent(inout) :: t_rp1(:,:)    !< array containing random weights for ePBL
                                        !! perturbations (KE generation) range [0,2]
   real, intent(inout) :: t_rp2(:,:)    !< array containing random weights for ePBL