diff --git a/test_fms/block_control/test_block_control.F90 b/test_fms/block_control/test_block_control.F90 index dab7b3647..97ff4aa7f 100644 --- a/test_fms/block_control/test_block_control.F90 +++ b/test_fms/block_control/test_block_control.F90 @@ -49,7 +49,7 @@ program test_block_control if (message) & call mpp_error(FATAL, "test_block_control::define_blocks did not output the warning message"//& " about uneven blocks") - + !Expected size of each block for every PE ncy = (/11, 10, 11/) expected_endingy = jsc-1 @@ -66,4 +66,4 @@ program test_block_control enddo call fms_end() -end program \ No newline at end of file +end program