oil_tracer::oil_tracer_cs integer integer oil_tracer::oil_tracer_cs::ntr ntr The number of tracers that are actually used. logical logical oil_tracer::oil_tracer_cs::coupled_tracers coupled_tracers = .false. These tracers are not offered to the coupler. character(len=200) character(len=200) oil_tracer::oil_tracer_cs::ic_file ic_file The file in which the age-tracer initial values can be found, or an empty string for internal initialization. logical logical oil_tracer::oil_tracer_cs::z_ic_file z_ic_file If true, the IC_file is in Z-space. The default is false. real real oil_tracer::oil_tracer_cs::oil_source_longitude oil_source_longitude Latitude of source location (geographic) real real oil_tracer::oil_tracer_cs::oil_source_latitude oil_source_latitude Longitude of source location (geographic) integer integer oil_tracer::oil_tracer_cs::oil_source_i oil_source_i =-999 Local i of source location (computational) integer integer oil_tracer::oil_tracer_cs::oil_source_j oil_source_j =-999 Local j of source location (computational) real real oil_tracer::oil_tracer_cs::oil_source_rate oil_source_rate Rate of oil injection [kg T-1 ~> kg s-1]. real real oil_tracer::oil_tracer_cs::oil_start_year oil_start_year The year in which tracers start aging, or at which the surface value equals young_val, in years. real real oil_tracer::oil_tracer_cs::oil_end_year oil_end_year The year in which tracers start aging, or at which the surface value equals young_val, in years. type(time_type), pointer type(time_type), pointer oil_tracer::oil_tracer_cs::time time => NULL() A pointer to the ocean model's clock. type(tracer_registry_type), pointer type(tracer_registry_type), pointer oil_tracer::oil_tracer_cs::tr_reg tr_reg => NULL() A pointer to the MOM tracer registry. real, dimension(:,:,:,:), pointer real, dimension(:,:,:,:), pointer oil_tracer::oil_tracer_cs::tr tr => NULL() The array of tracers used in this subroutine, in g m-3? real, dimension(ntr_max) real, dimension(ntr_max) oil_tracer::oil_tracer_cs::ic_val ic_val = 0.0 The (uniform) initial condition value. real, dimension(ntr_max) real, dimension(ntr_max) oil_tracer::oil_tracer_cs::young_val young_val = 0.0 The value assigned to tr at the surface. real, dimension(ntr_max) real, dimension(ntr_max) oil_tracer::oil_tracer_cs::land_val land_val = -1.0 The value of tr used where land is masked out. real, dimension(ntr_max) real, dimension(ntr_max) oil_tracer::oil_tracer_cs::sfc_growth_rate sfc_growth_rate The exponential growth rate for the surface value [year-1]. real, dimension(ntr_max) real, dimension(ntr_max) oil_tracer::oil_tracer_cs::oil_decay_days oil_decay_days Decay time scale of oil [days]. real, dimension(ntr_max) real, dimension(ntr_max) oil_tracer::oil_tracer_cs::oil_decay_rate oil_decay_rate Decay rate of oil [T-1 ~> s-1] calculated from oil_decay_days. integer, dimension(ntr_max) integer, dimension(ntr_max) oil_tracer::oil_tracer_cs::oil_source_k oil_source_k Layer of source. logical logical oil_tracer::oil_tracer_cs::oil_may_reinit oil_may_reinit If true, oil tracers may be reset by the initialization code if they are not found in the restart files. integer, dimension(ntr_max) integer, dimension(ntr_max) oil_tracer::oil_tracer_cs::ind_tr ind_tr Indices returned by aof_set_coupler_flux if it is used and the surface tracer concentrations are to be provided to the coupler. type(vardesc), dimension(ntr_max) type(vardesc), dimension(ntr_max) oil_tracer::oil_tracer_cs::tr_desc tr_desc Descriptions and metadata for the tracers. type(diag_ctrl), pointer type(diag_ctrl), pointer oil_tracer::oil_tracer_cs::diag diag => NULL() A structure that is used to regulate the timing of diagnostic output. type(mom_restart_cs), pointer type(mom_restart_cs), pointer oil_tracer::oil_tracer_cs::restart_csp restart_csp => NULL() A pointer to the restart control structure. The control structure for the oil tracer package. real vardesc oil_tracer::oil_tracer_cs oil_may_reinit z_ic_file coupled_tracers time tr_reg ic_file restart_csp tr_desc diag oil_decay_rate oil_source_longitude oil_decay_days oil_source_rate land_val oil_end_year ic_val oil_start_year oil_source_latitude young_val ... ntr oil_source_i oil_source_j oil_source_k ind_tr logical time_type diag_ctrl integer character(len=200) type(mom_restart_cs), pointer tracer_registry_type oil_tracer::oil_tracer_cscoupled_tracers oil_tracer::oil_tracer_csdiag oil_tracer::oil_tracer_csic_file oil_tracer::oil_tracer_csic_val oil_tracer::oil_tracer_csind_tr oil_tracer::oil_tracer_csland_val oil_tracer::oil_tracer_csntr oil_tracer::oil_tracer_csoil_decay_days oil_tracer::oil_tracer_csoil_decay_rate oil_tracer::oil_tracer_csoil_end_year oil_tracer::oil_tracer_csoil_may_reinit oil_tracer::oil_tracer_csoil_source_i oil_tracer::oil_tracer_csoil_source_j oil_tracer::oil_tracer_csoil_source_k oil_tracer::oil_tracer_csoil_source_latitude oil_tracer::oil_tracer_csoil_source_longitude oil_tracer::oil_tracer_csoil_source_rate oil_tracer::oil_tracer_csoil_start_year oil_tracer::oil_tracer_csrestart_csp oil_tracer::oil_tracer_cssfc_growth_rate oil_tracer::oil_tracer_cstime oil_tracer::oil_tracer_cstr oil_tracer::oil_tracer_cstr_desc oil_tracer::oil_tracer_cstr_reg oil_tracer::oil_tracer_csyoung_val oil_tracer::oil_tracer_csz_ic_file