limit line widths to 120 chars

NOAA-GFDL · Jul 17, 2018 · ad1a295 · ad1a295
1 parent a2c6a7a
commit ad1a295
Show file tree

Hide file tree

Showing 5 changed files with 193 additions and 110 deletions.
diff --git a/config_src/mct_driver/ocn_cap_methods.F90 b/config_src/mct_driver/ocn_cap_methods.F90
@@ -115,14 +115,22 @@ subroutine ocn_import(x2o, ind, grid, ice_ocean_boundary, ocean_public, logunit,
           write(logunit,F01)'import: day, secs, j, i, lwrad           = ',day,secs,j,i,ice_ocean_boundary%lw_flux(i,j)
           write(logunit,F01)'import: day, secs, j, i, q_flux          = ',day,secs,j,i,ice_ocean_boundary%q_flux(i,j)
           write(logunit,F01)'import: day, secs, j, i, t_flux          = ',day,secs,j,i,ice_ocean_boundary%t_flux(i,j)
-          write(logunit,F01)'import: day, secs, j, i, latent_flux     = ',day,secs,j,i,ice_ocean_boundary%latent_flux(i,j)
-          write(logunit,F01)'import: day, secs, j, i, runoff          = ',day,secs,j,i,ice_ocean_boundary%rofl_flux(i,j) + ice_ocean_boundary%rofi_flux(i,j)
-          write(logunit,F01)'import: day, secs, j, i, psurf           = ',day,secs,j,i,ice_ocean_boundary%p(i,j)
-          write(logunit,F01)'import: day, secs, j, i, salt_flux       = ',day,secs,j,i,ice_ocean_boundary%salt_flux(i,j)
-          write(logunit,F01)'import: day, secs, j, i, sw_flux_vis_dir = ',day,secs,j,i,ice_ocean_boundary%sw_flux_vis_dir(i,j)
-          write(logunit,F01)'import: day, secs, j, i, sw_flux_vis_dif = ',day,secs,j,i,ice_ocean_boundary%sw_flux_vis_dif(i,j)
-          write(logunit,F01)'import: day, secs, j, i, sw_flux_nir_dir = ',day,secs,j,i,ice_ocean_boundary%sw_flux_nir_dir(i,j)
-          write(logunit,F01)'import: day, secs, j, i, sw_flux_nir_dif = ',day,secs,j,i,ice_ocean_boundary%sw_flux_nir_dir(i,j)
+          write(logunit,F01)'import: day, secs, j, i, latent_flux     = ',&
+                            day,secs,j,i,ice_ocean_boundary%latent_flux(i,j)
+          write(logunit,F01)'import: day, secs, j, i, runoff          = ',&
+                            day,secs,j,i,ice_ocean_boundary%rofl_flux(i,j) + ice_ocean_boundary%rofi_flux(i,j)
+          write(logunit,F01)'import: day, secs, j, i, psurf           = ',&
+                            day,secs,j,i,ice_ocean_boundary%p(i,j)
+          write(logunit,F01)'import: day, secs, j, i, salt_flux       = ',&
+                            day,secs,j,i,ice_ocean_boundary%salt_flux(i,j)
+          write(logunit,F01)'import: day, secs, j, i, sw_flux_vis_dir = ',&
+                            day,secs,j,i,ice_ocean_boundary%sw_flux_vis_dir(i,j)
+          write(logunit,F01)'import: day, secs, j, i, sw_flux_vis_dif = ',&
+                            day,secs,j,i,ice_ocean_boundary%sw_flux_vis_dif(i,j)
+          write(logunit,F01)'import: day, secs, j, i, sw_flux_nir_dir = ',&
+                            day,secs,j,i,ice_ocean_boundary%sw_flux_nir_dir(i,j)
+          write(logunit,F01)'import: day, secs, j, i, sw_flux_nir_dif = ',&
+                            day,secs,j,i,ice_ocean_boundary%sw_flux_nir_dir(i,j)
         end do
       end do
     end if

diff --git a/config_src/mct_driver/ocn_comp_mct.F90 b/config_src/mct_driver/ocn_comp_mct.F90
@@ -88,9 +88,9 @@ module ocn_comp_mct
   type(ocean_grid_type),   pointer :: grid => NULL()       !< The grid structure
   type(seq_infodata_type), pointer :: infodata             !< The input info type
   type(cpl_indices_type)           :: ind                  !< Variable IDs
-  logical                          :: sw_decomp            !< Controls whether shortwave is decomposed into four components
+  logical                          :: sw_decomp            !< Controls whether shortwave is decomposed into 4 components
   real                             :: c1, c2, c3, c4       !< Coeffs. used in the shortwave decomposition  i/o
-  integer                          :: stdout               !< standard output unit. (by default, it should point to ocn.log.* file)
+  integer                          :: stdout               !< standard output unit. (by default, points to ocn.log.* )
   character(len=384)               :: pointer_filename     !< Name of the ascii file that contains the path
                                                            !! and filename of the latest restart file.
 end type MCT_MOM_Data

diff --git a/config_src/mct_driver/ocn_cpl_indices.F90 b/config_src/mct_driver/ocn_cpl_indices.F90
@@ -69,7 +69,8 @@ module ocn_cpl_indices
 
     ! optional per thickness category fields
     integer, dimension(:), allocatable :: x2o_frac_col      !< Fraction of ocean cell, per column
-    integer, dimension(:), allocatable :: x2o_fracr_col     !< Fraction of ocean cell used  in radiation computations, per column
+    integer, dimension(:), allocatable :: x2o_fracr_col     !< Fraction of ocean cell used  in radiation computations,
+                                                            !! per column
     integer, dimension(:), allocatable :: x2o_qsw_fracr_col !< qsw * fracr, per column
   end type cpl_indices_type