mom_surface_forcing_gfdl::surface_forcing_cs integer integer mom_surface_forcing_gfdl::surface_forcing_cs::wind_stagger wind_stagger AGRID, BGRID_NE, or CGRID_NE (integer values from MOM_domains) to indicate the staggering of the winds that are being provided in calls to update_ocean_model. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::use_temperature use_temperature If true, temp and saln used as state variables. real real mom_surface_forcing_gfdl::surface_forcing_cs::wind_stress_multiplier wind_stress_multiplier A multiplier applied to incoming wind stress [nondim]. real real mom_surface_forcing_gfdl::surface_forcing_cs::rho0 rho0 Boussinesq reference density [R ~> kg m-3]. real real mom_surface_forcing_gfdl::surface_forcing_cs::area_surf area_surf = -1.0 Total ocean surface area [m2]. real real mom_surface_forcing_gfdl::surface_forcing_cs::latent_heat_fusion latent_heat_fusion Latent heat of fusion [J kg-1]. real real mom_surface_forcing_gfdl::surface_forcing_cs::latent_heat_vapor latent_heat_vapor Latent heat of vaporization [J kg-1]. real real mom_surface_forcing_gfdl::surface_forcing_cs::max_p_surf max_p_surf The maximum surface pressure that can be exerted by the atmosphere and floating sea-ice [R L2 T-2 ~> Pa]. This is needed because the FMS coupling structure does not limit the water that can be frozen out of the ocean and the ice-ocean heat fluxes are treated explicitly. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::use_limited_p_ssh use_limited_p_ssh If true, return the sea surface height with the correction for the atmospheric (and sea-ice) pressure limited by max_p_surf instead of the full atmospheric pressure. The default is true. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::approx_net_mass_src approx_net_mass_src If true, use the net mass sources from the ice-ocean boundary type without any further adjustments to drive the ocean dynamics. The actual net mass source may differ due to corrections. real real mom_surface_forcing_gfdl::surface_forcing_cs::gust_const gust_const Constant unresolved background gustiness for ustar [R L Z T-1 ~> Pa]. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::read_gust_2d read_gust_2d If true, use a 2-dimensional gustiness supplied from an input file. real, dimension(:,:), pointer real, dimension(:,:), pointer mom_surface_forcing_gfdl::surface_forcing_cs::tke_tidal tke_tidal => NULL() Turbulent kinetic energy introduced to the bottom boundary layer. real, dimension(:,:), pointer real, dimension(:,:), pointer mom_surface_forcing_gfdl::surface_forcing_cs::gust gust => NULL() A spatially varying unresolved background gustiness that. real, dimension(:,:), pointer real, dimension(:,:), pointer mom_surface_forcing_gfdl::surface_forcing_cs::ustar_tidal ustar_tidal => NULL() Tidal contribution to the bottom friction velocity [Z T-1 ~> m s-1]. real real mom_surface_forcing_gfdl::surface_forcing_cs::cd_tides cd_tides Drag coefficient that applies to the tides (nondimensional) real real mom_surface_forcing_gfdl::surface_forcing_cs::utide utide Constant tidal velocity to use if read_tideamp is false [Z T-1 ~> m s-1]. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::read_tideamp read_tideamp If true, spatially varying tidal amplitude read from a file. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::rigid_sea_ice rigid_sea_ice If true, sea-ice exerts a rigidity that acts to damp surface deflections (especially surface gravity waves). The default is false. real real mom_surface_forcing_gfdl::surface_forcing_cs::g_earth g_earth Gravitational acceleration [L2 Z-1 T-2 ~> m s-2]. real real mom_surface_forcing_gfdl::surface_forcing_cs::kv_sea_ice kv_sea_ice Viscosity in sea-ice that resists sheared vertical motions [L4 Z-2 T-1 ~> m2 s-1]. real real mom_surface_forcing_gfdl::surface_forcing_cs::density_sea_ice density_sea_ice Typical density of sea-ice [R ~> kg m-3]. The value is only used to convert the ice pressure into appropriate units for use with Kv_sea_ice. real real mom_surface_forcing_gfdl::surface_forcing_cs::rigid_sea_ice_mass rigid_sea_ice_mass A mass per unit area of sea-ice beyond which sea-ice viscosity becomes effective [R Z ~> kg m-2], typically of order 1000 kg m-2. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::allow_flux_adjustments allow_flux_adjustments If true, use data_override to obtain flux adjustments. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::restore_salt restore_salt If true, the coupled MOM driver adds a term to restore surface salinity to a specified value. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::restore_temp restore_temp If true, the coupled MOM driver adds a term to restore sea surface temperature to a specified value. real real mom_surface_forcing_gfdl::surface_forcing_cs::flux_const flux_const Piston velocity for surface restoring [Z T-1 ~> m s-1]. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::salt_restore_as_sflux salt_restore_as_sflux If true, SSS restore as salt flux instead of water flux. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::adjust_net_srestore_to_zero adjust_net_srestore_to_zero Adjust srestore to zero (for both salt_flux or vprec) logical logical mom_surface_forcing_gfdl::surface_forcing_cs::adjust_net_srestore_by_scaling adjust_net_srestore_by_scaling Adjust srestore w/o moving zero contour. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::adjust_net_fresh_water_to_zero adjust_net_fresh_water_to_zero Adjust net surface fresh-water (with restoring) to zero. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::use_net_fw_adjustment_sign_bug use_net_fw_adjustment_sign_bug Use the wrong sign when adjusting net FW. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::adjust_net_fresh_water_by_scaling adjust_net_fresh_water_by_scaling Adjust net surface fresh-water w/o moving zero contour. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::mask_srestore_under_ice mask_srestore_under_ice If true, use an ice mask defined by frazil criteria for salinity restoring. real real mom_surface_forcing_gfdl::surface_forcing_cs::ice_salt_concentration ice_salt_concentration Salt concentration for sea ice [kg/kg]. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::mask_srestore_marginal_seas mask_srestore_marginal_seas If true, then mask SSS restoring in marginal seas. real real mom_surface_forcing_gfdl::surface_forcing_cs::max_delta_srestore max_delta_srestore Maximum delta salinity used for restoring. real real mom_surface_forcing_gfdl::surface_forcing_cs::max_delta_trestore max_delta_trestore Maximum delta sst used for restoring. real, dimension(:,:), pointer real, dimension(:,:), pointer mom_surface_forcing_gfdl::surface_forcing_cs::basin_mask basin_mask => NULL() Mask for surface salinity restoring by basin. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::answers_2018 answers_2018 If true, use the order of arithmetic and expressions that recover the answers from the end of 2018. Otherwise, use a simpler expression to calculate gustiness. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::fix_ustar_gustless_bug fix_ustar_gustless_bug If true correct a bug in the time-averaging of the gustless wind friction velocity. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::check_no_land_fluxes check_no_land_fluxes Return warning if IOB flux over land is non-zero. type(diag_ctrl), pointer type(diag_ctrl), pointer mom_surface_forcing_gfdl::surface_forcing_cs::diag diag => NULL() Structure to regulate diagnostic output timing. character(len=200) character(len=200) mom_surface_forcing_gfdl::surface_forcing_cs::inputdir inputdir Directory where NetCDF input files are. character(len=200) character(len=200) mom_surface_forcing_gfdl::surface_forcing_cs::salt_restore_file salt_restore_file Filename for salt restoring data. character(len=30) character(len=30) mom_surface_forcing_gfdl::surface_forcing_cs::salt_restore_var_name salt_restore_var_name Name of surface salinity in salt_restore_file. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::mask_srestore mask_srestore If true, apply a 2-dimensional mask to the surface salinity restoring fluxes. The masking file should be in inputdir/salt_restore_mask.nc and the field should be named 'mask'. real, dimension(:,:), pointer real, dimension(:,:), pointer mom_surface_forcing_gfdl::surface_forcing_cs::srestore_mask srestore_mask => NULL() mask for SSS restoring character(len=200) character(len=200) mom_surface_forcing_gfdl::surface_forcing_cs::temp_restore_file temp_restore_file Filename for sst restoring data. character(len=30) character(len=30) mom_surface_forcing_gfdl::surface_forcing_cs::temp_restore_var_name temp_restore_var_name Name of surface temperature in temp_restore_file. logical logical mom_surface_forcing_gfdl::surface_forcing_cs::mask_trestore mask_trestore If true, apply a 2-dimensional mask to the surface temperature restoring fluxes. The masking file should be in inputdir/temp_restore_mask.nc and the field should be named 'mask'. real, dimension(:,:), pointer real, dimension(:,:), pointer mom_surface_forcing_gfdl::surface_forcing_cs::trestore_mask trestore_mask => NULL() Mask for SST restoring. integer integer mom_surface_forcing_gfdl::surface_forcing_cs::id_srestore id_srestore = -1 An id number for time_interp_external. integer integer mom_surface_forcing_gfdl::surface_forcing_cs::id_trestore id_trestore = -1 An id number for time_interp_external. type(forcing_diags), public type(forcing_diags), public mom_surface_forcing_gfdl::surface_forcing_cs::handles handles Diagnostics handles. type(mom_restart_cs), pointer type(mom_restart_cs), pointer mom_surface_forcing_gfdl::surface_forcing_cs::restart_csp restart_csp => NULL() A pointer to the restart control structure. type(user_revise_forcing_cs), pointer type(user_revise_forcing_cs), pointer mom_surface_forcing_gfdl::surface_forcing_cs::urf_cs urf_cs => NULL() A control structure for user forcing revisions. surface_forcing_CS is a structure containing pointers to the forcing fields which may be used to drive MOM. All fluxes are positive downward. real character(len=30) type(user_revise_forcing_cs), pointer logical diag_ctrl integer mom_surface_forcing_gfdl::surface_forcing_cs handles adjust_net_srestore_by_scaling rigid_sea_ice answers_2018 adjust_net_fresh_water_to_zero restore_temp approx_net_mass_src fix_ustar_gustless_bug check_no_land_fluxes mask_srestore_marginal_seas use_limited_p_ssh ... temp_restore_file salt_restore_file inputdir restart_csp temp_restore_var_name salt_restore_var_name diag urf_cs flux_const kv_sea_ice latent_heat_fusion density_sea_ice utide ustar_tidal gust_const srestore_mask trestore_mask rigid_sea_ice_mass ... id_trestore id_srestore wind_stagger character(len=200) type(mom_restart_cs), pointer forcing_diags mom_surface_forcing_gfdl::surface_forcing_csadjust_net_fresh_water_by_scaling mom_surface_forcing_gfdl::surface_forcing_csadjust_net_fresh_water_to_zero mom_surface_forcing_gfdl::surface_forcing_csadjust_net_srestore_by_scaling mom_surface_forcing_gfdl::surface_forcing_csadjust_net_srestore_to_zero mom_surface_forcing_gfdl::surface_forcing_csallow_flux_adjustments mom_surface_forcing_gfdl::surface_forcing_csanswers_2018 mom_surface_forcing_gfdl::surface_forcing_csapprox_net_mass_src mom_surface_forcing_gfdl::surface_forcing_csarea_surf mom_surface_forcing_gfdl::surface_forcing_csbasin_mask mom_surface_forcing_gfdl::surface_forcing_cscd_tides mom_surface_forcing_gfdl::surface_forcing_cscheck_no_land_fluxes mom_surface_forcing_gfdl::surface_forcing_csdensity_sea_ice mom_surface_forcing_gfdl::surface_forcing_csdiag mom_surface_forcing_gfdl::surface_forcing_csfix_ustar_gustless_bug mom_surface_forcing_gfdl::surface_forcing_csflux_const mom_surface_forcing_gfdl::surface_forcing_csg_earth mom_surface_forcing_gfdl::surface_forcing_csgust mom_surface_forcing_gfdl::surface_forcing_csgust_const mom_surface_forcing_gfdl::surface_forcing_cshandles mom_surface_forcing_gfdl::surface_forcing_csice_salt_concentration mom_surface_forcing_gfdl::surface_forcing_csid_srestore mom_surface_forcing_gfdl::surface_forcing_csid_trestore mom_surface_forcing_gfdl::surface_forcing_csinputdir mom_surface_forcing_gfdl::surface_forcing_cskv_sea_ice mom_surface_forcing_gfdl::surface_forcing_cslatent_heat_fusion mom_surface_forcing_gfdl::surface_forcing_cslatent_heat_vapor mom_surface_forcing_gfdl::surface_forcing_csmask_srestore mom_surface_forcing_gfdl::surface_forcing_csmask_srestore_marginal_seas mom_surface_forcing_gfdl::surface_forcing_csmask_srestore_under_ice mom_surface_forcing_gfdl::surface_forcing_csmask_trestore mom_surface_forcing_gfdl::surface_forcing_csmax_delta_srestore mom_surface_forcing_gfdl::surface_forcing_csmax_delta_trestore mom_surface_forcing_gfdl::surface_forcing_csmax_p_surf mom_surface_forcing_gfdl::surface_forcing_csread_gust_2d mom_surface_forcing_gfdl::surface_forcing_csread_tideamp mom_surface_forcing_gfdl::surface_forcing_csrestart_csp mom_surface_forcing_gfdl::surface_forcing_csrestore_salt mom_surface_forcing_gfdl::surface_forcing_csrestore_temp mom_surface_forcing_gfdl::surface_forcing_csrho0 mom_surface_forcing_gfdl::surface_forcing_csrigid_sea_ice mom_surface_forcing_gfdl::surface_forcing_csrigid_sea_ice_mass mom_surface_forcing_gfdl::surface_forcing_cssalt_restore_as_sflux mom_surface_forcing_gfdl::surface_forcing_cssalt_restore_file mom_surface_forcing_gfdl::surface_forcing_cssalt_restore_var_name mom_surface_forcing_gfdl::surface_forcing_cssrestore_mask mom_surface_forcing_gfdl::surface_forcing_cstemp_restore_file mom_surface_forcing_gfdl::surface_forcing_cstemp_restore_var_name mom_surface_forcing_gfdl::surface_forcing_cstke_tidal mom_surface_forcing_gfdl::surface_forcing_cstrestore_mask mom_surface_forcing_gfdl::surface_forcing_csurf_cs mom_surface_forcing_gfdl::surface_forcing_csuse_limited_p_ssh mom_surface_forcing_gfdl::surface_forcing_csuse_net_fw_adjustment_sign_bug mom_surface_forcing_gfdl::surface_forcing_csuse_temperature mom_surface_forcing_gfdl::surface_forcing_csustar_tidal mom_surface_forcing_gfdl::surface_forcing_csutide mom_surface_forcing_gfdl::surface_forcing_cswind_stagger mom_surface_forcing_gfdl::surface_forcing_cswind_stress_multiplier