subroutine module_sf_jsfc::sfcdif |
( |
integer, intent(in) | ntsd, |
|
|
real(kind=kfpt), intent(in) | seamask, |
|
|
real(kind=kfpt), intent(in) | ths, |
|
|
real(kind=kfpt), intent(inout) | qs, |
|
|
real(kind=kfpt), intent(in) | psfc, |
|
|
real(kind=kfpt), intent(inout) | uz0, |
|
|
real(kind=kfpt), intent(inout) | vz0, |
|
|
real(kind=kfpt), intent(in) | tz0, |
|
|
real(kind=kfpt), intent(inout) | thz0, |
|
|
real(kind=kfpt), intent(inout) | qz0, |
|
|
real(kind=kfpt), intent(inout) | ustar, |
|
|
real(kind=kfpt), intent(inout) | z0, |
|
|
real(kind=kfpt), intent(in) | z0base, |
|
|
real(kind=kfpt), intent(out) | ct, |
|
|
real(kind=kfpt), intent(out) | rlmo, |
|
|
real(kind=kfpt), intent(inout) | akms, |
|
|
real(kind=kfpt), intent(inout) | akhs, |
|
|
real(kind=kfpt), intent(in) | pblh, |
|
|
real(kind=kfpt), intent(in) | wetm, |
|
|
real(kind=kfpt), intent(out) | chs, |
|
|
real(kind=kfpt), intent(out) | chs2, |
|
|
real(kind=kfpt), intent(out) | cqs2, |
|
|
real(kind=kfpt), intent(out) | hfx, |
|
|
real(kind=kfpt), intent(out) | qfx, |
|
|
real(kind=kfpt), intent(out) | flx_lh, |
|
|
real(kind=kfpt), intent(out) | flhc, |
|
|
real(kind=kfpt), intent(out) | flqc, |
|
|
real(kind=kfpt), intent(out) | qgh, |
|
|
real(kind=kfpt), intent(out) | cpm, |
|
|
real(kind=kfpt), intent(in) | ulow, |
|
|
real(kind=kfpt), intent(in) | vlow, |
|
|
real(kind=kfpt), intent(in) | tlow, |
|
|
real(kind=kfpt), intent(in) | thlow, |
|
|
real(kind=kfpt), intent(in) | thelow, |
|
|
real(kind=kfpt), intent(in) | qlow, |
|
|
real(kind=kfpt), intent(in) | cwmlow, |
|
|
real(kind=kfpt), intent(in) | zsl, |
|
|
real(kind=kfpt), intent(in) | plow, |
|
|
real(kind=kfpt) | hlflx, |
|
|
real(kind=kfpt), intent(out) | u10, |
|
|
real(kind=kfpt), intent(out) | v10, |
|
|
real(kind=kfpt), intent(out) | th02, |
|
|
real(kind=kfpt), intent(out) | th10, |
|
|
real(kind=kfpt), intent(out) | q02, |
|
|
real(kind=kfpt), intent(out) | q10, |
|
|
real(kind=kfpt), intent(out) | pshltr, |
|
|
real(kind=kfpt), intent(out) | ffm, |
|
|
real(kind=kfpt), intent(out) | ffh, |
|
|
real(kind=kfpt), intent(out) | fm10, |
|
|
real(kind=kfpt), intent(out) | fh2, |
|
|
real(kind=kfpt), intent(out) | a1u, |
|
|
real(kind=kfpt), intent(out) | a1t, |
|
|
real(kind=kfpt), intent(out) | a1q, |
|
|
integer, intent(in) | ids, |
|
|
integer, intent(in) | ide, |
|
|
integer, intent(in) | jds, |
|
|
integer, intent(in) | jde, |
|
|
integer, intent(in) | kds, |
|
|
integer, intent(in) | kde, |
|
|
integer, intent(in) | ims, |
|
|
integer, intent(in) | ime, |
|
|
integer, intent(in) | jms, |
|
|
integer, intent(in) | jme, |
|
|
integer, intent(in) | kms, |
|
|
integer, intent(in) | kme, |
|
|
integer, intent(in) | its, |
|
|
integer, intent(in) | ite, |
|
|
integer, intent(in) | jts, |
|
|
integer, intent(in) | jte, |
|
|
integer, intent(in) | kts, |
|
|
integer, intent(in) | lm, |
|
|
integer, intent(in) | i, |
|
|
integer, intent(in) | j, |
|
|
real(kind=kfpt), intent(in) | zsfc, |
|
|
real(kind=kfpt), intent(out) | rib, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |
|
private |