fix: remove continuation lines with comments in monin_obukhov test (#…

…1603)
NOAA-GFDL · Oct 24, 2024 · e74ab4a · e74ab4a
1 parent 7ad9053
commit e74ab4a
Showing 1 changed file with 4 additions and 11 deletions.
diff --git a/test_fms/monin_obukhov/test_monin_obukhov.F90 b/test_fms/monin_obukhov/test_monin_obukhov.F90
@@ -125,17 +125,10 @@ program test_monin_obukhov
     integer(ki), dimension(n_1d) :: del_m, del_t, del_q
   end type
 
-  type(drag_input_t), parameter :: drag_input = drag_input_t() &
-  & !< Input arguments for mo_drag
-
-  type(stable_mix_input_t), parameter :: stable_mix_input = stable_mix_input_t() &
-  & !< Input arguments for stable_mix
-
-  type(diff_input_t), parameter :: diff_input = diff_input_t() &
-  & !< Input arguments for mo_diff
-
-  type(profile_input_t), parameter :: profile_input = profile_input_t() &
-  & !< Input arguments for mo_profile
+  type(drag_input_t), parameter :: drag_input = drag_input_t() !< Input arguments for mo_drag
+  type(stable_mix_input_t), parameter :: stable_mix_input = stable_mix_input_t() !< Input arguments for stable_mix
+  type(diff_input_t), parameter :: diff_input = diff_input_t() !< Input arguments for mo_diff
+  type(profile_input_t), parameter :: profile_input = profile_input_t() !< Input arguments for mo_profile
 
   ! Entries 1:n of the arrays below contain known answer keys. Entry n+1 contains
   ! the answers that we calculate. Represent answer data using integral arrays,