Add missing doc comments to undocumented variables in ice_shelf

- MOM_ice_shelf_dynamics.F90: split loop_bounds_type members (ish, ieh,
- MOM_ice_shelf.F90: add missing = -1 initializer to id_dhdt_shelf

A disclosure: Copilot has been used to make these changes.

Author: OlgaSergienko

src/ice_shelf/MOM_ice_shelf.F90

@@ -211,7 +211,7 @@ module MOM_ice_shelf
              id_tfreeze = -1, id_tfl_shelf = -1, &
              id_thermal_driving = -1, id_haline_driving = -1, &
              id_u_ml = -1, id_v_ml = -1, id_sbdry = -1, &
-             id_h_shelf = -1, id_dhdt_shelf, id_h_mask = -1, id_frazil = -1, &
+             id_h_shelf = -1, id_dhdt_shelf = -1, id_h_mask = -1, id_frazil = -1, &
              id_surf_elev = -1, id_bathym = -1, &
              id_area_shelf_h = -1, &
              id_ustar_shelf = -1, id_shelf_mass = -1, id_mass_flux = -1, &

src/ice_shelf/MOM_ice_shelf_diag_mediator.F90

@@ -133,8 +133,7 @@ module MOM_IS_diag_mediator
   real, dimension(:,:),   pointer :: mask2dBu  => null() !< 2D mask array for cell-corner points [nondim]
   real, dimension(:,:),   pointer :: mask2dCu  => null() !< 2D mask array for east-face points [nondim]
   real, dimension(:,:),   pointer :: mask2dCv  => null() !< 2D mask array for north-face points [nondim]
-  !> Computational domain mask arrays for 2D diagnostics [nondim]
-  real, dimension(:,:),   pointer :: mask2dT_comp => null()
+  real, dimension(:,:),   pointer :: mask2dT_comp => null() !< 2D cell-center mask on the computational domain [nondim]
 
 ! Space for diagnostics is dynamically allocated as it is needed.
 ! The chunk size is how much the array should grow on each new allocation.

src/ice_shelf/MOM_ice_shelf_dynamics.F90

@@ -255,9 +255,10 @@ module MOM_ice_shelf_dynamics
 
 !> A container for loop bounds
 type :: loop_bounds_type ; private
-  !>@{ Loop bounds
-  integer :: ish, ieh, jsh, jeh
-  !>@}
+  integer :: ish !< Starting i-index of the computational domain [nondim]
+  integer :: ieh !< Ending i-index of the computational domain [nondim]
+  integer :: jsh !< Starting j-index of the computational domain [nondim]
+  integer :: jeh !< Ending j-index of the computational domain [nondim]
 end type loop_bounds_type
 
 contains