subroutine sfc_sice::sfc_sice_run | ( | integer, intent(in) | im, |
integer, intent(in) | kice, | ||
real (kind=kind_phys), intent(in) | sbc, | ||
real (kind=kind_phys), intent(in) | hvap, | ||
real (kind=kind_phys), intent(in) | tgice, | ||
real (kind=kind_phys), intent(in) | cp, | ||
real (kind=kind_phys), intent(in) | eps, | ||
real (kind=kind_phys), intent(in) | epsm1, | ||
real (kind=kind_phys), intent(in) | rvrdm1, | ||
real (kind=kind_phys), intent(in) | grav, | ||
real (kind=kind_phys), intent(in) | t0c, | ||
real (kind=kind_phys), intent(in) | rd, | ||
real (kind=kind_phys), dimension(im), intent(in) | ps, | ||
real (kind=kind_phys), dimension(im), intent(in) | t1, | ||
real (kind=kind_phys), dimension(im), intent(in) | q1, | ||
real (kind=kind_phys), intent(in) | delt, | ||
real (kind=kind_phys), dimension(im), intent(in) | sfcemis, | ||
real (kind=kind_phys), dimension(im), intent(in) | dlwflx, | ||
real (kind=kind_phys), dimension(im), intent(in) | sfcnsw, | ||
real (kind=kind_phys), dimension(im), intent(in) | sfcdsw, | ||
real (kind=kind_phys), dimension(im), intent(in) | srflag, | ||
real (kind=kind_phys), dimension(im), intent(in) | cm, | ||
real (kind=kind_phys), dimension(im), intent(in) | ch, | ||
real (kind=kind_phys), dimension(im), intent(in) | prsl1, | ||
real (kind=kind_phys), dimension(im), intent(in) | prslki, | ||
real (kind=kind_phys), dimension(im), intent(in) | prsik1, | ||
real (kind=kind_phys), dimension(im), intent(in) | prslk1, | ||
real (kind=kind_phys), dimension(im), intent(in) | wind, | ||
logical, dimension(im), intent(in) | flag_iter, | ||
logical, intent(in) | lprnt, | ||
integer, intent(in) | ipr, | ||
real (kind=kind_phys), dimension(im), intent(inout) | hice, | ||
real (kind=kind_phys), dimension(im), intent(inout) | fice, | ||
real (kind=kind_phys), dimension(im), intent(inout) | tice, | ||
real (kind=kind_phys), dimension(im), intent(inout) | weasd, | ||
real (kind=kind_phys), dimension(im), intent(inout) | tskin, | ||
real (kind=kind_phys), dimension(im), intent(inout) | tprcp, | ||
real (kind=kind_phys), dimension(im,kice), intent(inout) | tiice, | ||
real (kind=kind_phys), dimension(im), intent(inout) | ep, | ||
real (kind=kind_phys), dimension(im), intent(inout) | snwdph, | ||
real (kind=kind_phys), dimension(im), intent(inout) | qsurf, | ||
real (kind=kind_phys), dimension(im), intent(inout) | snowmt, | ||
real (kind=kind_phys), dimension(im), intent(inout) | gflux, | ||
real (kind=kind_phys), dimension(im), intent(inout) | cmm, | ||
real (kind=kind_phys), dimension(im), intent(inout) | chh, | ||
real (kind=kind_phys), dimension(im), intent(inout) | evap, | ||
real (kind=kind_phys), dimension(im), intent(inout) | hflx, | ||
logical, intent(in) | frac_grid, | ||
logical, dimension(im), intent(in) | icy, | ||
integer, dimension(im), intent(in) | islmsk_cice, | ||
real (kind=kind_phys), intent(in) | min_lakeice, | ||
real (kind=kind_phys), intent(in) | min_seaice, | ||
real (kind=kind_phys), dimension(im), intent(in) | oceanfrac, | ||
character(len=*), intent(out) | errmsg, | ||
integer, intent(out) | errflg | ||
) |
program history log:
References funcphys::fpvs(), and ice3lay().