generic_tracer logical, public logical, public generic_tracer::do_generic_tracer do_generic_tracer = .true. Turn on generic tracers (note dangerous use of module data) subroutine, public subroutine, public generic_tracer::generic_tracer_register generic_tracer_register Unknown. subroutine, public subroutine, public generic_tracer::generic_tracer_init (isc, iec, jsc, jec, isd, ied, jsd, jed, nk, ntau, axes, grid_tmask, grid_kmt, init_time) generic_tracer_init isc isc iec iec jsc jsc jec jec isd isd ied ied jsd jsd jed jed nk nk ntau ntau axes axes grid_tmask grid_tmask grid_kmt grid_kmt init_time init_time Initialize generic tracers. isc Computation start index in i direction iec Computation end index in i direction jsc Computation start index in j direction jec Computation end index in j direction isd Data start index in i direction ied Data end index in i direction jsd Data start index in j direction jed Data end index in j direction nk Number of levels in k direction ntau Unknown axes Domain axes? init_time Time grid_tmask Mask grid_kmt Number of wet cells in column subroutine, public subroutine, public generic_tracer::generic_tracer_register_diag generic_tracer_register_diag Unknown. subroutine, public subroutine, public generic_tracer::generic_tracer_coupler_get (IOB_struc) generic_tracer_coupler_get IOB_struc IOB_struc Get coupler values. iob_struc Ice Ocean Boundary flux structure subroutine, public subroutine, public generic_tracer::generic_tracer_coupler_accumulate (IOB_struc, weight, model_time) generic_tracer_coupler_accumulate IOB_struc IOB_struc weight weight model_time model_time Unknown. iob_struc Ice Ocean Boundary flux structure weight Unknown model_time Time mom_generic_tracer::mom_generic_tracer_fluxes_accumulate subroutine, public subroutine, public generic_tracer::generic_tracer_source (Temp, Salt, rho_dzt, dzt, hblt_depth, ilb, jlb, tau, dtts, grid_dat, model_time, nbands, max_wavelength_band, sw_pen_band, opacity_band, internal_heat, frunoff, grid_ht, current_wave_stress, sosga) generic_tracer_source Temp Temp Salt Salt rho_dzt rho_dzt dzt dzt hblt_depth hblt_depth ilb ilb jlb jlb tau tau dtts dtts grid_dat grid_dat model_time model_time nbands nbands max_wavelength_band max_wavelength_band sw_pen_band sw_pen_band opacity_band opacity_band internal_heat internal_heat frunoff frunoff grid_ht grid_ht current_wave_stress current_wave_stress sosga sosga Calls the corresponding generic_X_update_from_source routine for each package X. temp Potential temperature [deg C] salt Salinity [psu] rho_dzt Unknown dzt Ocean layer thickness [m] hblt_depth Boundary layer depth ilb Lower bounds of x extent of input arrays on data domain jlb Lower bounds of y extent of input arrays on data domain tau Time step index of field dtts Unknown grid_dat Unknown model_time Time nbands Unknown max_wavelength_band Unknown sw_pen_band Shortwave penetration opacity_band Unknown internal_heat Unknown frunoff Unknown grid_ht Unknown current_wave_stress Unknown sosga Global average sea surface salinity subroutine, public subroutine, public generic_tracer::generic_tracer_update_from_bottom (dt, tau, model_time) generic_tracer_update_from_bottom dt dt tau tau model_time model_time Update the tracers from bottom fluxes. dt Time step increment tau Time step index used for the concentration field model_time Time subroutine, public subroutine, public generic_tracer::generic_tracer_vertdiff_g (h_old, ea, eb, dt, kg_m2_to_H, m_to_H, tau) generic_tracer_vertdiff_g h_old h_old ea ea eb eb dt dt kg_m2_to_H kg_m2_to_H m_to_H m_to_H tau tau Vertically diffuse all generic tracers for GOLD ocean. h_old Unknown ea Unknown eb Unknown dt Unknown kg_m2_to_h Unknown m_to_h Unknown tau Unknown subroutine, public subroutine, public generic_tracer::generic_tracer_coupler_set (IOB_struc, ST, SS, rho, ilb, jlb, tau, dzt, sosga, model_time) generic_tracer_coupler_set IOB_struc IOB_struc ST ST SS SS rho rho ilb ilb jlb jlb tau tau dzt dzt sosga sosga model_time model_time Set the coupler values for each generic tracer. iob_struc Ice Ocean Boundary flux structure ilb Lower bounds of x extent of input arrays on data domain jlb Lower bounds of y extent of input arrays on data domain tau Time step index of field st Sea surface temperature [deg C] ss Sea surface salinity [psu] rho Ocean density [kg m-3] dzt Layer thickness [m] sosga Unknown model_time Time subroutine, public subroutine, public generic_tracer::generic_tracer_end generic_tracer_end End this module by calling the corresponding generic_X_end for each package X. subroutine, public subroutine, public generic_tracer::generic_tracer_get_list (list) generic_tracer_get_list list list Get a pointer to the head of the generic tracers list. list Pointer to head of the linked list subroutine, public subroutine, public generic_tracer::generic_tracer_get_diag_list (list) generic_tracer_get_diag_list list list Unknown. list Pointer to head of the linked list A non-functioning template of the GFDL ocean BGC.