mom_internal_tides::int_tide_cs integer integer mom_internal_tides::int_tide_cs::id_tot_en id_tot_en = -1 Diag handles. integer integer mom_internal_tides::int_tide_cs::id_tke_itidal_input id_tke_itidal_input = -1 Diag handles. integer integer mom_internal_tides::int_tide_cs::id_itide_drag id_itide_drag = -1 Diag handles. integer integer mom_internal_tides::int_tide_cs::id_refl_pref id_refl_pref = -1 Diag handles. integer integer mom_internal_tides::int_tide_cs::id_refl_ang id_refl_ang = -1 Diag handles. integer integer mom_internal_tides::int_tide_cs::id_land_mask id_land_mask = -1 Diag handles. integer integer mom_internal_tides::int_tide_cs::id_dx_cv id_dx_cv = -1 Diag handles. integer integer mom_internal_tides::int_tide_cs::id_dy_cu id_dy_cu = -1 Diag handles. integer integer mom_internal_tides::int_tide_cs::id_tot_leak_loss id_tot_leak_loss = -1 Diag handles. integer integer mom_internal_tides::int_tide_cs::id_tot_quad_loss id_tot_quad_loss = -1 Diag handles. integer integer mom_internal_tides::int_tide_cs::id_tot_itidal_loss id_tot_itidal_loss = -1 Diag handles. integer integer mom_internal_tides::int_tide_cs::id_tot_froude_loss id_tot_froude_loss = -1 Diag handles. integer integer mom_internal_tides::int_tide_cs::id_tot_allprocesses_loss id_tot_allprocesses_loss = -1 Diag handles. integer, dimension(:,:), allocatable integer, dimension(:,:), allocatable mom_internal_tides::int_tide_cs::id_en_mode id_en_mode Diag handles. integer, dimension(:,:), allocatable integer, dimension(:,:), allocatable mom_internal_tides::int_tide_cs::id_itidal_loss_mode id_itidal_loss_mode Diag handles. integer, dimension(:,:), allocatable integer, dimension(:,:), allocatable mom_internal_tides::int_tide_cs::id_allprocesses_loss_mode id_allprocesses_loss_mode Diag handles. integer, dimension(:,:), allocatable integer, dimension(:,:), allocatable mom_internal_tides::int_tide_cs::id_ub_mode id_ub_mode Diag handles. integer, dimension(:,:), allocatable integer, dimension(:,:), allocatable mom_internal_tides::int_tide_cs::id_cp_mode id_cp_mode Diag handles. integer, dimension(:,:), allocatable integer, dimension(:,:), allocatable mom_internal_tides::int_tide_cs::id_en_ang_mode id_en_ang_mode Diag handles. integer, dimension(:,:), allocatable integer, dimension(:,:), allocatable mom_internal_tides::int_tide_cs::id_itidal_loss_ang_mode id_itidal_loss_ang_mode Diag handles. logical logical mom_internal_tides::int_tide_cs::do_int_tides do_int_tides If true, use the internal tide code. integer integer mom_internal_tides::int_tide_cs::nfreq nfreq = 0 The number of internal tide frequency bands. integer integer mom_internal_tides::int_tide_cs::nmode nmode = 1 The number of internal tide vertical modes. integer integer mom_internal_tides::int_tide_cs::nangle nangle = 24 The number of internal tide angular orientations. integer integer mom_internal_tides::int_tide_cs::energized_angle energized_angle = -1 If positive, only this angular band is energized for debugging purposes. logical logical mom_internal_tides::int_tide_cs::corner_adv corner_adv If true, use a corner advection rather than PPM. logical logical mom_internal_tides::int_tide_cs::upwind_1st upwind_1st If true, use a first-order upwind scheme. logical logical mom_internal_tides::int_tide_cs::simple_2nd simple_2nd If true, use a simple second order (arithmetic mean) interpolation of the edge values instead of the higher order interpolation. logical logical mom_internal_tides::int_tide_cs::vol_cfl vol_cfl If true, use the ratio of the open face lengths to the tracer cell areas when estimating CFL numbers. Without aggress_adjust, the default is false; it is always true with aggress_adjust. logical logical mom_internal_tides::int_tide_cs::use_ppmang use_ppmang If true, use PPM for advection of energy in angular space. real, dimension(:,:), allocatable real, dimension(:,:), allocatable mom_internal_tides::int_tide_cs::refl_angle refl_angle local coastline/ridge/shelf angles read from file real real mom_internal_tides::int_tide_cs::nullangle nullangle = -999.9 placeholder value in cells with no reflection real, dimension(:,:), allocatable real, dimension(:,:), allocatable mom_internal_tides::int_tide_cs::refl_pref refl_pref partial reflection coeff for each "coast cell" logical, dimension(:,:), allocatable logical, dimension(:,:), allocatable mom_internal_tides::int_tide_cs::refl_pref_logical refl_pref_logical true if reflecting cell with partial reflection logical, dimension(:,:), allocatable logical, dimension(:,:), allocatable mom_internal_tides::int_tide_cs::refl_dbl refl_dbl identifies reflection cells where double reflection is possible (i.e. ridge cells) real, dimension(:,:,:,:), allocatable real, dimension(:,:,:,:), allocatable mom_internal_tides::int_tide_cs::cp cp horizontal phase speed [L T-1 ~> m s-1] real, dimension(:,:,:,:,:), allocatable real, dimension(:,:,:,:,:), allocatable mom_internal_tides::int_tide_cs::tke_leak_loss tke_leak_loss energy lost due to misc background processes [R Z3 T-3 ~> W m-2] real, dimension(:,:,:,:,:), allocatable real, dimension(:,:,:,:,:), allocatable mom_internal_tides::int_tide_cs::tke_quad_loss tke_quad_loss energy lost due to quadratic bottom drag [R Z3 T-3 ~> W m-2] real, dimension(:,:,:,:,:), allocatable real, dimension(:,:,:,:,:), allocatable mom_internal_tides::int_tide_cs::tke_froude_loss tke_froude_loss energy lost due to wave breaking [R Z3 T-3 ~> W m-2] real, dimension(:,:), allocatable real, dimension(:,:), allocatable mom_internal_tides::int_tide_cs::tke_itidal_loss_fixed tke_itidal_loss_fixed Fixed part of the energy lost due to small-scale drag [R L-2 Z3 ~> kg m-2] here; This will be multiplied by N and the squared near-bottom velocity to get the energy losses in [R Z3 T-3 ~> W m-2]. real, dimension(:,:,:,:,:), allocatable real, dimension(:,:,:,:,:), allocatable mom_internal_tides::int_tide_cs::tke_itidal_loss tke_itidal_loss energy lost due to small-scale wave drag [R Z3 T-3 ~> W m-2] real, dimension(:,:), allocatable real, dimension(:,:), allocatable mom_internal_tides::int_tide_cs::tot_leak_loss tot_leak_loss Energy loss rates due to misc bakground processes, summed over angle, frequency and mode [R Z3 T-3 ~> W m-2]. real, dimension(:,:), allocatable real, dimension(:,:), allocatable mom_internal_tides::int_tide_cs::tot_quad_loss tot_quad_loss Energy loss rates due to quadratic bottom drag, summed over angle, frequency and mode [R Z3 T-3 ~> W m-2]. real, dimension(:,:), allocatable real, dimension(:,:), allocatable mom_internal_tides::int_tide_cs::tot_itidal_loss tot_itidal_loss Energy loss rates due to small-scale drag, summed over angle, frequency and mode [R Z3 T-3 ~> W m-2]. real, dimension(:,:), allocatable real, dimension(:,:), allocatable mom_internal_tides::int_tide_cs::tot_froude_loss tot_froude_loss Energy loss rates due to wave breaking, summed over angle, frequency and mode [R Z3 T-3 ~> W m-2]. real, dimension(:,:), allocatable real, dimension(:,:), allocatable mom_internal_tides::int_tide_cs::tot_allprocesses_loss tot_allprocesses_loss Energy loss rates due to all processes, summed over angle, frequency and mode [R Z3 T-3 ~> W m-2]. real real mom_internal_tides::int_tide_cs::q_itides q_itides fraction of local dissipation [nondim] real real mom_internal_tides::int_tide_cs::en_sum en_sum global sum of energy for use in debugging [R Z3 T-2 ~> J m-2] type(time_type), pointer type(time_type), pointer mom_internal_tides::int_tide_cs::time time => NULL() A pointer to the model's clock. character(len=200) character(len=200) mom_internal_tides::int_tide_cs::inputdir inputdir directory to look for coastline angle file real real mom_internal_tides::int_tide_cs::decay_rate decay_rate A constant rate at which internal tide energy is lost to the interior ocean internal wave field. real real mom_internal_tides::int_tide_cs::cdrag cdrag The bottom drag coefficient [nondim]. logical logical mom_internal_tides::int_tide_cs::apply_background_drag apply_background_drag If true, apply a drag due to background processes as a sink. logical logical mom_internal_tides::int_tide_cs::apply_bottom_drag apply_bottom_drag If true, apply a quadratic bottom drag as a sink. logical logical mom_internal_tides::int_tide_cs::apply_wave_drag apply_wave_drag If true, apply scattering due to small-scale roughness as a sink. logical logical mom_internal_tides::int_tide_cs::apply_froude_drag apply_froude_drag If true, apply wave breaking as a sink. real, dimension(:,:,:,:,:), pointer real, dimension(:,:,:,:,:), pointer mom_internal_tides::int_tide_cs::en en => NULL() The internal wave energy density as a function of (i,j,angle,frequency,mode) integrated within an angular and frequency band [R Z3 T-2 ~> J m-2]. real, dimension(:,:,:), pointer real, dimension(:,:,:), pointer mom_internal_tides::int_tide_cs::en_restart en_restart => NULL() The internal wave energy density as a function of (i,j,angle); temporary for restart. real, dimension(:), allocatable real, dimension(:), allocatable mom_internal_tides::int_tide_cs::frequency frequency The frequency of each band [T-1 ~> s-1]. type(diag_ctrl), pointer type(diag_ctrl), pointer mom_internal_tides::int_tide_cs::diag diag => NULL() A structure that is used to regulate the timing of diagnostic output. type(wave_structure_cs), pointer type(wave_structure_cs), pointer mom_internal_tides::int_tide_cs::wave_structure_csp wave_structure_csp => NULL() A pointer to the wave_structure module control structure. This control structure has parameters for the MOM_internal_tides module. real mom_internal_tides::int_tide_cs apply_bottom_drag corner_adv refl_dbl apply_froude_drag apply_background_drag simple_2nd refl_pref_logical use_ppmang apply_wave_drag upwind_1st ... time wave_structure_csp inputdir diag frequency cdrag tot_froude_loss refl_angle tot_quad_loss tot_leak_loss en_restart en_sum tke_leak_loss q_itides ... id_cp_mode id_ub_mode id_itidal_loss_ang_mode id_en_mode id_dy_cu id_allprocesses_loss_mode id_tot_froude_loss id_dx_cv nangle id_tot_quad_loss ... type(wave_structure_cs), pointer logical time_type diag_ctrl integer character(len=200) mom_internal_tides::int_tide_csapply_background_drag mom_internal_tides::int_tide_csapply_bottom_drag mom_internal_tides::int_tide_csapply_froude_drag mom_internal_tides::int_tide_csapply_wave_drag mom_internal_tides::int_tide_cscdrag mom_internal_tides::int_tide_cscorner_adv mom_internal_tides::int_tide_cscp mom_internal_tides::int_tide_csdecay_rate mom_internal_tides::int_tide_csdiag mom_internal_tides::int_tide_csdo_int_tides mom_internal_tides::int_tide_csen mom_internal_tides::int_tide_csen_restart mom_internal_tides::int_tide_csen_sum mom_internal_tides::int_tide_csenergized_angle mom_internal_tides::int_tide_csfrequency mom_internal_tides::int_tide_csid_allprocesses_loss_mode mom_internal_tides::int_tide_csid_cp_mode mom_internal_tides::int_tide_csid_dx_cv mom_internal_tides::int_tide_csid_dy_cu mom_internal_tides::int_tide_csid_en_ang_mode mom_internal_tides::int_tide_csid_en_mode mom_internal_tides::int_tide_csid_itidal_loss_ang_mode mom_internal_tides::int_tide_csid_itidal_loss_mode mom_internal_tides::int_tide_csid_itide_drag mom_internal_tides::int_tide_csid_land_mask mom_internal_tides::int_tide_csid_refl_ang mom_internal_tides::int_tide_csid_refl_pref mom_internal_tides::int_tide_csid_tke_itidal_input mom_internal_tides::int_tide_csid_tot_allprocesses_loss mom_internal_tides::int_tide_csid_tot_en mom_internal_tides::int_tide_csid_tot_froude_loss mom_internal_tides::int_tide_csid_tot_itidal_loss mom_internal_tides::int_tide_csid_tot_leak_loss mom_internal_tides::int_tide_csid_tot_quad_loss mom_internal_tides::int_tide_csid_ub_mode mom_internal_tides::int_tide_csinputdir mom_internal_tides::int_tide_csnangle mom_internal_tides::int_tide_csnfreq mom_internal_tides::int_tide_csnmode mom_internal_tides::int_tide_csnullangle mom_internal_tides::int_tide_csq_itides mom_internal_tides::int_tide_csrefl_angle mom_internal_tides::int_tide_csrefl_dbl mom_internal_tides::int_tide_csrefl_pref mom_internal_tides::int_tide_csrefl_pref_logical mom_internal_tides::int_tide_cssimple_2nd mom_internal_tides::int_tide_cstime mom_internal_tides::int_tide_cstke_froude_loss mom_internal_tides::int_tide_cstke_itidal_loss mom_internal_tides::int_tide_cstke_itidal_loss_fixed mom_internal_tides::int_tide_cstke_leak_loss mom_internal_tides::int_tide_cstke_quad_loss mom_internal_tides::int_tide_cstot_allprocesses_loss mom_internal_tides::int_tide_cstot_froude_loss mom_internal_tides::int_tide_cstot_itidal_loss mom_internal_tides::int_tide_cstot_leak_loss mom_internal_tides::int_tide_cstot_quad_loss mom_internal_tides::int_tide_csupwind_1st mom_internal_tides::int_tide_csuse_ppmang mom_internal_tides::int_tide_csvol_cfl mom_internal_tides::int_tide_cswave_structure_csp