mom_surface_forcing::surface_forcing_cs type(user_revise_forcing_cs), pointer type(user_revise_forcing_cs), pointer mom_surface_forcing::surface_forcing_cs::urf_cs urf_cs => NULL() Control structures for named forcing packages. type(user_surface_forcing_cs), pointer type(user_surface_forcing_cs), pointer mom_surface_forcing::surface_forcing_cs::user_forcing_csp user_forcing_csp => NULL() Control structures for named forcing packages. type(bfb_surface_forcing_cs), pointer type(bfb_surface_forcing_cs), pointer mom_surface_forcing::surface_forcing_cs::bfb_forcing_csp bfb_forcing_csp => NULL() Control structures for named forcing packages. type(dumbbell_surface_forcing_cs), pointer type(dumbbell_surface_forcing_cs), pointer mom_surface_forcing::surface_forcing_cs::dumbbell_forcing_csp dumbbell_forcing_csp => NULL() Control structures for named forcing packages. type(meso_surface_forcing_cs), pointer type(meso_surface_forcing_cs), pointer mom_surface_forcing::surface_forcing_cs::meso_forcing_csp meso_forcing_csp => NULL() Control structures for named forcing packages. type(idealized_hurricane_cs), pointer type(idealized_hurricane_cs), pointer mom_surface_forcing::surface_forcing_cs::idealized_hurricane_csp idealized_hurricane_csp => NULL() Control structures for named forcing packages. type(scm_cvmix_tests_cs), pointer type(scm_cvmix_tests_cs), pointer mom_surface_forcing::surface_forcing_cs::scm_cvmix_tests_csp scm_cvmix_tests_csp => NULL() Control structures for named forcing packages. logical logical mom_surface_forcing::surface_forcing_cs::use_temperature use_temperature if true, temp & salinity used as state variables logical logical mom_surface_forcing::surface_forcing_cs::restorebuoy restorebuoy if true, use restoring surface buoyancy forcing logical logical mom_surface_forcing::surface_forcing_cs::adiabatic adiabatic if true, no diapycnal mass fluxes or surface buoyancy forcing logical logical mom_surface_forcing::surface_forcing_cs::variable_winds variable_winds if true, wind stresses vary with time logical logical mom_surface_forcing::surface_forcing_cs::variable_buoyforce variable_buoyforce if true, buoyancy forcing varies with time. real real mom_surface_forcing::surface_forcing_cs::south_lat south_lat southern latitude of the domain real real mom_surface_forcing::surface_forcing_cs::len_lat len_lat domain length in latitude real real mom_surface_forcing::surface_forcing_cs::rho0 rho0 Boussinesq reference density [R ~> kg m-3]. real real mom_surface_forcing::surface_forcing_cs::g_earth g_earth gravitational acceleration [L2 Z-1 T-2 ~> m s-2] real real mom_surface_forcing::surface_forcing_cs::flux_const flux_const piston velocity for surface restoring [Z T-1 ~> m s-1] real real mom_surface_forcing::surface_forcing_cs::flux_const_t flux_const_t piston velocity for surface temperature restoring [m s-1] real real mom_surface_forcing::surface_forcing_cs::flux_const_s flux_const_s piston velocity for surface salinity restoring [Z T-1 ~> m s-1] real real mom_surface_forcing::surface_forcing_cs::latent_heat_fusion latent_heat_fusion latent heat of fusion times [Q ~> J kg-1] real real mom_surface_forcing::surface_forcing_cs::latent_heat_vapor latent_heat_vapor latent heat of vaporization [Q ~> J kg-1] real real mom_surface_forcing::surface_forcing_cs::tau_x0 tau_x0 Constant zonal wind stress used in the WIND_CONFIG="const" forcing. real real mom_surface_forcing::surface_forcing_cs::tau_y0 tau_y0 Constant meridional wind stress used in the WIND_CONFIG="const" forcing. real real mom_surface_forcing::surface_forcing_cs::gust_const gust_const constant unresolved background gustiness for ustar [R L Z T-1 ~> Pa] logical logical mom_surface_forcing::surface_forcing_cs::read_gust_2d read_gust_2d if true, use 2-dimensional gustiness supplied from a file real, dimension(:,:), pointer real, dimension(:,:), pointer mom_surface_forcing::surface_forcing_cs::gust gust => NULL() spatially varying unresolved background gustiness [R L Z T-1 ~> Pa] gust is used when read_gust_2d is true. real, dimension(:,:), pointer real, dimension(:,:), pointer mom_surface_forcing::surface_forcing_cs::t_restore t_restore => NULL() temperature to damp (restore) the SST to [degC] real, dimension(:,:), pointer real, dimension(:,:), pointer mom_surface_forcing::surface_forcing_cs::s_restore s_restore => NULL() salinity to damp (restore) the SSS [ppt] real, dimension(:,:), pointer real, dimension(:,:), pointer mom_surface_forcing::surface_forcing_cs::dens_restore dens_restore => NULL() density to damp (restore) surface density [R ~> kg m-3] integer integer mom_surface_forcing::surface_forcing_cs::buoy_last_lev_read buoy_last_lev_read = -1 The last time level read from buoyancy input files. real real mom_surface_forcing::surface_forcing_cs::gyres_taux_const gyres_taux_const A constant wind stress [Pa]. real real mom_surface_forcing::surface_forcing_cs::gyres_taux_sin_amp gyres_taux_sin_amp The amplitude of cosine wind stress gyres [Pa], if WIND_CONFIG=='gyres'. real real mom_surface_forcing::surface_forcing_cs::gyres_taux_cos_amp gyres_taux_cos_amp The amplitude of cosine wind stress gyres [Pa], if WIND_CONFIG=='gyres'. real real mom_surface_forcing::surface_forcing_cs::gyres_taux_n_pis gyres_taux_n_pis The number of sine lobes in the basin if if WIND_CONFIG=='gyres'. logical logical mom_surface_forcing::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 form of the gyre wind stresses that are rotationally invariant and more likely to be the same between compilers. logical logical mom_surface_forcing::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. real, dimension(20) real, dimension(20) mom_surface_forcing::surface_forcing_cs::scurves_ydata scurves_ydata = 90. Latitudes of scurve nodes [degreesN]. real, dimension(20) real, dimension(20) mom_surface_forcing::surface_forcing_cs::scurves_taux scurves_taux = 0. Zonal wind stress values at scurve nodes [Pa]. real real mom_surface_forcing::surface_forcing_cs::t_north t_north target temperatures at north used in buoyancy_forcing_linear real real mom_surface_forcing::surface_forcing_cs::t_south t_south target temperatures at south used in buoyancy_forcing_linear real real mom_surface_forcing::surface_forcing_cs::s_north s_north target salinity at north used in buoyancy_forcing_linear real real mom_surface_forcing::surface_forcing_cs::s_south s_south target salinity at south used in buoyancy_forcing_linear logical logical mom_surface_forcing::surface_forcing_cs::first_call_set_forcing first_call_set_forcing = .true. True until after the first call to set_forcing. logical logical mom_surface_forcing::surface_forcing_cs::archaic_omip_file archaic_omip_file = .true. If true use the variable names and data fields from a very old version of the OMIP forcing. logical logical mom_surface_forcing::surface_forcing_cs::dataoverrideisinitialized dataoverrideisinitialized = .false. If true, data override has been initialized. real real mom_surface_forcing::surface_forcing_cs::wind_scale wind_scale value by which wind-stresses are scaled, ND. real real mom_surface_forcing::surface_forcing_cs::constantheatforcing constantheatforcing value used for sensible heat flux when buoy_config="const" [Q R Z T-1 ~> W m-2] character(len=8) character(len=8) mom_surface_forcing::surface_forcing_cs::wind_stagger wind_stagger A character indicating how the wind stress components are staggered in WIND_FILE. Valid values are A or C for now. type(tracer_flow_control_cs), pointer type(tracer_flow_control_cs), pointer mom_surface_forcing::surface_forcing_cs::tracer_flow_csp tracer_flow_csp => NULL() A pointer to the structure that is used to orchestrate the calling of tracer packages. type(mom_restart_cs), pointer type(mom_restart_cs), pointer mom_surface_forcing::surface_forcing_cs::restart_csp restart_csp => NULL() A pointer to the restart control structure. type(diag_ctrl), pointer type(diag_ctrl), pointer mom_surface_forcing::surface_forcing_cs::diag diag structure used to regulate timing of diagnostic output character(len=200) character(len=200) mom_surface_forcing::surface_forcing_cs::inputdir inputdir directory where NetCDF input files are. character(len=200) character(len=200) mom_surface_forcing::surface_forcing_cs::wind_config wind_config indicator for wind forcing type (2gyre, USER, FILE..) character(len=200) character(len=200) mom_surface_forcing::surface_forcing_cs::wind_file wind_file if wind_config is "file", file to use character(len=200) character(len=200) mom_surface_forcing::surface_forcing_cs::buoy_config buoy_config indicator for buoyancy forcing type character(len=200) character(len=200) mom_surface_forcing::surface_forcing_cs::longwave_file longwave_file = '' The file from which the longwave heat flux is read. character(len=200) character(len=200) mom_surface_forcing::surface_forcing_cs::shortwave_file shortwave_file = '' The file from which the shortwave heat flux is read. character(len=200) character(len=200) mom_surface_forcing::surface_forcing_cs::evaporation_file evaporation_file = '' The file from which the evaporation is read. character(len=200) character(len=200) mom_surface_forcing::surface_forcing_cs::sensibleheat_file sensibleheat_file = '' The file from which the sensible heat flux is read. character(len=200) character(len=200) mom_surface_forcing::surface_forcing_cs::latentheat_file latentheat_file = '' The file from which the latent heat flux is read. character(len=200) character(len=200) mom_surface_forcing::surface_forcing_cs::rain_file rain_file = '' The file from which the rainfall is read. character(len=200) character(len=200) mom_surface_forcing::surface_forcing_cs::snow_file snow_file = '' The file from which the snowfall is read. character(len=200) character(len=200) mom_surface_forcing::surface_forcing_cs::runoff_file runoff_file = '' The file from which the runoff is read. character(len=200) character(len=200) mom_surface_forcing::surface_forcing_cs::longwaveup_file longwaveup_file = '' The file from which the upward longwave heat flux is read. character(len=200) character(len=200) mom_surface_forcing::surface_forcing_cs::shortwaveup_file shortwaveup_file = '' The file from which the upward shorwave heat flux is read. character(len=200) character(len=200) mom_surface_forcing::surface_forcing_cs::sstrestore_file sstrestore_file = '' The file from which to read the sea surface temperature to restore toward. character(len=200) character(len=200) mom_surface_forcing::surface_forcing_cs::salinityrestore_file salinityrestore_file = '' The file from which to read the sea surface salinity to restore toward. character(len=80) character(len=80) mom_surface_forcing::surface_forcing_cs::stress_x_var stress_x_var = '' X-windstress variable name in the input file. character(len=80) character(len=80) mom_surface_forcing::surface_forcing_cs::stress_y_var stress_y_var = '' Y-windstress variable name in the input file. character(len=80) character(len=80) mom_surface_forcing::surface_forcing_cs::ustar_var ustar_var = '' ustar variable name in the input file character(len=80) character(len=80) mom_surface_forcing::surface_forcing_cs::lw_var lw_var = '' lonngwave heat flux variable name in the input file character(len=80) character(len=80) mom_surface_forcing::surface_forcing_cs::sw_var sw_var = '' shortwave heat flux variable name in the input file character(len=80) character(len=80) mom_surface_forcing::surface_forcing_cs::latent_var latent_var = '' latent heat flux variable name in the input file character(len=80) character(len=80) mom_surface_forcing::surface_forcing_cs::sens_var sens_var = '' sensible heat flux variable name in the input file character(len=80) character(len=80) mom_surface_forcing::surface_forcing_cs::evap_var evap_var = '' evaporation variable name in the input file character(len=80) character(len=80) mom_surface_forcing::surface_forcing_cs::rain_var rain_var = '' rainfall variable name in the input file character(len=80) character(len=80) mom_surface_forcing::surface_forcing_cs::snow_var snow_var = '' snowfall variable name in the input file character(len=80) character(len=80) mom_surface_forcing::surface_forcing_cs::lrunoff_var lrunoff_var = '' liquid runoff variable name in the input file character(len=80) character(len=80) mom_surface_forcing::surface_forcing_cs::frunoff_var frunoff_var = '' frozen runoff variable name in the input file character(len=80) character(len=80) mom_surface_forcing::surface_forcing_cs::sst_restore_var sst_restore_var = '' target sea surface temeperature variable name in the input file character(len=80) character(len=80) mom_surface_forcing::surface_forcing_cs::sss_restore_var sss_restore_var = '' target sea surface salinity variable name in the input file integer integer mom_surface_forcing::surface_forcing_cs::wind_nlev wind_nlev = -1 The number of time levels in the file of wind stress. integer integer mom_surface_forcing::surface_forcing_cs::sw_nlev sw_nlev = -1 The number of time levels in the file of shortwave heat flux. integer integer mom_surface_forcing::surface_forcing_cs::lw_nlev lw_nlev = -1 The number of time levels in the file of longwave heat flux. integer integer mom_surface_forcing::surface_forcing_cs::latent_nlev latent_nlev = -1 The number of time levels in the file of latent heat flux. integer integer mom_surface_forcing::surface_forcing_cs::sens_nlev sens_nlev = -1 The number of time levels in the file of sensible heat flux. integer integer mom_surface_forcing::surface_forcing_cs::evap_nlev evap_nlev = -1 The number of time levels in the file of evaporation. integer integer mom_surface_forcing::surface_forcing_cs::precip_nlev precip_nlev = -1 The number of time levels in the file of precipitation. integer integer mom_surface_forcing::surface_forcing_cs::runoff_nlev runoff_nlev = -1 The number of time levels in the file of runoff. integer integer mom_surface_forcing::surface_forcing_cs::sst_nlev sst_nlev = -1 The number of time levels in the file of target SST. integer integer mom_surface_forcing::surface_forcing_cs::sss_nlev sss_nlev = -1 The number of time levels in the file of target SSS. integer integer mom_surface_forcing::surface_forcing_cs::wind_last_lev wind_last_lev = -1 The last time level read of wind stress. integer integer mom_surface_forcing::surface_forcing_cs::sw_last_lev sw_last_lev = -1 The last time level read of shortwave heat flux. integer integer mom_surface_forcing::surface_forcing_cs::lw_last_lev lw_last_lev = -1 The last time level read of longwave heat flux. integer integer mom_surface_forcing::surface_forcing_cs::latent_last_lev latent_last_lev = -1 The last time level read of latent heat flux. integer integer mom_surface_forcing::surface_forcing_cs::sens_last_lev sens_last_lev = -1 The last time level read of sensible heat flux. integer integer mom_surface_forcing::surface_forcing_cs::evap_last_lev evap_last_lev = -1 The last time level read of evaporation. integer integer mom_surface_forcing::surface_forcing_cs::precip_last_lev precip_last_lev = -1 The last time level read of precipitation. integer integer mom_surface_forcing::surface_forcing_cs::runoff_last_lev runoff_last_lev = -1 The last time level read of runoff. integer integer mom_surface_forcing::surface_forcing_cs::sst_last_lev sst_last_lev = -1 The last time level read of target SST. integer integer mom_surface_forcing::surface_forcing_cs::sss_last_lev sss_last_lev = -1 The last time level read of target SSS. type(forcing_diags), public type(forcing_diags), public mom_surface_forcing::surface_forcing_cs::handles handles A structure with diagnostics handles. Structure containing pointers to the forcing fields that may be used to drive MOM. All fluxes are positive into the ocean. real type(bfb_surface_forcing_cs), pointer type(dumbbell_surface_forcing_cs), pointer type(user_revise_forcing_cs), pointer type(idealized_hurricane_cs), pointer type(tracer_flow_control_cs), pointer logical character(len=80) character(len=8) type(meso_surface_forcing_cs), pointer type(scm_cvmix_tests_cs), pointer mom_surface_forcing::surface_forcing_cs scm_cvmix_tests_csp handles first_call_set_forcing variable_winds answers_2018 restorebuoy fix_ustar_gustless_bug read_gust_2d use_temperature archaic_omip_file adiabatic dataoverrideisinitialized ... user_forcing_csp tracer_flow_csp shortwaveup_file runoff_file latentheat_file shortwave_file salinityrestore_file evaporation_file snow_file sensibleheat_file wind_config rain_file ... idealized_hurricane_csp bfb_forcing_csp snow_var lw_var rain_var sens_var latent_var ustar_var sst_restore_var frunoff_var sw_var lrunoff_var ... restart_csp diag wind_stagger meso_forcing_csp dumbbell_forcing_csp urf_cs sss_last_lev wind_nlev sw_last_lev lw_nlev sst_nlev precip_last_lev sss_nlev runoff_nlev latent_last_lev evap_nlev ... wind_scale gyres_taux_const flux_const_s latent_heat_fusion flux_const_t flux_const gyres_taux_n_pis gyres_taux_sin_amp dens_restore gyres_taux_cos_amp ... type(user_surface_forcing_cs), pointer diag_ctrl integer character(len=200) type(mom_restart_cs), pointer forcing_diags mom_surface_forcing::surface_forcing_csadiabatic mom_surface_forcing::surface_forcing_csanswers_2018 mom_surface_forcing::surface_forcing_csarchaic_omip_file mom_surface_forcing::surface_forcing_csbfb_forcing_csp mom_surface_forcing::surface_forcing_csbuoy_config mom_surface_forcing::surface_forcing_csbuoy_last_lev_read mom_surface_forcing::surface_forcing_csconstantheatforcing mom_surface_forcing::surface_forcing_csdataoverrideisinitialized mom_surface_forcing::surface_forcing_csdens_restore mom_surface_forcing::surface_forcing_csdiag mom_surface_forcing::surface_forcing_csdumbbell_forcing_csp mom_surface_forcing::surface_forcing_csevap_last_lev mom_surface_forcing::surface_forcing_csevap_nlev mom_surface_forcing::surface_forcing_csevap_var mom_surface_forcing::surface_forcing_csevaporation_file mom_surface_forcing::surface_forcing_csfirst_call_set_forcing mom_surface_forcing::surface_forcing_csfix_ustar_gustless_bug mom_surface_forcing::surface_forcing_csflux_const mom_surface_forcing::surface_forcing_csflux_const_s mom_surface_forcing::surface_forcing_csflux_const_t mom_surface_forcing::surface_forcing_csfrunoff_var mom_surface_forcing::surface_forcing_csg_earth mom_surface_forcing::surface_forcing_csgust mom_surface_forcing::surface_forcing_csgust_const mom_surface_forcing::surface_forcing_csgyres_taux_const mom_surface_forcing::surface_forcing_csgyres_taux_cos_amp mom_surface_forcing::surface_forcing_csgyres_taux_n_pis mom_surface_forcing::surface_forcing_csgyres_taux_sin_amp mom_surface_forcing::surface_forcing_cshandles mom_surface_forcing::surface_forcing_csidealized_hurricane_csp mom_surface_forcing::surface_forcing_csinputdir mom_surface_forcing::surface_forcing_cslatent_heat_fusion mom_surface_forcing::surface_forcing_cslatent_heat_vapor mom_surface_forcing::surface_forcing_cslatent_last_lev mom_surface_forcing::surface_forcing_cslatent_nlev mom_surface_forcing::surface_forcing_cslatent_var mom_surface_forcing::surface_forcing_cslatentheat_file mom_surface_forcing::surface_forcing_cslen_lat mom_surface_forcing::surface_forcing_cslongwave_file mom_surface_forcing::surface_forcing_cslongwaveup_file mom_surface_forcing::surface_forcing_cslrunoff_var mom_surface_forcing::surface_forcing_cslw_last_lev mom_surface_forcing::surface_forcing_cslw_nlev mom_surface_forcing::surface_forcing_cslw_var mom_surface_forcing::surface_forcing_csmeso_forcing_csp mom_surface_forcing::surface_forcing_csprecip_last_lev mom_surface_forcing::surface_forcing_csprecip_nlev mom_surface_forcing::surface_forcing_csrain_file mom_surface_forcing::surface_forcing_csrain_var mom_surface_forcing::surface_forcing_csread_gust_2d mom_surface_forcing::surface_forcing_csrestart_csp mom_surface_forcing::surface_forcing_csrestorebuoy mom_surface_forcing::surface_forcing_csrho0 mom_surface_forcing::surface_forcing_csrunoff_file mom_surface_forcing::surface_forcing_csrunoff_last_lev mom_surface_forcing::surface_forcing_csrunoff_nlev mom_surface_forcing::surface_forcing_css_north mom_surface_forcing::surface_forcing_css_restore mom_surface_forcing::surface_forcing_css_south mom_surface_forcing::surface_forcing_cssalinityrestore_file mom_surface_forcing::surface_forcing_csscm_cvmix_tests_csp mom_surface_forcing::surface_forcing_csscurves_taux mom_surface_forcing::surface_forcing_csscurves_ydata mom_surface_forcing::surface_forcing_cssens_last_lev mom_surface_forcing::surface_forcing_cssens_nlev mom_surface_forcing::surface_forcing_cssens_var mom_surface_forcing::surface_forcing_cssensibleheat_file mom_surface_forcing::surface_forcing_csshortwave_file mom_surface_forcing::surface_forcing_csshortwaveup_file mom_surface_forcing::surface_forcing_cssnow_file mom_surface_forcing::surface_forcing_cssnow_var mom_surface_forcing::surface_forcing_cssouth_lat mom_surface_forcing::surface_forcing_cssss_last_lev mom_surface_forcing::surface_forcing_cssss_nlev mom_surface_forcing::surface_forcing_cssss_restore_var mom_surface_forcing::surface_forcing_cssst_last_lev mom_surface_forcing::surface_forcing_cssst_nlev mom_surface_forcing::surface_forcing_cssst_restore_var mom_surface_forcing::surface_forcing_cssstrestore_file mom_surface_forcing::surface_forcing_csstress_x_var mom_surface_forcing::surface_forcing_csstress_y_var mom_surface_forcing::surface_forcing_cssw_last_lev mom_surface_forcing::surface_forcing_cssw_nlev mom_surface_forcing::surface_forcing_cssw_var mom_surface_forcing::surface_forcing_cst_north mom_surface_forcing::surface_forcing_cst_restore mom_surface_forcing::surface_forcing_cst_south mom_surface_forcing::surface_forcing_cstau_x0 mom_surface_forcing::surface_forcing_cstau_y0 mom_surface_forcing::surface_forcing_cstracer_flow_csp mom_surface_forcing::surface_forcing_csurf_cs mom_surface_forcing::surface_forcing_csuse_temperature mom_surface_forcing::surface_forcing_csuser_forcing_csp mom_surface_forcing::surface_forcing_csustar_var mom_surface_forcing::surface_forcing_csvariable_buoyforce mom_surface_forcing::surface_forcing_csvariable_winds mom_surface_forcing::surface_forcing_cswind_config mom_surface_forcing::surface_forcing_cswind_file mom_surface_forcing::surface_forcing_cswind_last_lev mom_surface_forcing::surface_forcing_cswind_nlev mom_surface_forcing::surface_forcing_cswind_scale mom_surface_forcing::surface_forcing_cswind_stagger