Corrected syntax error in probit_tranform_mod.f90. Reran tests with

results the same as reported in previous commit.
NCAR · Dec 23, 2024 · f0e7f99 · f0e7f99
1 parent 1f2b7e1
commit f0e7f99
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/assimilation_code/modules/assimilation/probit_transform_mod.f90 b/assimilation_code/modules/assimilation/probit_transform_mod.f90
@@ -91,7 +91,7 @@ subroutine transform_all_to_probit(ens_size, num_vars, state_ens, distribution_t
 do i = 1, num_vars
    call transform_to_probit(ens_size, state_ens(1:ens_size, i), distribution_type(i), &
       p(i), temp_ens, use_input_p, bounded_below, bounded_above, lower_bound, upper_bound, ierr(i))
-   if(ierr(i) == 0) 
+   if(ierr(i) == 0) then
       probit_ens(1:ens_size, i) = temp_ens
    else
       ! If transform failed, return the input state