Functions/Subroutines | |
subroutine | init_remap |
subroutine | horizontal_remap (dt, uvel, vvel, mm, tm, l_fixed_area, edgearea_e, edgearea_n, tracer_type_in, depend_in, has_dependents_in, integral_order_in, l_dp_midpt_in) |
subroutine | make_masks (nx_block, ny_block, ilo, ihi, jlo, jhi, nghost, has_dependents, icells, indxi, indxj, mm, mmask, tm, tmask) |
subroutine | construct_fields (nx_block, ny_block, ilo, ihi, jlo, jhi, nghost, tracer_type, depend, has_dependents, icells, indxi, indxj, HTN, HTE, hm, xav, yav, xxav, xyav, yyav, xxxav, xxyav, xyyav, yyyav, dxt, dyt, mm, mc, mx, my, mmask, tm, tc, tx, ty, tmask) |
subroutine | limited_gradient (nx_block, ny_block, ilo, ihi, jlo, jhi, nghost, phi, phimask, cnx, cny, HTN, HTE, dxt, dyt, gx, gy) |
subroutine | departure_points (nx_block, ny_block, ilo, ihi, jlo, jhi, nghost, dt, uvel, vvel, dxu, dyu, HTN, HTE, dpx, dpy, l_dp_midpt, l_stop, istop, jstop) |
subroutine | locate_triangles (nx_block, ny_block, ilo, ihi, jlo, jhi, nghost, edge, icells, indxi, indxj, dpx, dpy, dxu, dyu, xp, yp, iflux, jflux, triarea, l_fixed_area, edgearea) |
subroutine | triangle_coordinates (nx_block, ny_block, integral_order, icells, indxi, indxj, xp, yp) |
subroutine | transport_integrals (nx_block, ny_block, icells, indxi, indxj, tracer_type, depend, integral_order, triarea, iflux, jflux, xp, yp, mc, mx, my, mflx, tc, tx, ty, mtflx) |
subroutine | update_fields (nx_block, ny_block, ilo, ihi, jlo, jhi, tracer_type, depend, tarear, l_stop, istop, jstop, mflxe, mflxn, mm, mtflxe, mtflxn, tm) |
Variables | |
integer(kind=int_kind), parameter | ntrace = 2+ntrcr+nilyr+nslyr |
integer(kind=int_kind), parameter | ngroups = 6 |
real(kind=dbl_kind), parameter | p5625m = -9._dbl_kind/16._dbl_kind |
real(kind=dbl_kind), parameter | p52083 = 25._dbl_kind/48._dbl_kind |
logical(kind=log_kind), parameter | bugcheck = .false. |
subroutine ice_transport_remap::construct_fields | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
integer (kind=int_kind),intent(in) | ilo, | |||
integer (kind=int_kind),intent(in) | ihi, | |||
integer (kind=int_kind),intent(in) | jlo, | |||
integer (kind=int_kind),intent(in) | jhi, | |||
integer (kind=int_kind),intent(in) | nghost, | |||
integer (kind=int_kind),dimension (ntrace),intent(in) | tracer_type, | |||
integer (kind=int_kind),dimension (ntrace),intent(in) | depend, | |||
logical (kind=log_kind),dimension (ntrace),intent(in) | has_dependents, | |||
integer (kind=int_kind),intent(in) | icells, | |||
integer (kind=int_kind),dimension(nx_block*ny_block),intent(in) | indxi, | |||
integer (kind=int_kind),dimension(nx_block*ny_block),intent(in) | indxj, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | HTN, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | HTE, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | hm, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | xav, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | yav, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | xxav, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | xyav, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | yyav, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | xxxav, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | xxyav, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | xyyav, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | yyyav, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | dxt, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | dyt, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | mm, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | mc, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | mx, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | my, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | mmask, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntrace),intent(in),optional | tm, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntrace),intent(out),optional | tc, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntrace),intent(out),optional | tx, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntrace),intent(out),optional | ty, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntrace),intent(in),optional | tmask | |||
) | [private] |
Definition at line 1132 of file ice_transport_remap.F90.
subroutine ice_transport_remap::departure_points | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
integer (kind=int_kind),intent(in) | ilo, | |||
integer (kind=int_kind),intent(in) | ihi, | |||
integer (kind=int_kind),intent(in) | jlo, | |||
integer (kind=int_kind),intent(in) | jhi, | |||
integer (kind=int_kind),intent(in) | nghost, | |||
real (kind=dbl_kind),intent(in) | dt, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | uvel, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | vvel, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | dxu, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | dyu, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | HTN, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | HTE, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | dpx, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | dpy, | |||
logical (kind=log_kind),intent(in) | l_dp_midpt, | |||
logical (kind=log_kind),intent(inout) | l_stop, | |||
integer (kind=int_kind),intent(inout) | istop, | |||
integer (kind=int_kind),intent(inout) | jstop | |||
) | [private] |
Definition at line 1633 of file ice_transport_remap.F90.
subroutine ice_transport_remap::horizontal_remap | ( | real (kind=dbl_kind),intent(in) | dt, | |
real (kind=dbl_kind),dimension(nx_block,ny_block,max_blocks),intent(in) | uvel, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block,max_blocks),intent(in) | vvel, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,0:ncat,max_blocks),intent(inout) | mm, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntrace,ncat,max_blocks),intent(inout) | tm, | |||
logical,intent(in) | l_fixed_area, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block,max_blocks),intent(inout) | edgearea_e, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block,max_blocks),intent(inout) | edgearea_n, | |||
integer (kind=int_kind),dimension (ntrace),intent(in),optional | tracer_type_in, | |||
integer (kind=int_kind),dimension (ntrace),intent(in),optional | depend_in, | |||
logical (kind=log_kind),dimension (ntrace),intent(in),optional | has_dependents_in, | |||
integer (kind=int_kind),intent(in),optional | integral_order_in, | |||
logical (kind=log_kind),intent(in),optional | l_dp_midpt_in | |||
) |
Definition at line 339 of file ice_transport_remap.F90.
subroutine ice_transport_remap::init_remap | ( | ) |
Definition at line 275 of file ice_transport_remap.F90.
subroutine ice_transport_remap::limited_gradient | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
integer (kind=int_kind),intent(in) | ilo, | |||
integer (kind=int_kind),intent(in) | ihi, | |||
integer (kind=int_kind),intent(in) | jlo, | |||
integer (kind=int_kind),intent(in) | jhi, | |||
integer (kind=int_kind),intent(in) | nghost, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | phi, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | phimask, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | cnx, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | cny, | |||
HTN | , | |||
HTE | , | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | dxt, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | dyt, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | gx, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | gy | |||
) | [private] |
Definition at line 1454 of file ice_transport_remap.F90.
subroutine ice_transport_remap::locate_triangles | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
integer (kind=int_kind),intent(in) | ilo, | |||
integer (kind=int_kind),intent(in) | ihi, | |||
integer (kind=int_kind),intent(in) | jlo, | |||
integer (kind=int_kind),intent(in) | jhi, | |||
integer (kind=int_kind),intent(in) | nghost, | |||
character (len=char_len),intent(in) | edge, | |||
integer (kind=int_kind),dimension (ngroups),intent(out) | icells, | |||
integer (kind=int_kind),dimension (nx_block*ny_block,ngroups),intent(out) | indxi, | |||
integer (kind=int_kind),dimension (nx_block*ny_block,ngroups),intent(out) | indxj, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) | dpx, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) | dpy, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) | dxu, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) | dyu, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,0:nvert,ngroups),intent(out) | xp, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,0:nvert,ngroups),intent(out) | yp, | |||
integer (kind=int_kind),dimension (nx_block,ny_block,ngroups),intent(out) | iflux, | |||
integer (kind=int_kind),dimension (nx_block,ny_block,ngroups),intent(out) | jflux, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ngroups),intent(out) | triarea, | |||
logical,intent(in) | l_fixed_area, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout) | edgearea | |||
) | [private] |
Definition at line 1828 of file ice_transport_remap.F90.
subroutine ice_transport_remap::make_masks | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
integer (kind=int_kind),intent(in) | ilo, | |||
integer (kind=int_kind),intent(in) | ihi, | |||
integer (kind=int_kind),intent(in) | jlo, | |||
integer (kind=int_kind),intent(in) | jhi, | |||
integer (kind=int_kind),intent(in) | nghost, | |||
logical (kind=log_kind),dimension (ntrace),intent(in) | has_dependents, | |||
integer (kind=int_kind),dimension(0:ncat),intent(out) | icells, | |||
integer (kind=int_kind),dimension(nx_block*ny_block,0:ncat),intent(out) | indxi, | |||
integer (kind=int_kind),dimension(nx_block*ny_block,0:ncat),intent(out) | indxj, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,0:ncat),intent(in) | mm, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,0:ncat),intent(out) | mmask, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block, ntrace, ncat),intent(in),optional | tm, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block, ntrace, ncat),intent(out),optional | tmask | |||
) |
Definition at line 957 of file ice_transport_remap.F90.
subroutine ice_transport_remap::transport_integrals | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
integer (kind=int_kind),dimension (ngroups),intent(in) | icells, | |||
integer (kind=int_kind),dimension (nx_block*ny_block,ngroups),intent(in) | indxi, | |||
integer (kind=int_kind),dimension (nx_block*ny_block,ngroups),intent(in) | indxj, | |||
integer (kind=int_kind),dimension (ntrace),intent(in) | tracer_type, | |||
integer (kind=int_kind),dimension (ntrace),intent(in) | depend, | |||
integer (kind=int_kind),intent(in) | integral_order, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block, ngroups),intent(in) | triarea, | |||
integer (kind=int_kind),dimension (nx_block, ny_block, ngroups),intent(in) | iflux, | |||
integer (kind=int_kind),dimension (nx_block, ny_block, ngroups),intent(in) | jflux, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block, 0:nvert, ngroups),intent(in) | xp, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block, 0:nvert, ngroups),intent(in) | yp, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block),intent(in) | mc, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block),intent(in) | mx, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block),intent(in) | my, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block),intent(out) | mflx, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block, ntrace),intent(in),optional | tc, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block, ntrace),intent(in),optional | tx, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block, ntrace),intent(in),optional | ty, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block, ntrace),intent(out),optional | mtflx | |||
) | [private] |
Definition at line 3372 of file ice_transport_remap.F90.
subroutine ice_transport_remap::triangle_coordinates | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
integer (kind=int_kind),intent(in) | integral_order, | |||
integer (kind=int_kind),dimension (ngroups),intent(in) | icells, | |||
integer (kind=int_kind),dimension (nx_block*ny_block,ngroups),intent(in) | indxi, | |||
integer (kind=int_kind),dimension (nx_block*ny_block,ngroups),intent(in) | indxj, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block, 0:nvert, ngroups),intent(inout) | xp, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block, 0:nvert, ngroups),intent(inout) | yp | |||
) | [private] |
Definition at line 3220 of file ice_transport_remap.F90.
subroutine ice_transport_remap::update_fields | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
integer (kind=int_kind),intent(in) | ilo, | |||
integer (kind=int_kind),intent(in) | ihi, | |||
integer (kind=int_kind),intent(in) | jlo, | |||
integer (kind=int_kind),intent(in) | jhi, | |||
integer (kind=int_kind),dimension (ntrace),intent(in) | tracer_type, | |||
integer (kind=int_kind),dimension (ntrace),intent(in) | depend, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block),intent(in) | tarear, | |||
logical (kind=log_kind),intent(inout) | l_stop, | |||
integer (kind=int_kind),intent(inout) | istop, | |||
integer (kind=int_kind),intent(inout) | jstop, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block),intent(in) | mflxe, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block),intent(in) | mflxn, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block),intent(inout) | mm, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block, ntrace),intent(in),optional | mtflxe, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block, ntrace),intent(in),optional | mtflxn, | |||
real (kind=dbl_kind),dimension (nx_block, ny_block, ntrace),intent(inout),optional | tm | |||
) | [private] |
Definition at line 3706 of file ice_transport_remap.F90.
logical (kind=log_kind),parameter ice_transport_remap::bugcheck = .false. |
Definition at line 74 of file ice_transport_remap.F90.
integer (kind=int_kind),parameter ice_transport_remap::ngroups = 6 |
Definition at line 64 of file ice_transport_remap.F90.
integer (kind=int_kind),parameter ice_transport_remap::ntrace = 2+ntrcr+nilyr+nslyr |
Definition at line 61 of file ice_transport_remap.F90.
real (kind=dbl_kind),parameter ice_transport_remap::p52083 = 25._dbl_kind/48._dbl_kind |
Definition at line 70 of file ice_transport_remap.F90.
real (kind=dbl_kind),parameter ice_transport_remap::p5625m = -9._dbl_kind/16._dbl_kind |
Definition at line 70 of file ice_transport_remap.F90.