Functions/Subroutines | |
subroutine | init_itd |
subroutine | aggregate (nx_block, ny_block, aicen, trcrn, vicen, vsnon, eicen, esnon, aice, trcr, vice, vsno, eice, esno, aice0, tmask, trcr_depend) |
subroutine | aggregate_area (nx_block, ny_block, aicen, aice, aice0) |
subroutine | rebin (nx_block, ny_block, icells, indxi, indxj, trcr_depend, aicen, trcrn, vicen, vsnon, eicen, esnon, l_stop, istop, jstop) |
subroutine | reduce_area (nx_block, ny_block, ilo, ihi, jlo, jhi, tmask, aicen, vicen, aicen_init, vicen_init) |
subroutine | shift_ice (nx_block, ny_block, indxi, indxj, icells, trcr_depend, aicen, trcrn, vicen, vsnon, eicen, esnon, hicen, donor, daice, dvice, l_stop, istop, jstop) |
subroutine | column_sum (nx_block, ny_block, icells, indxi, indxj, nsum, xin, xout) |
subroutine | column_conservation_check (nx_block, ny_block, icells, indxi, indxj, fieldid, x1, x2, max_err, l_stop, istop, jstop) |
subroutine | compute_tracers (nx_block, ny_block, icells, indxi, indxj, trcr_depend, atrcrn, aicen, vicen, vsnon, trcrn) |
subroutine | cleanup_itd (nx_block, ny_block, ilo, ihi, jlo, jhi, dt, aicen, trcrn, vicen, vsnon, eicen, esnon, aice0, aice, trcr_depend, fresh, fsalt, fhocn, fsoot, tr_aero, heat_capacity, l_stop, istop, jstop, limit_aice_in) |
subroutine | zap_small_areas (nx_block, ny_block, ilo, ihi, jlo, jhi, dt, aice, aice0, aicen, trcrn, vicen, vsnon, eicen, esnon, dfresh, dfsalt, dfhocn, dfsoot, tr_aero, l_stop, istop, jstop) |
subroutine | zerolayer_check (nx_block, ny_block, icells, indxi, indxj, aicen, vicen, vsnon, eicen, esnon, l_stop, istop, jstop) |
Variables | |
integer(kind=int_kind) | kitd |
real(kind=dbl_kind), parameter | hi_min = p01 |
real(kind=dbl_kind), dimension(0:ncat) | hin_max |
character(len=35), dimension(ncat) | c_hi_range |
subroutine ice_itd::aggregate | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ncat),intent(in) | aicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntrcr,ncat),intent(in) | trcrn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ncat),intent(in) | vicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ncat),intent(in) | vsnon, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntilyr),intent(in) | eicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntslyr),intent(in) | esnon, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | aice, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntrcr),intent(out) | trcr, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | vice, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | vsno, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | eice, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | esno, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | aice0, | |||
logical (kind=log_kind),dimension (nx_block,ny_block),intent(in) | tmask, | |||
integer (kind=int_kind),dimension (ntrcr),intent(in) | trcr_depend | |||
) |
Definition at line 279 of file ice_itd.F90.
subroutine ice_itd::aggregate_area | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
real (kind=dbl_kind),dimension (:,:,:),intent(in) | aicen, | |||
real (kind=dbl_kind),dimension (:,:),intent(inout) | aice, | |||
real (kind=dbl_kind),dimension (:,:),intent(inout) | aice0 | |||
) |
Definition at line 493 of file ice_itd.F90.
subroutine ice_itd::cleanup_itd | ( | 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, | |||
real (kind=dbl_kind),intent(in) | dt, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ncat),intent(inout) | aicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntrcr,ncat),intent(inout) | trcrn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ncat),intent(inout) | vicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ncat),intent(inout) | vsnon, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntilyr),intent(inout) | eicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntslyr),intent(inout) | esnon, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | aice0, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | aice, | |||
integer (kind=int_kind),dimension(ntrcr),intent(in) | trcr_depend, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout),optional | fresh, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout),optional | fsalt, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout),optional | fhocn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,n_aeromx),intent(inout),optional | fsoot, | |||
logical (kind=log_kind),intent(in) | tr_aero, | |||
logical (kind=log_kind),intent(in) | heat_capacity, | |||
logical (kind=log_kind),intent(out) | l_stop, | |||
integer (kind=int_kind),intent(out) | istop, | |||
integer (kind=int_kind),intent(out) | jstop, | |||
logical (kind=log_kind),intent(in),optional | limit_aice_in | |||
) |
Definition at line 1599 of file ice_itd.F90.
subroutine ice_itd::column_conservation_check | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
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, | |||
character (len=char_len),intent(in) | fieldid, | |||
real (kind=dbl_kind),dimension(icells),intent(in) | x1, | |||
real (kind=dbl_kind),dimension(icells),intent(in) | x2, | |||
real (kind=dbl_kind),intent(in) | max_err, | |||
logical (kind=log_kind),intent(inout) | l_stop, | |||
integer (kind=int_kind),intent(inout) | istop, | |||
integer (kind=int_kind),intent(inout) | jstop | |||
) |
Definition at line 1409 of file ice_itd.F90.
subroutine ice_itd::column_sum | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
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, | |||
integer (kind=int_kind),intent(in) | nsum, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,nsum),intent(in) | xin, | |||
real (kind=dbl_kind),dimension (icells),intent(out) | xout | |||
) |
Definition at line 1349 of file ice_itd.F90.
subroutine ice_itd::compute_tracers | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
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, | |||
integer (kind=int_kind),dimension (ntrcr),intent(in) | trcr_depend, | |||
real (kind=dbl_kind),dimension (icells,ntrcr),intent(in) | atrcrn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | aicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | vicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | vsnon, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntrcr),intent(out) | trcrn | |||
) |
Definition at line 1482 of file ice_itd.F90.
subroutine ice_itd::init_itd | ( | ) |
Definition at line 97 of file ice_itd.F90.
subroutine ice_itd::rebin | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
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, | |||
integer (kind=int_kind),dimension (ntrcr),intent(in) | trcr_depend, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ncat),intent(inout) | aicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntrcr,ncat),intent(inout) | trcrn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ncat),intent(inout) | vicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ncat),intent(inout) | vsnon, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntilyr),intent(inout) | eicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntslyr),intent(inout) | esnon, | |||
logical (kind=log_kind),intent(out) | l_stop, | |||
integer (kind=int_kind),intent(out) | istop, | |||
integer (kind=int_kind),intent(out) | jstop | |||
) |
Definition at line 556 of file ice_itd.F90.
subroutine ice_itd::reduce_area | ( | 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, | |||
logical (kind=log_kind),dimension (nx_block,ny_block),intent(in) | tmask, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | aicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | vicen, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) | aicen_init, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) | vicen_init | |||
) |
Definition at line 798 of file ice_itd.F90.
subroutine ice_itd::shift_ice | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
integer (kind=int_kind),dimension (nx_block*ny_block),intent(in) | indxi, | |||
integer (kind=int_kind),dimension (nx_block*ny_block),intent(in) | indxj, | |||
integer (kind=int_kind),intent(in) | icells, | |||
integer (kind=int_kind),dimension (ntrcr),intent(in) | trcr_depend, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ncat),intent(inout) | aicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntrcr,ncat),intent(inout) | trcrn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ncat),intent(inout) | vicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ncat),intent(inout) | vsnon, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntilyr),intent(inout) | eicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntslyr),intent(inout) | esnon, | |||
real (kind=dbl_kind),dimension(icells,ncat),intent(inout) | hicen, | |||
integer (kind=int_kind),dimension(icells,ncat),intent(in) | donor, | |||
real (kind=dbl_kind),dimension(icells,ncat),intent(inout) | daice, | |||
real (kind=dbl_kind),dimension(icells,ncat),intent(inout) | dvice, | |||
logical (kind=log_kind),intent(out) | l_stop, | |||
integer (kind=int_kind),intent(out) | istop, | |||
integer (kind=int_kind),intent(out) | jstop | |||
) |
Definition at line 888 of file ice_itd.F90.
subroutine ice_itd::zap_small_areas | ( | 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, | |||
real (kind=dbl_kind),intent(in) | dt, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | aice, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | aice0, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block,ncat),intent(inout) | aicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntrcr,ncat),intent(inout) | trcrn, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block,ncat),intent(inout) | vicen, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block,ncat),intent(inout) | vsnon, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntilyr),intent(inout) | eicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntslyr),intent(inout) | esnon, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | dfresh, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | dfsalt, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | dfhocn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,n_aeromx),intent(out) | dfsoot, | |||
logical (kind=log_kind),intent(in) | tr_aero, | |||
logical (kind=log_kind),intent(out) | l_stop, | |||
integer (kind=int_kind),intent(out) | istop, | |||
integer (kind=int_kind),intent(out) | jstop | |||
) |
Definition at line 1850 of file ice_itd.F90.
subroutine ice_itd::zerolayer_check | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
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,ncat),intent(inout) | aicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ncat),intent(inout) | vicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ncat),intent(inout) | vsnon, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntilyr),intent(in) | eicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntslyr),intent(in) | esnon, | |||
logical (kind=log_kind),intent(out) | l_stop, | |||
integer (kind=int_kind),intent(out) | istop, | |||
integer (kind=int_kind),intent(out) | jstop | |||
) |
Definition at line 2221 of file ice_itd.F90.
character (len=35),dimension(ncat) ice_itd::c_hi_range |
Definition at line 69 of file ice_itd.F90.
real (kind=dbl_kind),parameter ice_itd::hi_min = p01 |
Definition at line 63 of file ice_itd.F90.
real (kind=dbl_kind),dimension(0:ncat) ice_itd::hin_max |
Definition at line 66 of file ice_itd.F90.
integer (kind=int_kind) ice_itd::kitd |
Definition at line 51 of file ice_itd.F90.