mom_ice_shelf::ice_shelf_cs integer integer mom_ice_shelf::ice_shelf_cs::id_melt id_melt = -1 Diagnostic handles. integer integer mom_ice_shelf::ice_shelf_cs::id_exch_vel_s id_exch_vel_s = -1 Diagnostic handles. integer integer mom_ice_shelf::ice_shelf_cs::id_exch_vel_t id_exch_vel_t = -1 Diagnostic handles. integer integer mom_ice_shelf::ice_shelf_cs::id_tfreeze id_tfreeze = -1 Diagnostic handles. integer integer mom_ice_shelf::ice_shelf_cs::id_tfl_shelf id_tfl_shelf = -1 Diagnostic handles. integer integer mom_ice_shelf::ice_shelf_cs::id_thermal_driving id_thermal_driving = -1 Diagnostic handles. integer integer mom_ice_shelf::ice_shelf_cs::id_haline_driving id_haline_driving = -1 Diagnostic handles. integer integer mom_ice_shelf::ice_shelf_cs::id_u_ml id_u_ml = -1 Diagnostic handles. integer integer mom_ice_shelf::ice_shelf_cs::id_v_ml id_v_ml = -1 Diagnostic handles. integer integer mom_ice_shelf::ice_shelf_cs::id_sbdry id_sbdry = -1 Diagnostic handles. integer integer mom_ice_shelf::ice_shelf_cs::id_h_shelf id_h_shelf = -1 Diagnostic handles. integer integer mom_ice_shelf::ice_shelf_cs::id_h_mask id_h_mask = -1 Diagnostic handles. integer integer mom_ice_shelf::ice_shelf_cs::id_surf_elev id_surf_elev = -1 Diagnostic handles. integer integer mom_ice_shelf::ice_shelf_cs::id_bathym id_bathym = -1 Diagnostic handles. integer integer mom_ice_shelf::ice_shelf_cs::id_area_shelf_h id_area_shelf_h = -1 Diagnostic handles. integer integer mom_ice_shelf::ice_shelf_cs::id_ustar_shelf id_ustar_shelf = -1 Diagnostic handles. integer integer mom_ice_shelf::ice_shelf_cs::id_shelf_mass id_shelf_mass = -1 Diagnostic handles. integer integer mom_ice_shelf::ice_shelf_cs::id_mass_flux id_mass_flux = -1 Diagnostic handles. type(mom_restart_cs), pointer type(mom_restart_cs), pointer mom_ice_shelf::ice_shelf_cs::restart_csp restart_csp => NULL() A pointer to the restart control structure for the ice shelves. type(ocean_grid_type) type(ocean_grid_type) mom_ice_shelf::ice_shelf_cs::grid grid Grid for the ice-shelf model. type(unit_scale_type), pointer type(unit_scale_type), pointer mom_ice_shelf::ice_shelf_cs::us us => NULL() A structure containing various unit conversion factors. type(ocean_grid_type), pointer type(ocean_grid_type), pointer mom_ice_shelf::ice_shelf_cs::ocn_grid ocn_grid => NULL() A pointer to the ocean model grid The rest is private. real real mom_ice_shelf::ice_shelf_cs::flux_factor flux_factor = 1.0 A factor that can be used to turn off ice shelf melting (flux_factor = 0) [nondim]. character(len=128) character(len=128) mom_ice_shelf::ice_shelf_cs::restart_output_dir restart_output_dir = ' ' The directory in which to write restart files. type(ice_shelf_state), pointer type(ice_shelf_state), pointer mom_ice_shelf::ice_shelf_cs::iss iss => NULL() A structure with elements that describe the ice-shelf state. type(ice_shelf_dyn_cs), pointer type(ice_shelf_dyn_cs), pointer mom_ice_shelf::ice_shelf_cs::dcs dcs => NULL() The control structure for the ice-shelf dynamics. real, dimension(:,:), pointer real, dimension(:,:), pointer mom_ice_shelf::ice_shelf_cs::utide utide => NULL() An unresolved tidal velocity [L T-1 ~> m s-1]. real real mom_ice_shelf::ice_shelf_cs::ustar_bg ustar_bg A minimum value for ustar under ice shelves [Z T-1 ~> m s-1]. real real mom_ice_shelf::ice_shelf_cs::cdrag cdrag drag coefficient under ice shelves [nondim]. real real mom_ice_shelf::ice_shelf_cs::g_earth g_earth The gravitational acceleration [L2 Z-1 T-2 ~> m s-2]. real real mom_ice_shelf::ice_shelf_cs::cp cp The heat capacity of sea water [Q degC-1 ~> J kg-1 degC-1]. real real mom_ice_shelf::ice_shelf_cs::rho_ocn rho_ocn A reference ocean density [R ~> kg m-3]. real real mom_ice_shelf::ice_shelf_cs::cp_ice cp_ice The heat capacity of fresh ice [Q degC-1 ~> J kg-1 degC-1]. real real mom_ice_shelf::ice_shelf_cs::gamma_t gamma_t The (fixed) turbulent exchange velocity in the 2-equation formulation [Z T-1 ~> m s-1]. real real mom_ice_shelf::ice_shelf_cs::salin_ice salin_ice The salinity of shelf ice [ppt]. real real mom_ice_shelf::ice_shelf_cs::temp_ice temp_ice The core temperature of shelf ice [degC]. real real mom_ice_shelf::ice_shelf_cs::kv_ice kv_ice The viscosity of ice [L4 Z-2 T-1 ~> m2 s-1]. real real mom_ice_shelf::ice_shelf_cs::density_ice density_ice A typical density of ice [R ~> kg m-3]. real real mom_ice_shelf::ice_shelf_cs::kv_molec kv_molec The molecular kinematic viscosity of sea water [Z2 T-1 ~> m2 s-1]. real real mom_ice_shelf::ice_shelf_cs::kd_molec_salt kd_molec_salt The molecular diffusivity of salt [Z2 T-1 ~> m2 s-1]. real real mom_ice_shelf::ice_shelf_cs::kd_molec_temp kd_molec_temp The molecular diffusivity of heat [Z2 T-1 ~> m2 s-1]. real real mom_ice_shelf::ice_shelf_cs::lat_fusion lat_fusion The latent heat of fusion [Q ~> J kg-1]. real real mom_ice_shelf::ice_shelf_cs::gamma_t_3eq gamma_t_3eq Nondimensional heat-transfer coefficient, used in the 3Eq. formulation. real real mom_ice_shelf::ice_shelf_cs::gamma_s_3eq gamma_s_3eq Nondimensional salt-transfer coefficient, used in the 3Eq. formulation This number should be specified by the user. real real mom_ice_shelf::ice_shelf_cs::col_mass_melt_threshold col_mass_melt_threshold An ocean column mass below the iceshelf below which melting does not occur [R Z ~> kg m-2]. logical logical mom_ice_shelf::ice_shelf_cs::mass_from_file mass_from_file Read the ice shelf mass from a file every dt. real real mom_ice_shelf::ice_shelf_cs::time_step time_step this is the shortest timestep that the ice shelf sees, and is equal to the forcing timestep (it is passed in when the shelf is initialized - so need to reorganize MOM driver. it will be the prognistic timestep ... maybe. logical logical mom_ice_shelf::ice_shelf_cs::solo_ice_sheet solo_ice_sheet whether the ice model is running without being coupled to the ocean logical logical mom_ice_shelf::ice_shelf_cs::gl_regularize gl_regularize whether to regularize the floatation condition at the grounding line a la Goldberg Holland Schoof 2009 logical logical mom_ice_shelf::ice_shelf_cs::gl_couple gl_couple whether to let the floatation condition be determined by ocean column thickness means update_OD_ffrac will be called (note: GL_regularize and GL_couple should be exclusive) logical logical mom_ice_shelf::ice_shelf_cs::calve_to_mask calve_to_mask If true, calve any ice that passes outside of a masked area. real real mom_ice_shelf::ice_shelf_cs::min_thickness_simple_calve min_thickness_simple_calve min. ice shelf thickness criteria for calving [Z ~> m]. real real mom_ice_shelf::ice_shelf_cs::t0 t0 temperature at ocean surface in the restoring region [degC] real real mom_ice_shelf::ice_shelf_cs::s0 s0 Salinity at ocean surface in the restoring region [ppt]. real real mom_ice_shelf::ice_shelf_cs::input_flux input_flux Ice volume flux at an upstream open boundary [m3 s-1]. real real mom_ice_shelf::ice_shelf_cs::input_thickness input_thickness Ice thickness at an upstream open boundary [m]. type(time_type) type(time_type) mom_ice_shelf::ice_shelf_cs::time time The component's time. type(eos_type), pointer type(eos_type), pointer mom_ice_shelf::ice_shelf_cs::eqn_of_state eqn_of_state => NULL() Type that indicates the equation of state to use. logical logical mom_ice_shelf::ice_shelf_cs::active_shelf_dynamics active_shelf_dynamics True if the ice shelf mass changes as a result the dynamic ice-shelf model. logical logical mom_ice_shelf::ice_shelf_cs::override_shelf_movement override_shelf_movement If true, user code specifies the shelf movement instead of using the dynamic ice-shelf mode. logical logical mom_ice_shelf::ice_shelf_cs::isthermo isthermo True if the ice shelf can exchange heat and mass with the underlying ocean. logical logical mom_ice_shelf::ice_shelf_cs::threeeq threeeq If true, the 3 equation consistency equations are used to calculate the flux at the ocean-ice interface. logical logical mom_ice_shelf::ice_shelf_cs::insulator insulator If true, ice shelf is a perfect insulator. logical logical mom_ice_shelf::ice_shelf_cs::const_gamma const_gamma If true, gamma_T is specified by the user. logical logical mom_ice_shelf::ice_shelf_cs::constant_sea_level constant_sea_level if true, apply an evaporative, heat and salt fluxes. It will avoid large increase in sea level. real real mom_ice_shelf::ice_shelf_cs::min_ocean_mass_float min_ocean_mass_float The minimum ocean mass per unit area before the ice shelf is considered to float when constant_sea_level is used [R Z ~> kg m-2]. real real mom_ice_shelf::ice_shelf_cs::cutoff_depth cutoff_depth Depth above which melt is set to zero (>= 0) [Z ~> m]. logical logical mom_ice_shelf::ice_shelf_cs::find_salt_root find_salt_root If true, if true find Sbdry using a quadratic eq. real real mom_ice_shelf::ice_shelf_cs::tfr_0_0 tfr_0_0 The freezing point at 0 pressure and 0 salinity [degC]. real real mom_ice_shelf::ice_shelf_cs::dtfr_ds dtfr_ds Partial derivative of freezing temperature with salinity [degC ppt-1]. real real mom_ice_shelf::ice_shelf_cs::dtfr_dp dtfr_dp Partial derivative of freezing temperature with pressure [degC T2 R-1 L-2 ~> degC Pa-1]. integer integer mom_ice_shelf::ice_shelf_cs::id_read_mass id_read_mass An integer handle used in time interpolation of the ice shelf mass read from a file. integer integer mom_ice_shelf::ice_shelf_cs::id_read_area id_read_area An integer handle used in time interpolation of the ice shelf mass read from a file. type(diag_ctrl), pointer type(diag_ctrl), pointer mom_ice_shelf::ice_shelf_cs::diag diag => NULL() A structure that is used to control diagnostic output. type(user_ice_shelf_cs), pointer type(user_ice_shelf_cs), pointer mom_ice_shelf::ice_shelf_cs::user_cs user_cs => NULL() A pointer to the control structure for user-supplied modifications to the ice shelf code. logical logical mom_ice_shelf::ice_shelf_cs::debug debug If true, write verbose checksums for debugging purposes and use reproducible sums. Control structure that contains ice shelf parameters and diagnostics handles. real unit_scale_type ocean_grid_type character(len=128) logical mom_ice_shelf::ice_shelf_cs override_shelf_movement solo_ice_sheet constant_sea_level active_shelf_dynamics find_salt_root calve_to_mask gl_couple mass_from_file threeeq const_gamma ... us dcs iss time eqn_of_state restart_csp user_cs diag restart_output_dir id_bathym id_exch_vel_s id_melt id_exch_vel_t id_sbdry id_tfl_shelf id_h_shelf id_read_mass id_ustar_shelf id_surf_elev ... input_thickness t0 gamma_t cdrag dtfr_ds s0 gamma_t_3eq cutoff_depth gamma_s_3eq temp_ice ... ocn_grid grid time_type type(eos_type), pointer diag_ctrl type(ice_shelf_dyn_cs), pointer type(user_ice_shelf_cs), pointer integer type(mom_restart_cs), pointer ice_shelf_state mom_ice_shelf::ice_shelf_csactive_shelf_dynamics mom_ice_shelf::ice_shelf_cscalve_to_mask mom_ice_shelf::ice_shelf_cscdrag mom_ice_shelf::ice_shelf_cscol_mass_melt_threshold mom_ice_shelf::ice_shelf_csconst_gamma mom_ice_shelf::ice_shelf_csconstant_sea_level mom_ice_shelf::ice_shelf_cscp mom_ice_shelf::ice_shelf_cscp_ice mom_ice_shelf::ice_shelf_cscutoff_depth mom_ice_shelf::ice_shelf_csdcs mom_ice_shelf::ice_shelf_csdebug mom_ice_shelf::ice_shelf_csdensity_ice mom_ice_shelf::ice_shelf_csdiag mom_ice_shelf::ice_shelf_csdtfr_dp mom_ice_shelf::ice_shelf_csdtfr_ds mom_ice_shelf::ice_shelf_cseqn_of_state mom_ice_shelf::ice_shelf_csfind_salt_root mom_ice_shelf::ice_shelf_csflux_factor mom_ice_shelf::ice_shelf_csg_earth mom_ice_shelf::ice_shelf_csgamma_s_3eq mom_ice_shelf::ice_shelf_csgamma_t mom_ice_shelf::ice_shelf_csgamma_t_3eq mom_ice_shelf::ice_shelf_csgl_couple mom_ice_shelf::ice_shelf_csgl_regularize mom_ice_shelf::ice_shelf_csgrid mom_ice_shelf::ice_shelf_csid_area_shelf_h mom_ice_shelf::ice_shelf_csid_bathym mom_ice_shelf::ice_shelf_csid_exch_vel_s mom_ice_shelf::ice_shelf_csid_exch_vel_t mom_ice_shelf::ice_shelf_csid_h_mask mom_ice_shelf::ice_shelf_csid_h_shelf mom_ice_shelf::ice_shelf_csid_haline_driving mom_ice_shelf::ice_shelf_csid_mass_flux mom_ice_shelf::ice_shelf_csid_melt mom_ice_shelf::ice_shelf_csid_read_area mom_ice_shelf::ice_shelf_csid_read_mass mom_ice_shelf::ice_shelf_csid_sbdry mom_ice_shelf::ice_shelf_csid_shelf_mass mom_ice_shelf::ice_shelf_csid_surf_elev mom_ice_shelf::ice_shelf_csid_tfl_shelf mom_ice_shelf::ice_shelf_csid_tfreeze mom_ice_shelf::ice_shelf_csid_thermal_driving mom_ice_shelf::ice_shelf_csid_u_ml mom_ice_shelf::ice_shelf_csid_ustar_shelf mom_ice_shelf::ice_shelf_csid_v_ml mom_ice_shelf::ice_shelf_csinput_flux mom_ice_shelf::ice_shelf_csinput_thickness mom_ice_shelf::ice_shelf_csinsulator mom_ice_shelf::ice_shelf_csiss mom_ice_shelf::ice_shelf_csisthermo mom_ice_shelf::ice_shelf_cskd_molec_salt mom_ice_shelf::ice_shelf_cskd_molec_temp mom_ice_shelf::ice_shelf_cskv_ice mom_ice_shelf::ice_shelf_cskv_molec mom_ice_shelf::ice_shelf_cslat_fusion mom_ice_shelf::ice_shelf_csmass_from_file mom_ice_shelf::ice_shelf_csmin_ocean_mass_float mom_ice_shelf::ice_shelf_csmin_thickness_simple_calve mom_ice_shelf::ice_shelf_csocn_grid mom_ice_shelf::ice_shelf_csoverride_shelf_movement mom_ice_shelf::ice_shelf_csrestart_csp mom_ice_shelf::ice_shelf_csrestart_output_dir mom_ice_shelf::ice_shelf_csrho_ocn mom_ice_shelf::ice_shelf_css0 mom_ice_shelf::ice_shelf_cssalin_ice mom_ice_shelf::ice_shelf_cssolo_ice_sheet mom_ice_shelf::ice_shelf_cst0 mom_ice_shelf::ice_shelf_cstemp_ice mom_ice_shelf::ice_shelf_cstfr_0_0 mom_ice_shelf::ice_shelf_csthreeeq mom_ice_shelf::ice_shelf_cstime mom_ice_shelf::ice_shelf_cstime_step mom_ice_shelf::ice_shelf_csus mom_ice_shelf::ice_shelf_csuser_cs mom_ice_shelf::ice_shelf_csustar_bg mom_ice_shelf::ice_shelf_csutide