Functions/Subroutines | |
| subroutine | evp (dt) |
| subroutine | init_evp (dt) |
| subroutine | set_evp_parameters (dt) |
| subroutine | evp_prep1 (nx_block, ny_block, ilo, ihi, jlo, jhi, aice, vice, vsno, tmask, strairxT, strairyT, strairx, strairy, tmass, icetmask) |
| subroutine | evp_prep2 (nx_block, ny_block, ilo, ihi, jlo, jhi, icellt, icellu, indxti, indxtj, indxui, indxuj, aiu, umass, umassdtei, fcor, umask, uocn, vocn, strairx, strairy, ss_tltx, ss_tlty, icetmask, iceumask, fm, strtltx, strtlty, strocnx, strocny, strintx, strinty, waterx, watery, forcex, forcey, stressp_1, stressp_2, stressp_3, stressp_4, stressm_1, stressm_2, stressm_3, stressm_4, stress12_1, stress12_2, stress12_3, stress12_4, uvel, vvel) |
| subroutine | stress (nx_block, ny_block, ksub, icellt, indxti, indxtj, uvel, vvel, dxt, dyt, dxhy, dyhx, cxp, cyp, cxm, cym, tarear, tinyarea, strength, stressp_1, stressp_2, stressp_3, stressp_4, stressm_1, stressm_2, stressm_3, stressm_4, stress12_1, stress12_2, stress12_3, stress12_4, shear, divu, prs_sig, rdg_conv, rdg_shear, str) |
| subroutine | stepu (nx_block, ny_block, icellu, indxui, indxuj, aiu, str, uocn, vocn, waterx, watery, forcex, forcey, umassdtei, fm, uarear, strocnx, strocny, strintx, strinty, uvel, vvel) |
| subroutine | evp_finish (nx_block, ny_block, icellu, indxui, indxuj, uvel, vvel, uocn, vocn, aiu, strocnx, strocny, strocnxT, strocnyT) |
| subroutine | principal_stress (nx_block, ny_block, stressp_1, stressm_1, stress12_1, prs_sig, sig1, sig2) |
Variables | |
| integer(kind=int_kind) | kdyn |
| integer(kind=int_kind) | ndte |
| logical(kind=log_kind) | evp_damping |
| character(len=char_len) | yield_curve |
| real(kind=dbl_kind), parameter | dragw = dragio * rhow |
| real(kind=dbl_kind) | ecci |
| real(kind=dbl_kind) | dtei |
| real(kind=dbl_kind) | dte2T |
| real(kind=dbl_kind) | denom1 |
| real(kind=dbl_kind) | denom2 |
| real(kind=dbl_kind) | rcon |
| real(kind=dbl_kind), dimension(:,:,:), allocatable | fcor_blk |
| subroutine ice_dyn_evp::evp | ( | real (kind=dbl_kind),intent(in) | dt | ) |
Definition at line 104 of file ice_dyn_evp.F90.
| subroutine ice_dyn_evp::evp_finish | ( | integer (kind=int_kind),intent(in) | nx_block, | |
| integer (kind=int_kind),intent(in) | ny_block, | |||
| integer (kind=int_kind),intent(in) | icellu, | |||
| integer (kind=int_kind),dimension (nx_block*ny_block),intent(in) | indxui, | |||
| integer (kind=int_kind),dimension (nx_block*ny_block),intent(in) | indxuj, | |||
| 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) | uocn, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | vocn, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | aiu, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | strocnx, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | strocny, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | strocnxT, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | strocnyT | |||
| ) |
Definition at line 1506 of file ice_dyn_evp.F90.
| subroutine ice_dyn_evp::evp_prep1 | ( | 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),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) | vsno, | |||
| logical (kind=log_kind),dimension (nx_block,ny_block),intent(in) | tmask, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | strairxT, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | strairyT, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | strairx, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | strairy, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | tmass, | |||
| integer (kind=int_kind),dimension (nx_block,ny_block),intent(out) | icetmask | |||
| ) |
Definition at line 672 of file ice_dyn_evp.F90.
| subroutine ice_dyn_evp::evp_prep2 | ( | 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(out) | icellt, | |||
| integer (kind=int_kind),intent(out) | icellu, | |||
| integer (kind=int_kind),dimension (nx_block*ny_block),intent(out) | indxti, | |||
| integer (kind=int_kind),dimension (nx_block*ny_block),intent(out) | indxtj, | |||
| integer (kind=int_kind),dimension (nx_block*ny_block),intent(out) | indxui, | |||
| integer (kind=int_kind),dimension (nx_block*ny_block),intent(out) | indxuj, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | aiu, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | umass, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | umassdtei, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | fcor, | |||
| logical (kind=log_kind),dimension (nx_block,ny_block),intent(in) | umask, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | uocn, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | vocn, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | strairx, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | strairy, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | ss_tltx, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | ss_tlty, | |||
| integer (kind=int_kind),dimension (nx_block,ny_block),intent(in) | icetmask, | |||
| logical (kind=log_kind),dimension (nx_block,ny_block),intent(inout) | iceumask, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | fm, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | strtltx, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | strtlty, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | strocnx, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | strocny, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | strintx, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | strinty, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | waterx, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | watery, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | forcex, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | forcey, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stressp_1, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stressp_2, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stressp_3, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stressp_4, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stressm_1, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stressm_2, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stressm_3, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stressm_4, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stress12_1, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stress12_2, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stress12_3, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stress12_4, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | uvel, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | vvel | |||
| ) |
Definition at line 789 of file ice_dyn_evp.F90.
| subroutine ice_dyn_evp::init_evp | ( | real (kind=dbl_kind),intent(in) | dt | ) |
Definition at line 525 of file ice_dyn_evp.F90.
| subroutine ice_dyn_evp::principal_stress | ( | 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),intent(in) | stressp_1, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | stressm_1, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | stress12_1, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | prs_sig, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | sig1, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(out) | sig2 | |||
| ) |
Definition at line 1591 of file ice_dyn_evp.F90.
| subroutine ice_dyn_evp::set_evp_parameters | ( | real (kind=dbl_kind),intent(in) | dt | ) |
Definition at line 621 of file ice_dyn_evp.F90.
| subroutine ice_dyn_evp::stepu | ( | integer (kind=int_kind),intent(in) | nx_block, | |
| integer (kind=int_kind),intent(in) | ny_block, | |||
| integer (kind=int_kind),intent(in) | icellu, | |||
| integer (kind=int_kind),dimension (nx_block*ny_block),intent(in) | indxui, | |||
| integer (kind=int_kind),dimension (nx_block*ny_block),intent(in) | indxuj, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | aiu, | |||
| real (kind=dbl_kind),dimension(nx_block,ny_block,8),intent(in) | str, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | uocn, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | vocn, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | waterx, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | watery, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | forcex, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | forcey, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | umassdtei, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | fm, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | uarear, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | strocnx, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | strocny, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | strintx, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | strinty, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | uvel, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | vvel | |||
| ) |
Definition at line 1376 of file ice_dyn_evp.F90.
| subroutine ice_dyn_evp::stress | ( | integer (kind=int_kind),intent(in) | nx_block, | |
| integer (kind=int_kind),intent(in) | ny_block, | |||
| integer (kind=int_kind),intent(in) | ksub, | |||
| integer (kind=int_kind),intent(in) | icellt, | |||
| integer (kind=int_kind),dimension (nx_block*ny_block),intent(in) | indxti, | |||
| integer (kind=int_kind),dimension (nx_block*ny_block),intent(in) | indxtj, | |||
| 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) | dxt, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | dyt, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | dxhy, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | dyhx, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | cxp, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | cyp, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | cxm, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | cym, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | tarear, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | tinyarea, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) | strength, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stressp_1, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stressp_2, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stressp_3, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stressp_4, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stressm_1, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stressm_2, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stressm_3, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stressm_4, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stress12_1, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stress12_2, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stress12_3, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | stress12_4, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | shear, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | divu, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | prs_sig, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | rdg_conv, | |||
| real (kind=dbl_kind),dimension (nx_block,ny_block),intent(inout) | rdg_shear, | |||
| real (kind=dbl_kind),dimension(nx_block,ny_block,8),intent(out) | str | |||
| ) |
Definition at line 1021 of file ice_dyn_evp.F90.
| real (kind=dbl_kind) ice_dyn_evp::denom1 |
Definition at line 82 of file ice_dyn_evp.F90.
| real (kind=dbl_kind) ice_dyn_evp::denom2 |
Definition at line 82 of file ice_dyn_evp.F90.
| real (kind=dbl_kind),parameter ice_dyn_evp::dragw = dragio * rhow |
Definition at line 72 of file ice_dyn_evp.F90.
| real (kind=dbl_kind) ice_dyn_evp::dte2T |
Definition at line 82 of file ice_dyn_evp.F90.
| real (kind=dbl_kind) ice_dyn_evp::dtei |
Definition at line 82 of file ice_dyn_evp.F90.
| real (kind=dbl_kind) ice_dyn_evp::ecci |
Definition at line 82 of file ice_dyn_evp.F90.
| logical (kind=log_kind) ice_dyn_evp::evp_damping |
Definition at line 64 of file ice_dyn_evp.F90.
| real (kind=dbl_kind),dimension(:,:,:),allocatable ice_dyn_evp::fcor_blk |
Definition at line 90 of file ice_dyn_evp.F90.
| integer (kind=int_kind) ice_dyn_evp::kdyn |
Definition at line 60 of file ice_dyn_evp.F90.
| integer (kind=int_kind) ice_dyn_evp::ndte |
Definition at line 60 of file ice_dyn_evp.F90.
| real (kind=dbl_kind) ice_dyn_evp::rcon |
Definition at line 82 of file ice_dyn_evp.F90.
| character (len=char_len) ice_dyn_evp::yield_curve |
Definition at line 69 of file ice_dyn_evp.F90.
1.6.1
