add intent attributes

mom-ocean · Nov 18, 2020 · f9af211 · f9af211
1 parent 04b21e0
commit f9af211
Showing 1 changed file with 7 additions and 6 deletions.
diff --git a/src/ice_shelf/MOM_ice_shelf.F90 b/src/ice_shelf/MOM_ice_shelf.F90
@@ -210,8 +210,8 @@ subroutine shelf_calc_flux(sfc_state_in, fluxes_in, Time, time_step, CS)
   type(surface), target,         intent(inout) :: sfc_state_in !< A structure containing fields that
                                                 !! describe the surface state of the ocean.  The
                                                 !! intent is only inout to allow for halo updates.
-  type(forcing),         target        :: fluxes_in !< structure containing pointers to any possible
-                                                !! thermodynamic or mass-flux forcing fields.
+  type(forcing),  target, intent(inout)        :: fluxes_in !< structure containing pointers to any
+                                                !! possible thermodynamic or mass-flux forcing fields.
   type(time_type),       intent(in)    :: Time  !< Start time of the fluxes.
   real,                  intent(in)    :: time_step !< Length of time over which these fluxes
                                                 !! will be applied [s].
@@ -810,7 +810,8 @@ subroutine add_shelf_forces(Ocn_grid, US, CS, forces_in, do_shelf_area, external
   type(ocean_grid_type), intent(in)    :: Ocn_grid !< The ocean's grid structure.
   type(unit_scale_type), intent(in)    :: US   !< A dimensional unit scaling type
   type(ice_shelf_CS),    pointer       :: CS   !< This module's control structure.
-  type(mech_forcing),    target        :: forces_in !< A structure with the driving mechanical forces
+  type(mech_forcing),target, intent(inout) :: forces_in !< A structure with the
+                                               !! driving mechanical forces
   logical, optional,     intent(in)    :: do_shelf_area !< If true find the shelf-covered areas.
   logical, optional,     intent(in)    :: external_call !< If true the incoming forcing type
                                                !! is using the input grid metric and needs
@@ -1156,9 +1157,9 @@ subroutine initialize_ice_shelf(param_file, ocn_grid, Time, CS, diag, forces_in,
   type(time_type),              intent(inout) :: Time !< The clock that that will indicate the model time
   type(ice_shelf_CS),           pointer       :: CS   !< A pointer to the ice shelf control structure
   type(diag_ctrl),              pointer       :: diag !< A structure that is used to regulate the diagnostic output.
-  type(mech_forcing), optional, target        :: forces_in !< A structure with the driving mechanical forces
-  type(forcing),      optional, target        :: fluxes_in !< A structure containing pointers to any possible
-                                                           !! thermodynamic or mass-flux forcing fields.
+  type(mech_forcing), optional, target, intent(inout) :: forces_in !< A structure with the driving mechanical forces
+  type(forcing),      optional, target, intent(inout) :: fluxes_in !< A structure containing pointers to any
+                                                           !!  possible thermodynamic or mass-flux forcing fields.
   type(surface), target, optional, intent(inout) :: sfc_state_in !< A structure containing fields that
                                                 !! describe the surface state of the ocean.  The
                                                 !! intent is only inout to allow for halo updates.