Clean up comments from previous commit

Several comments exceeded max line length check, and I also used doxygen
notation (!<) for descriptions of local variables

Author: mnlevy1981

config_src/drivers/solo_driver/MOM_surface_forcing.F90

@@ -1562,13 +1562,20 @@ subroutine MARBL_forcing_from_data_override(fluxes, day, G, US, CS)
   ! Local variables
   real, pointer, dimension(:,:) :: atm_co2_prog         =>NULL() !< Prognostic atmospheric CO2 concentration [ppm]
   real, pointer, dimension(:,:) :: atm_co2_diag         =>NULL() !< Diagnostic atmospheric CO2 concentration [ppm]
-  real, pointer, dimension(:,:) :: atm_fine_dust_flux   =>NULL() !< Fine dust flux from atmosphere [R Z T-1 ~> kg m-2 s-1]
-  real, pointer, dimension(:,:) :: atm_coarse_dust_flux =>NULL() !< Coarse dust flux from atmosphere [R Z T-1 ~> kg m-2 s-1]
-  real, pointer, dimension(:,:) :: seaice_dust_flux     =>NULL() !< Dust flux from seaice [R Z T-1 ~> kg m-2 s-1]
-  real, pointer, dimension(:,:) :: atm_bc_flux          =>NULL() !< Black carbon flux from atmosphere [R Z T-1 ~> kg m-2 s-1]
-  real, pointer, dimension(:,:) :: seaice_bc_flux       =>NULL() !< Black carbon flux from seaice [R Z T-1 ~> kg m-2 s-1]
-  real, pointer, dimension(:,:) :: nhx_dep              =>NULL() !< Nitrogen deposition [R Z T-1 ~> kg m-2 s-1]
-  real, pointer, dimension(:,:) :: noy_dep              =>NULL() !< Nitrogen deposition [R Z T-1 ~> kg m-2 s-1]
+  real, pointer, dimension(:,:) :: atm_fine_dust_flux   =>NULL() !< Fine dust flux from atmosphere
+                                                                 !! [R Z T-1 ~> kg m-2 s-1]
+  real, pointer, dimension(:,:) :: atm_coarse_dust_flux =>NULL() !< Coarse dust flux from atmosphere
+                                                                 !! [R Z T-1 ~> kg m-2 s-1]
+  real, pointer, dimension(:,:) :: seaice_dust_flux     =>NULL() !< Dust flux from seaice
+                                                                 !! [R Z T-1 ~> kg m-2 s-1]
+  real, pointer, dimension(:,:) :: atm_bc_flux          =>NULL() !< Black carbon flux from atmosphere
+                                                                 !! [R Z T-1 ~> kg m-2 s-1]
+  real, pointer, dimension(:,:) :: seaice_bc_flux       =>NULL() !< Black carbon flux from seaice
+                                                                 !! [R Z T-1 ~> kg m-2 s-1]
+  real, pointer, dimension(:,:) :: nhx_dep              =>NULL() !< Nitrogen deposition
+                                                                 !! [R Z T-1 ~> kg m-2 s-1]
+  real, pointer, dimension(:,:) :: noy_dep              =>NULL() !< Nitrogen deposition
+                                                                 !! [R Z T-1 ~> kg m-2 s-1]
   integer :: isc, iec, jsc, jec
 
   ! Necessary null pointers for arguments to convert_driver_fields_to_forcings()

src/tracer/MARBL_tracers.F90

@@ -582,9 +582,9 @@ function register_MARBL_tracers(HI, GV, US, param_file, CS, tr_Reg, restart_CS,
   logical :: register_MARBL_tracers
   ! read_Z_edges() has several mandatory arguments that we do not use given our expectation
   ! of how the file being read in was created
-  logical :: Z_edges_has_edges   !< required argument for read_Z_edges()
-  logical :: Z_edges_use_missing !< required argument for read_Z_edges()
-  real :: Z_edges_missing        !< required argument for read_Z_edges() [CU ~> conc]
+  logical :: Z_edges_has_edges
+  logical :: Z_edges_use_missing
+  real :: Z_edges_missing        ! required argument for read_Z_edges() [CU ~> conc]
   integer :: isd, ied, jsd, jed, nz, m, k, kbot
   isd = HI%isd ; ied = HI%ied ; jsd = HI%jsd ; jed = HI%jed ; nz = GV%ke