Open Boundary condition for mom4 ocean model.
constants_mod
data_override_mod
diag_manager_mod
field_manager_mod
fms_mod
mpp_domains_mod
mpp_mod
time_interp_external_mod
time_manager_mod
tracer_manager_mod
ocean_domains_mod
ocean_types_mod
subroutine ocean_obc_freesurf(eta, taum1, tau, taup1, tstep) |
subroutine ocean_obc_freesurf(Time, Ext_mode) type(ocean_time_type), intent(in) :: Time type(ocean_external_mode_type), intent(inout) :: Ext_mode |
taum1, tau, taup1 | Time step index. [integer] |
eta | surface height [real, dimension(isd:,jsd:,:)] |
etataum1 | surface height at time step taum1 |
field | field to be update on the boundary [real, dimension(:,:,:,:)] |
subroutine ocean_obc_init(have_obc, Time, Time_steps, Domain, Grid, debug)
dtts, dtuv, dtfs, dteta |
[real] |
Domain | A derived data type that contains domain information for mom4. [type(ocean_domain_type)] |
Grid | A derived data type that contains grid information for mom4. [type(ocean_grid_type)] |
have_obc | logical variable to indicate if there is any open boundary condition.
if true, open boudanry exists. [logical] |
subroutine ocean_obc_tracer_init(Time, T_prog, num_prog_tracers, debug)
debug |
[logical] |
subroutine ocean_obc_prepare(Time, Ext_mode, T_prog) type(ocean_time_type), intent(in) :: Time type(ocean_external_mode_type), intent(in) :: Ext_mode type(ocean_prog_tracer_type), intent(inout) :: T_prog(:) integer :: m, n, i, j, taum1, tau logical :: used
subroutine ocean_obc_adjust_advel(Adv_vel)
Adv_vel | Advection velocities [ocean_adv_vel_type] |
subroutine ocean_obc_adjust_forcing_fs(Ext_mode)
Ext_mode |
[ocean_external_mode_type] |
subroutine ocean_obc_tracer(tracer, adv_vet, adv_vnt, wrk2, taum1, tau, taup1, time, name, n)
wrk2 | contains rho0r/dht from update_tracer [real, dimension(isc:,jsc:,:)] |
taum1, tau, taup1 | time step index [integer] |
time | model time [type(time_type)] |
name | tracer name. [character(len=*)] |
n | tracer number [integer] |
tracer | Tracer field [real, dimension(isd:,jsd:,:,:)] |
have_obc | Contains open boundary information [logical] |