Functions/Subroutines | |
| subroutine | linear_itd (nx_block, ny_block, icells, indxi, indxj, trcr_depend, aicen_init, vicen_init, aicen, trcrn, vicen, vsnon, eicen, esnon, aice, aice0, l_stop, istop, jstop) |
| subroutine | fit_line (nx_block, ny_block, iflag, icells, indxii, indxjj, indxij, aicen, hice, hbL, hbR, g0, g1, hL, hR) |
| subroutine | add_new_ice (nx_block, ny_block, icells, indxi, indxj, tmask, dt, aicen, trcrn, vicen, eicen, aice0, aice, frzmlt, frazil, frz_onset, yday, fresh, fsalt, Tf, l_stop, istop, jstop) |
| subroutine | lateral_melt (nx_block, ny_block, ilo, ihi, jlo, jhi, dt, fresh, fsalt, fhocn, fsoot, rside, meltl, aicen, vicen, vsnon, eicen, esnon, trcrn) |
Variables | |
| real(kind=dbl_kind), parameter | hfrazilmin = 0.05_dbl_kind |
| subroutine ice_therm_itd::add_new_ice | ( | 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, | |||
| logical (kind=log_kind),dimension (nx_block,ny_block),intent(in) | tmask, | |||
| 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,ntilyr),intent(inout) | eicen, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | aice0, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | aice, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | frzmlt, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | frazil, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout),optional | frz_onset, | |||
| real (kind=dbl_kind),intent(in),optional | yday, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fresh, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fsalt, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | Tf, | |||
| 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 838 of file ice_therm_itd.F90.
| subroutine ice_therm_itd::fit_line | ( | integer (kind=int_kind),intent(in) | nx_block, | |
| integer (kind=int_kind),intent(in) | ny_block, | |||
| integer (kind=int_kind),intent(in) | iflag, | |||
| integer (kind=int_kind),intent(in) | icells, | |||
| integer (kind=int_kind),dimension (icells),intent(in) | indxii, | |||
| integer (kind=int_kind),dimension (icells),intent(in) | indxjj, | |||
| integer (kind=int_kind),dimension (icells),intent(in) | indxij, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | aicen, | |||
| real (kind=dbl_kind),dimension (icells),intent(in) | hice, | |||
| real (kind=dbl_kind),dimension (icells),intent(in) | hbL, | |||
| real (kind=dbl_kind),dimension (icells),intent(in) | hbR, | |||
| real (kind=dbl_kind),dimension (iflag),intent(out) | g0, | |||
| real (kind=dbl_kind),dimension (iflag),intent(out) | g1, | |||
| real (kind=dbl_kind),dimension (iflag),intent(out) | hL, | |||
| real (kind=dbl_kind),dimension (iflag),intent(out) | hR | |||
| ) |
Definition at line 710 of file ice_therm_itd.F90.
| subroutine ice_therm_itd::lateral_melt | ( | 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) | fresh, | |||
| real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout) | fsalt, | |||
| real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout) | fhocn, | |||
| real (kind=dbl_kind),dimension(nx_block,ny_block,n_aeromx),intent(inout) | fsoot, | |||
| real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) | rside, | |||
| real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout) | meltl, | |||
| 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(inout) | eicen, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block,ntslyr),intent(inout) | esnon, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block,ntrcr,ncat),intent(in) | trcrn | |||
| ) |
Definition at line 1239 of file ice_therm_itd.F90.
| subroutine ice_therm_itd::linear_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, | |||
| integer (kind=int_kind),dimension (ntrcr),intent(in) | trcr_depend, | |||
| real (kind=dbl_kind),dimension(nx_block,ny_block,ncat),intent(in) | aicen_init, | |||
| real (kind=dbl_kind),dimension(nx_block,ny_block,ncat),intent(in) | vicen_init, | |||
| 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) | aice, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | aice0, | |||
| 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 58 of file ice_therm_itd.F90.
| real (kind=dbl_kind),parameter ice_therm_itd::hfrazilmin = 0.05_dbl_kind |
Definition at line 44 of file ice_therm_itd.F90.
1.6.1
