Functions/Subroutines | |
subroutine | thermo_vertical (nx_block, ny_block, dt, icells, indxi, indxj, aicen, trcrn, vicen, vsnon, eicen, esnon, flw, potT, Qa, rhoa, fsnow, fbot, Tbot, lhcoef, shcoef, fswsfc, fswint, fswthrun, Sswabs, Iswabs, fsurfn, fcondtopn, fsensn, flatn, fswabsn, flwoutn, evapn, freshn, fsaltn, fhocnn, meltt, melts, meltb, congel, snoice, mlt_onset, frz_onset, yday, l_stop, istop, jstop) |
subroutine | init_thermo_vertical |
subroutine | frzmlt_bottom_lateral (nx_block, ny_block, ilo, ihi, jlo, jhi, dt, aice, frzmlt, eicen, esnon, sst, Tf, strocnxT, strocnyT, Tbot, fbot, rside) |
subroutine | init_vertical_profile (nx_block, ny_block, my_task, istep1, icells, indxi, indxj, aicen, vicen, vsnon, Tsfcn, eicen, esnon, hin, hilyr, hsn, hslyr, qin, Tin, qsn, Tsn, Tsf, einit, l_stop, istop, jstop) |
subroutine | temperature_changes (nx_block, ny_block, my_task, istep1, dt, icells, indxi, indxj, rhoa, flw, potT, Qa, shcoef, lhcoef, fswsfc, fswint, fswthrun, Sswabs, Iswabs, hilyr, hslyr, qin, Tin, qsn, Tsn, Tsf, Tbot, fsensn, flatn, fswabsn, flwoutn, fsurfn, fcondtopn, fcondbot, einit, l_stop, istop, jstop) |
subroutine | conductivity (nx_block, ny_block, l_snow, icells, indxi, indxj, indxij, hilyr, hslyr, Tin, kh) |
subroutine | surface_fluxes (nx_block, ny_block, isolve, icells, indxii, indxjj, indxij, Tsf, fswsfc, rhoa, flw, potT, Qa, shcoef, lhcoef, flwoutn, fsensn, flatn, fsurfn, dflwout_dT, dfsens_dT, dflat_dT, dfsurf_dT) |
subroutine | get_matrix_elements_calc_Tsfc (nx_block, ny_block, isolve, icells, indxii, indxjj, indxij, l_snow, l_cold, Tsf, Tbot, fsurfn, dfsurf_dT, Tin_init, Tsn_init, kh, Sswabs, Iswabs, etai, etas, sbdiag, diag, spdiag, rhs) |
subroutine | get_matrix_elements_know_Tsfc (nx_block, ny_block, isolve, icells, indxii, indxjj, indxij, l_snow, Tbot, Tin_init, Tsn_init, kh, Sswabs, Iswabs, etai, etas, sbdiag, diag, spdiag, rhs, fcondtopn) |
subroutine | tridiag_solver (nx_block, ny_block, isolve, icells, indxii, indxjj, nmat, sbdiag, diag, spdiag, rhs, xout) |
subroutine | zerolayer_temperature (nx_block, ny_block, my_task, istep1, dt, icells, indxi, indxj, rhoa, flw, potT, Qa, shcoef, lhcoef, fswsfc, fswthrun, hilyr, hslyr, Tsf, Tbot, fsensn, flatn, fswabsn, flwoutn, fsurfn, fcondtopn, fcondbot, l_stop, istop, jstop) |
subroutine | thickness_changes (nx_block, ny_block, dt, yday, icells, indxi, indxj, efinal, hin, hilyr, hsn, hslyr, qin, qsn, fbot, Tbot, flatn, fsurfn, fcondtopn, fcondbot, fsnow, hsn_new, fhocnn, evapn, meltt, melts, meltb, iage, congel, snoice, mlt_onset, frz_onset) |
subroutine | freeboard (nx_block, ny_block, icells, indxi, indxj, dt, snoice, iage, hin, hsn, qin, qsn, dzi, dzs) |
subroutine | adjust_enthalpy (nx_block, ny_block, nlyr, icells, indxi, indxj, z1, z2, hlyr, hn, qn) |
subroutine | conservation_check_vthermo (nx_block, ny_block, my_task, istep1, dt, icells, indxi, indxj, fsurfn, flatn, fhocnn, fswint, fsnow, einit, efinal, l_stop, istop, jstop) |
subroutine | update_state_vthermo (nx_block, ny_block, icells, indxi, indxj, Tf, Tsf, hin, hsn, qin, qsn, aicen, vicen, vsnon, Tsfcn, eicen, esnon) |
Variables | |
real(kind=dbl_kind), parameter | saltmax = 3.2_dbl_kind |
real(kind=dbl_kind), parameter | hs_min = 1.e-4_dbl_kind |
real(kind=dbl_kind), parameter | betak = 0.13_dbl_kind |
real(kind=dbl_kind), parameter | kimin = 0.10_dbl_kind |
real(kind=dbl_kind), dimension(nilyr+1) | salin |
real(kind=dbl_kind), dimension(nilyr+1) | Tmlt |
real(kind=dbl_kind) | ustar_scale |
real(kind=dbl_kind), parameter | ferrmax = 1.0e-3_dbl_kind |
character(char_len) | stoplabel |
logical(kind=log_kind) | l_brine |
logical(kind=log_kind) | heat_capacity |
subroutine ice_therm_vertical::adjust_enthalpy | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
integer (kind=int_kind),intent(in) | nlyr, | |||
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 (icells,nlyr+1),intent(in) | z1, | |||
real (kind=dbl_kind),dimension (icells,nlyr+1),intent(in) | z2, | |||
real (kind=dbl_kind),dimension (icells),intent(in) | hlyr, | |||
real (kind=dbl_kind),dimension (icells),intent(in) | hn, | |||
real (kind=dbl_kind),dimension (icells,nlyr),intent(inout) | qn | |||
) |
Definition at line 4283 of file ice_therm_vertical.F90.
subroutine ice_therm_vertical::conductivity | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
logical (kind=log_kind),dimension(icells),intent(in) | l_snow, | |||
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 (icells),intent(in) | indxij, | |||
real (kind=dbl_kind),dimension (icells),intent(in) | hilyr, | |||
real (kind=dbl_kind),dimension (icells),intent(in) | hslyr, | |||
real (kind=dbl_kind),dimension (icells,nilyr),intent(in) | Tin, | |||
real (kind=dbl_kind),dimension (icells,nilyr+nslyr+1),intent(out) | kh | |||
) |
Definition at line 2084 of file ice_therm_vertical.F90.
subroutine ice_therm_vertical::conservation_check_vthermo | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
integer (kind=int_kind),intent(in) | my_task, | |||
integer (kind=int_kind),intent(in) | istep1, | |||
real (kind=dbl_kind),intent(in) | dt, | |||
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) | fsurfn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | flatn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | fhocnn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | fswint, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | fsnow, | |||
real (kind=dbl_kind),dimension (icells),intent(in) | einit, | |||
real (kind=dbl_kind),dimension (icells),intent(in) | efinal, | |||
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 4398 of file ice_therm_vertical.F90.
subroutine ice_therm_vertical::freeboard | ( | 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(inout) | snoice, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | iage, | |||
real (kind=dbl_kind),dimension (icells),intent(inout) | hin, | |||
real (kind=dbl_kind),dimension (icells),intent(inout) | hsn, | |||
real (kind=dbl_kind),dimension (icells,nilyr),intent(inout) | qin, | |||
real (kind=dbl_kind),dimension (icells,nslyr),intent(in) | qsn, | |||
real (kind=dbl_kind),dimension (icells,nilyr),intent(inout) | dzi, | |||
real (kind=dbl_kind),dimension (icells,nslyr),intent(inout) | dzs | |||
) |
Definition at line 4131 of file ice_therm_vertical.F90.
subroutine ice_therm_vertical::frzmlt_bottom_lateral | ( | 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(in) | aice, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) | frzmlt, | |||
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(in) | sst, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) | Tf, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) | strocnxT, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) | strocnyT, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(out) | Tbot, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(out) | fbot, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(out) | rside | |||
) |
Definition at line 609 of file ice_therm_vertical.F90.
subroutine ice_therm_vertical::get_matrix_elements_calc_Tsfc | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
integer (kind=int_kind),intent(in) | isolve, | |||
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, | |||
logical (kind=log_kind),dimension (icells),intent(in) | l_snow, | |||
logical (kind=log_kind),dimension (icells),intent(in) | l_cold, | |||
real (kind=dbl_kind),dimension (icells),intent(in) | Tsf, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | Tbot, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | fsurfn, | |||
real (kind=dbl_kind),dimension (isolve),intent(in) | dfsurf_dT, | |||
real (kind=dbl_kind),dimension (icells,nilyr),intent(in) | Tin_init, | |||
real (kind=dbl_kind),dimension (icells,nslyr),intent(in) | Tsn_init, | |||
real (kind=dbl_kind),dimension (icells,nslyr+nilyr+1),intent(in) | kh, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,nslyr),intent(in) | Sswabs, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,nilyr),intent(in) | Iswabs, | |||
real (kind=dbl_kind),dimension (isolve,nilyr),intent(in) | etai, | |||
real (kind=dbl_kind),dimension (icells,nslyr),intent(in) | etas, | |||
real (kind=dbl_kind),dimension (isolve,nslyr+nilyr+1),intent(inout) | sbdiag, | |||
real (kind=dbl_kind),dimension (isolve,nslyr+nilyr+1),intent(inout) | diag, | |||
real (kind=dbl_kind),dimension (isolve,nslyr+nilyr+1),intent(inout) | spdiag, | |||
real (kind=dbl_kind),dimension (isolve,nslyr+nilyr+1),intent(inout) | rhs | |||
) |
Definition at line 2346 of file ice_therm_vertical.F90.
subroutine ice_therm_vertical::get_matrix_elements_know_Tsfc | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
integer (kind=int_kind),intent(in) | isolve, | |||
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, | |||
logical (kind=log_kind),dimension (icells),intent(in) | l_snow, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | Tbot, | |||
real (kind=dbl_kind),dimension (icells,nilyr),intent(in) | Tin_init, | |||
real (kind=dbl_kind),dimension (icells,nslyr),intent(in) | Tsn_init, | |||
real (kind=dbl_kind),dimension (icells,nslyr+nilyr+1),intent(in) | kh, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,nslyr),intent(in) | Sswabs, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,nilyr),intent(in) | Iswabs, | |||
real (kind=dbl_kind),dimension (isolve,nilyr),intent(in) | etai, | |||
real (kind=dbl_kind),dimension (icells,nslyr),intent(in) | etas, | |||
real (kind=dbl_kind),dimension (isolve,nslyr+nilyr+1),intent(inout) | sbdiag, | |||
real (kind=dbl_kind),dimension (isolve,nslyr+nilyr+1),intent(inout) | diag, | |||
real (kind=dbl_kind),dimension (isolve,nslyr+nilyr+1),intent(inout) | spdiag, | |||
real (kind=dbl_kind),dimension (isolve,nslyr+nilyr+1),intent(inout) | rhs, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in),optional | fcondtopn | |||
) |
Definition at line 2676 of file ice_therm_vertical.F90.
subroutine ice_therm_vertical::init_thermo_vertical | ( | ) |
Definition at line 536 of file ice_therm_vertical.F90.
subroutine ice_therm_vertical::init_vertical_profile | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
integer (kind=int_kind),intent(in) | my_task, | |||
integer (kind=int_kind),intent(in) | istep1, | |||
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) | 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),intent(in) | Tsfcn, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block,nilyr),intent(in) | eicen, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block,nslyr),intent(in) | esnon, | |||
real (kind=dbl_kind),dimension(icells),intent(out) | hin, | |||
real (kind=dbl_kind),dimension(icells),intent(out) | hilyr, | |||
real (kind=dbl_kind),dimension(icells),intent(out) | hsn, | |||
real (kind=dbl_kind),dimension(icells),intent(out) | hslyr, | |||
real (kind=dbl_kind),dimension (icells,nilyr),intent(out) | qin, | |||
real (kind=dbl_kind),dimension (icells,nilyr),intent(out) | Tin, | |||
real (kind=dbl_kind),dimension (icells,nslyr),intent(out) | qsn, | |||
real (kind=dbl_kind),dimension (icells,nslyr),intent(out) | Tsn, | |||
real (kind=dbl_kind),dimension(icells),intent(out) | Tsf, | |||
real (kind=dbl_kind),dimension(icells),intent(out) | einit, | |||
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 844 of file ice_therm_vertical.F90.
subroutine ice_therm_vertical::surface_fluxes | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
integer (kind=int_kind),intent(in) | isolve, | |||
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) | indxij, | |||
real (kind=dbl_kind),dimension (icells),intent(in) | Tsf, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | fswsfc, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | rhoa, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | flw, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | potT, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | Qa, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | shcoef, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | lhcoef, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | flwoutn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fsensn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | flatn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fsurfn, | |||
real (kind=dbl_kind),dimension (icells),intent(inout) | dflwout_dT, | |||
real (kind=dbl_kind),dimension (icells),intent(inout) | dfsens_dT, | |||
real (kind=dbl_kind),dimension (icells),intent(inout) | dflat_dT, | |||
real (kind=dbl_kind),dimension (isolve),intent(inout) | dfsurf_dT | |||
) |
Definition at line 2213 of file ice_therm_vertical.F90.
subroutine ice_therm_vertical::temperature_changes | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
integer (kind=int_kind),intent(in) | my_task, | |||
integer (kind=int_kind),intent(in) | istep1, | |||
real (kind=dbl_kind),intent(in) | dt, | |||
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) | rhoa, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | flw, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | potT, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | Qa, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | shcoef, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | lhcoef, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fswsfc, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fswint, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fswthrun, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,nslyr),intent(inout) | Sswabs, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,nilyr),intent(inout) | Iswabs, | |||
real (kind=dbl_kind),dimension (icells),intent(in) | hilyr, | |||
real (kind=dbl_kind),dimension (icells),intent(in) | hslyr, | |||
real (kind=dbl_kind),dimension (icells,nilyr),intent(inout) | qin, | |||
real (kind=dbl_kind),dimension (icells,nilyr),intent(inout) | Tin, | |||
real (kind=dbl_kind),dimension (icells,nslyr),intent(inout) | qsn, | |||
real (kind=dbl_kind),dimension (icells,nslyr),intent(inout) | Tsn, | |||
real (kind=dbl_kind),dimension (icells),intent(inout) | Tsf, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | Tbot, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fsensn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | flatn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fswabsn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | flwoutn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fsurfn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fcondtopn, | |||
real (kind=dbl_kind),dimension (icells),intent(out) | fcondbot, | |||
real (kind=dbl_kind),dimension (icells),intent(in) | einit, | |||
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 1243 of file ice_therm_vertical.F90.
subroutine ice_therm_vertical::thermo_vertical | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
real (kind=dbl_kind),intent(in) | dt, | |||
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(inout) | aicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,ntrcr),intent(inout) | trcrn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | vicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | vsnon, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block,nilyr),intent(inout) | eicen, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block,nslyr),intent(inout) | esnon, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | flw, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | potT, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | Qa, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | rhoa, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | fsnow, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | fbot, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | Tbot, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | lhcoef, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | shcoef, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fswsfc, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fswint, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fswthrun, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,nslyr),intent(inout) | Sswabs, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,nilyr),intent(inout) | Iswabs, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fsurfn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fcondtopn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | fsensn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | flatn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | fswabsn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | flwoutn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | evapn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | freshn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | fsaltn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | fhocnn, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout) | meltt, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout) | melts, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout) | meltb, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout) | congel, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout) | snoice, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout) | mlt_onset, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout) | frz_onset, | |||
real (kind=dbl_kind),intent(in) | yday, | |||
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 98 of file ice_therm_vertical.F90.
subroutine ice_therm_vertical::thickness_changes | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
real (kind=dbl_kind),intent(in) | dt, | |||
real (kind=dbl_kind),intent(in) | yday, | |||
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 (icells),intent(out) | efinal, | |||
real (kind=dbl_kind),dimension (icells),intent(inout) | hin, | |||
real (kind=dbl_kind),dimension (icells),intent(inout) | hilyr, | |||
real (kind=dbl_kind),dimension (icells),intent(inout) | hsn, | |||
real (kind=dbl_kind),dimension (icells),intent(inout) | hslyr, | |||
real (kind=dbl_kind),dimension (icells,nilyr),intent(inout) | qin, | |||
real (kind=dbl_kind),dimension (icells,nslyr),intent(inout) | qsn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | fbot, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | Tbot, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | flatn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | fsurfn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | fcondtopn, | |||
real (kind=dbl_kind),dimension (icells),intent(in) | fcondbot, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | fsnow, | |||
real (kind=dbl_kind),dimension (icells),intent(out) | hsn_new, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | fhocnn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | evapn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | meltt, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | melts, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | meltb, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | iage, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | congel, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | snoice, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | mlt_onset, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | frz_onset | |||
) |
Definition at line 3521 of file ice_therm_vertical.F90.
subroutine ice_therm_vertical::tridiag_solver | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
integer (kind=int_kind),intent(in) | isolve, | |||
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),intent(in) | nmat, | |||
real (kind=dbl_kind),dimension (isolve,nmat),intent(in) | sbdiag, | |||
real (kind=dbl_kind),dimension (isolve,nmat),intent(in) | diag, | |||
real (kind=dbl_kind),dimension (isolve,nmat),intent(in) | spdiag, | |||
real (kind=dbl_kind),dimension (isolve,nmat),intent(in) | rhs, | |||
real (kind=dbl_kind),dimension (isolve,nmat),intent(inout) | xout | |||
) |
Definition at line 2968 of file ice_therm_vertical.F90.
subroutine ice_therm_vertical::update_state_vthermo | ( | 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),intent(in) | Tf, | |||
real (kind=dbl_kind),dimension(icells),intent(in) | Tsf, | |||
real (kind=dbl_kind),dimension(icells),intent(in) | hin, | |||
real (kind=dbl_kind),dimension(icells),intent(in) | hsn, | |||
real (kind=dbl_kind),dimension (icells,nilyr),intent(in) | qin, | |||
real (kind=dbl_kind),dimension (icells,nslyr),intent(in) | qsn, | |||
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(inout) | vsnon, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | Tsfcn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,nilyr),intent(inout) | eicen, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block,nslyr),intent(inout) | esnon | |||
) |
Definition at line 4518 of file ice_therm_vertical.F90.
subroutine ice_therm_vertical::zerolayer_temperature | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
integer (kind=int_kind),intent(in) | my_task, | |||
integer (kind=int_kind),intent(in) | istep1, | |||
real (kind=dbl_kind),intent(in) | dt, | |||
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) | rhoa, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | flw, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | potT, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | Qa, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | shcoef, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | lhcoef, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | fswsfc, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | fswthrun, | |||
real (kind=dbl_kind),dimension (icells),intent(in) | hilyr, | |||
real (kind=dbl_kind),dimension (icells),intent(in) | hslyr, | |||
real (kind=dbl_kind),dimension (icells),intent(inout) | Tsf, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | Tbot, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fsensn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | flatn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fswabsn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | flwoutn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fsurfn, | |||
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fcondtopn, | |||
real (kind=dbl_kind),dimension (icells),intent(out) | fcondbot, | |||
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 3067 of file ice_therm_vertical.F90.
real (kind=dbl_kind),parameter ice_therm_vertical::betak = 0.13_dbl_kind |
Definition at line 45 of file ice_therm_vertical.F90.
real (kind=dbl_kind),parameter ice_therm_vertical::ferrmax = 1.0e-3_dbl_kind |
Definition at line 59 of file ice_therm_vertical.F90.
logical (kind=log_kind) ice_therm_vertical::heat_capacity |
Definition at line 68 of file ice_therm_vertical.F90.
real (kind=dbl_kind),parameter ice_therm_vertical::hs_min = 1.e-4_dbl_kind |
Definition at line 45 of file ice_therm_vertical.F90.
real (kind=dbl_kind),parameter ice_therm_vertical::kimin = 0.10_dbl_kind |
Definition at line 45 of file ice_therm_vertical.F90.
logical (kind=log_kind) ice_therm_vertical::l_brine |
Definition at line 65 of file ice_therm_vertical.F90.
real (kind=dbl_kind),dimension(nilyr+1) ice_therm_vertical::salin |
Definition at line 51 of file ice_therm_vertical.F90.
real (kind=dbl_kind),parameter ice_therm_vertical::saltmax = 3.2_dbl_kind |
Definition at line 45 of file ice_therm_vertical.F90.
character (char_len) ice_therm_vertical::stoplabel |
Definition at line 63 of file ice_therm_vertical.F90.
real (kind=dbl_kind),dimension(nilyr+1) ice_therm_vertical::Tmlt |
Definition at line 51 of file ice_therm_vertical.F90.
real (kind=dbl_kind) ice_therm_vertical::ustar_scale |
Definition at line 56 of file ice_therm_vertical.F90.