Functions/Subroutines | |
| subroutine | ridge_ice (nx_block, ny_block, dt_dyn, dt_thm, icells, indxi, indxj, rdg_conv, rdg_shear, aicen, trcrn, vicen, vsnon, eicen, esnon, aice0, trcr_depend, l_stop, istop, jstop, dardg1dt, dardg2dt, dvirdgdt, opening, fresh, fhocn, fsoot) |
| subroutine | asum_ridging (nx_block, ny_block, icells, indxi, indxj, aicen, aice0, asum) |
| subroutine | ridge_prep (nx_block, ny_block, icells, indxi, indxj, dt, rdg_conv, rdg_shear, asum, closing_net, divu_adv, opning) |
| subroutine | ridge_itd (nx_block, ny_block, icells, indxi, indxj, aicen, vicen, aice0, aksum, apartic, hrmin, hrmax, hrexp, krdg) |
| subroutine | ridge_shift (nx_block, ny_block, icells, indxi, indxj, dt, aicen, trcrn, vicen, vsnon, eicen, esnon, aice0, trcr_depend, aksum, apartic, hrmin, hrmax, hrexp, krdg, closing_net, opning, ardg1, ardg2, virdg, aopen, msnow_mlt, esnow_mlt, msoot, l_stop, istop, jstop) |
| subroutine | ridge_check (nx_block, ny_block, icells, indxi, indxj, dt, asum, closing_net, divu_adv, opning, iterate_ridging) |
| subroutine | ice_strength (nx_block, ny_block, ilo, ihi, jlo, jhi, icells, indxi, indxj, aice, vice, aice0, aicen, vicen, strength) |
Variables | |
| integer(kind=int_kind) | kstrength |
| real(kind=dbl_kind), parameter | Cf = 17._dbl_kind |
| real(kind=dbl_kind), parameter | Cs = p25 |
| real(kind=dbl_kind), parameter | Cp = p5*gravit*(rhow-rhoi)*rhoi/rhow |
| real(kind=dbl_kind), parameter | fsnowrdg = p5 |
| real(kind=dbl_kind), parameter | Gstar = p15 |
| logical(kind=log_kind), parameter | l_conservation_check = .true. |
| subroutine ice_mechred::asum_ridging | ( | 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(in) | aicen, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | aice0, | |||
| real (kind=dbl_kind),dimension (icells),intent(out) | asum | |||
| ) |
Definition at line 576 of file ice_mechred.F90.
| subroutine ice_mechred::ice_strength | ( | 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) | 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) | aice, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | vice, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | aice0, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block,ncat),intent(in) | aicen, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block,ncat),intent(in) | vicen, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | strength | |||
| ) |
Definition at line 1878 of file ice_mechred.F90.
| subroutine ice_mechred::ridge_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),intent(in) | dt, | |||
| real (kind=dbl_kind),dimension (icells),intent(in) | asum, | |||
| real (kind=dbl_kind),dimension (icells),intent(inout) | closing_net, | |||
| real (kind=dbl_kind),dimension (icells),intent(inout) | divu_adv, | |||
| real (kind=dbl_kind),dimension (icells),intent(inout) | opning, | |||
| logical (kind=log_kind),intent(out) | iterate_ridging | |||
| ) |
Definition at line 1797 of file ice_mechred.F90.
| subroutine ice_mechred::ridge_ice | ( | integer (kind=int_kind),intent(in) | nx_block, | |
| integer (kind=int_kind),intent(in) | ny_block, | |||
| real (kind=dbl_kind),intent(in) | dt_dyn, | |||
| real (kind=dbl_kind),intent(in) | dt_thm, | |||
| 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) | rdg_conv, | |||
| real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) | rdg_shear, | |||
| 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, | |||
| integer (kind=int_kind),dimension(ntrcr),intent(in) | trcr_depend, | |||
| logical (kind=log_kind),intent(out) | l_stop, | |||
| integer (kind=int_kind),intent(out) | istop, | |||
| integer (kind=int_kind),intent(out) | jstop, | |||
| real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout),optional | dardg1dt, | |||
| real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout),optional | dardg2dt, | |||
| real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout),optional | dvirdgdt, | |||
| real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout),optional | opening, | |||
| 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 | fhocn, | |||
| real (kind=dbl_kind),dimension(nx_block,ny_block,n_aeromx),intent(inout),optional | fsoot | |||
| ) |
Definition at line 119 of file ice_mechred.F90.
| subroutine ice_mechred::ridge_itd | ( | 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(in) | aicen, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block,ncat),intent(in) | vicen, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | aice0, | |||
| real (kind=dbl_kind),dimension (icells),intent(out) | aksum, | |||
| real (kind=dbl_kind),dimension (icells,0:ncat),intent(out) | apartic, | |||
| real (kind=dbl_kind),dimension (icells,ncat),intent(out) | hrmin, | |||
| real (kind=dbl_kind),dimension (icells,ncat),intent(out) | hrmax, | |||
| real (kind=dbl_kind),dimension (icells,ncat),intent(out) | hrexp, | |||
| real (kind=dbl_kind),dimension (icells,ncat),intent(out) | krdg | |||
| ) |
Definition at line 776 of file ice_mechred.F90.
| subroutine ice_mechred::ridge_prep | ( | 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),intent(in) | dt, | |||
| real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) | rdg_conv, | |||
| real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) | rdg_shear, | |||
| real (kind=dbl_kind),dimension(icells),intent(inout) | asum, | |||
| real (kind=dbl_kind),dimension(icells),intent(out) | closing_net, | |||
| real (kind=dbl_kind),dimension(icells),intent(out) | divu_adv, | |||
| real (kind=dbl_kind),dimension(icells),intent(out) | opning | |||
| ) |
Definition at line 650 of file ice_mechred.F90.
| subroutine ice_mechred::ridge_shift | ( | 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),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, | |||
| integer (kind=int_kind),dimension (ntrcr),intent(in) | trcr_depend, | |||
| real (kind=dbl_kind),dimension (icells),intent(in) | aksum, | |||
| real (kind=dbl_kind),dimension (icells,0:ncat),intent(in) | apartic, | |||
| real (kind=dbl_kind),dimension (icells,ncat),intent(in) | hrmin, | |||
| real (kind=dbl_kind),dimension (icells,ncat),intent(in) | hrmax, | |||
| real (kind=dbl_kind),dimension (icells,ncat),intent(in) | hrexp, | |||
| real (kind=dbl_kind),dimension (icells,ncat),intent(in) | krdg, | |||
| real (kind=dbl_kind),dimension(icells),intent(inout) | closing_net, | |||
| real (kind=dbl_kind),dimension(icells),intent(inout) | opning, | |||
| real (kind=dbl_kind),dimension(icells),intent(inout) | ardg1, | |||
| real (kind=dbl_kind),dimension(icells),intent(inout) | ardg2, | |||
| real (kind=dbl_kind),dimension(icells),intent(inout) | virdg, | |||
| real (kind=dbl_kind),dimension(icells),intent(inout) | aopen, | |||
| real (kind=dbl_kind),dimension(icells),intent(inout) | msnow_mlt, | |||
| real (kind=dbl_kind),dimension(icells),intent(inout) | esnow_mlt, | |||
| real (kind=dbl_kind),dimension(icells,n_aeromx),intent(inout) | msoot, | |||
| 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 1102 of file ice_mechred.F90.
| real (kind=dbl_kind),parameter ice_mechred::Cf = 17._dbl_kind |
Definition at line 72 of file ice_mechred.F90.
| real (kind=dbl_kind),parameter ice_mechred::Cp = p5*gravit*(rhow-rhoi)*rhoi/rhow |
Definition at line 72 of file ice_mechred.F90.
| real (kind=dbl_kind),parameter ice_mechred::Cs = p25 |
Definition at line 72 of file ice_mechred.F90.
| real (kind=dbl_kind),parameter ice_mechred::fsnowrdg = p5 |
Definition at line 72 of file ice_mechred.F90.
| real (kind=dbl_kind),parameter ice_mechred::Gstar = p15 |
Definition at line 72 of file ice_mechred.F90.
| integer (kind=int_kind) ice_mechred::kstrength |
Definition at line 64 of file ice_mechred.F90.
| logical (kind=log_kind),parameter ice_mechred::l_conservation_check = .true. |
Definition at line 93 of file ice_mechred.F90.
1.6.1
