Split long lines

NOAA-GFDL · Aug 22, 2023 · 3739e01 · 3739e01
1 parent 3ca0798
commit 3739e01
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/data_override/data_override.F90 b/data_override/data_override.F90
@@ -110,7 +110,8 @@ subroutine data_override_init(Atm_domain_in, Ocean_domain_in, Ice_domain_in, Lan
   type (domain2d), intent(in), optional :: Ice_domain_in !< Ice domain
   type (domain2d), intent(in), optional :: Land_domain_in !< Land domain
   type(domainUG) , intent(in), optional :: Land_domainUG_in !< Land domain, unstructured grid
-  integer, intent(in), optional :: mode !< Real precision of initialized domains. Possible values are r4_kind or r8_kind.
+  integer, intent(in), optional :: mode !< Real precision of initialized domains. Possible values are r4_kind or
+                                        !! r8_kind.
   integer :: mode_selector
 
   if (present(mode)) then

diff --git a/test_fms/data_override/test_get_grid_v1.F90 b/test_fms/data_override/test_get_grid_v1.F90
@@ -91,8 +91,10 @@ program test_get_grid_v1
                         min_lon, max_lon)
 
 !< Error checking:
-if (lon(1,1) .ne. lon_in(1)*real(DEG_TO_RAD, lkind)) call mpp_error(FATAL,'test_get_grid_v1: lon is not the expected result')
-if (lat(1,1) .ne. lat_in(1)*real(DEG_TO_RAD, lkind)) call mpp_error(FATAL,'test_get_grid_v1: lat is not the expected result')
+if (lon(1,1) .ne. lon_in(1)*real(DEG_TO_RAD, lkind)) &
+  & call mpp_error(FATAL,'test_get_grid_v1: lon is not the expected result')
+if (lat(1,1) .ne. lat_in(1)*real(DEG_TO_RAD, lkind)) &
+  & call mpp_error(FATAL,'test_get_grid_v1: lat is not the expected result')
 
 !< Try again with ocean
 lat = 0.