mom_tracer_hor_diff mom_tracer_hor_diff::p2d mom_tracer_hor_diff::p2di mom_tracer_hor_diff::tracer_hor_diff_cs integer integer mom_tracer_hor_diff::id_clock_diffuse id_clock_diffuse CPU time clocks. tracer_hor_diff_init tracer_hordiff integer integer mom_tracer_hor_diff::id_clock_epimix id_clock_epimix CPU time clocks. tracer_hor_diff_init tracer_hordiff integer integer mom_tracer_hor_diff::id_clock_pass id_clock_pass CPU time clocks. tracer_epipycnal_ml_diff tracer_hor_diff_init tracer_hordiff integer integer mom_tracer_hor_diff::id_clock_sync id_clock_sync CPU time clocks. tracer_hor_diff_init tracer_hordiff subroutine, public subroutine, public mom_tracer_hor_diff::tracer_hordiff (h, dt, MEKE, VarMix, G, GV, US, CS, Reg, tv, do_online_flag, read_khdt_x, read_khdt_y) tracer_hordiff h h dt dt MEKE MEKE VarMix VarMix G G GV GV US US CS CS Reg Reg tv tv do_online_flag do_online_flag read_khdt_x read_khdt_x read_khdt_y read_khdt_y Compute along-coordinate diffusion of all tracers using the diffusivity in CSKhTr, or using space-dependent diffusivity. Multiple iterations are used (if necessary) so that there is no limit on the acceptable time increment. g Grid type h Layer thickness [H ~> m or kg m-2] dt time step [T ~> s] meke MEKE type varmix Variable mixing type gv ocean vertical grid structure us A dimensional unit scaling type cs module control structure reg registered tracers tv A structure containing pointers to any available thermodynamic fields, including potential temp and salinity or mixed layer density. Absent fields have NULL ptrs, and these may (probably will) point to some of the same arrays as Tr does. tv is required for epipycnal mixing between mixed layer and the interior. do_online_flag If present and true, do online tracer transport with stored velocities. read_khdt_x If present, these are the zonal read_khdt_y If present, these are the meridional mom_error_handler::calltree_enter mom_error_handler::calltree_leave mom_error_handler::calltree_waypoint id_clock_diffuse id_clock_epimix id_clock_pass id_clock_sync mom_lateral_boundary_diffusion::lateral_boundary_diffusion mom_tracer_registry::mom_tracer_chksum mom_neutral_diffusion::neutral_diffusion mom_neutral_diffusion::neutral_diffusion_calc_coeffs tracer_epipycnal_ml_diff subroutine subroutine mom_tracer_hor_diff::tracer_epipycnal_ml_diff (h, dt, Tr, ntr, khdt_epi_x, khdt_epi_y, G, GV, US, CS, tv, num_itts) tracer_epipycnal_ml_diff h h dt dt Tr Tr ntr ntr khdt_epi_x khdt_epi_x khdt_epi_y khdt_epi_y G G GV GV US US CS CS tv tv num_itts num_itts This subroutine does epipycnal diffusion of all tracers between the mixed and buffer layers and the interior, using the diffusivity in CSKhTr. Multiple iterations are used (if necessary) so that there is no limit on the acceptable time increment. g ocean grid structure gv ocean vertical grid structure h layer thickness [H ~> m or kg m-2] dt time step [T ~> s] tr tracer array ntr number of tracers khdt_epi_x Zonal epipycnal diffusivity times a time step and the ratio of the open face width over the distance between adjacent tracer points [L2 ~> m2] khdt_epi_y Meridional epipycnal diffusivity times a time step and the ratio of the open face width over the distance between adjacent tracer points [L2 ~> m2] us A dimensional unit scaling type cs module control structure tv thermodynamic structure num_itts number of iterations (usually=1) mom_eos::eos_domain id_clock_pass tracer_hordiff subroutine, public subroutine, public mom_tracer_hor_diff::tracer_hor_diff_init (Time, G, US, param_file, diag, EOS, diabatic_CSp, CS) tracer_hor_diff_init Time Time G G US US param_file param_file diag diag EOS EOS diabatic_CSp diabatic_CSp CS CS Initialize lateral tracer diffusion module. time current model time g ocean grid structure us A dimensional unit scaling type diag diagnostic control eos Equation of state CS diabatic_csp Equation of state CS param_file parameter file cs horz diffusion control structure id_clock_diffuse id_clock_epimix id_clock_pass id_clock_sync mom_diag_mediator::register_diag_field subroutine, public subroutine, public mom_tracer_hor_diff::tracer_hor_diff_end (CS) tracer_hor_diff_end CS CS cs module control structure mom::mom_end Main routine for lateral (along surface or neutral) diffusion of tracers. This module contains subroutines that handle horizontal diffusion (i.e., isoneutral or along layer) of tracers. Each of the tracers are subject to Fickian along-coordinate diffusion if Khtr is defined and positive. The tracer diffusion can use a suitable number of iterations to guarantee stability with an arbitrarily large time step.