subroutine __module_sf_noahmplsm_f90__::sfcdif4 |
( |
integer, intent(in) | iloc, |
|
|
integer, intent(in) | jloc, |
|
|
real(kind=kind_phys), intent(in) | ux, |
|
|
real(kind=kind_phys), intent(in) | vx, |
|
|
real(kind=kind_phys), intent(in) | t1d, |
|
|
real(kind=kind_phys), intent(in) | p1d, |
|
|
real(kind=kind_phys), intent(in) | psfcpa, |
|
|
real(kind=kind_phys), intent(in) | pblhx, |
|
|
real(kind=kind_phys), intent(in) | dx, |
|
|
real(kind=kind_phys), intent(in) | znt, |
|
|
real(kind=kind_phys), intent(in) | ep_1, |
|
|
real(kind=kind_phys), intent(in) | ep_2, |
|
|
real(kind=kind_phys), intent(in) | cp, |
|
|
integer, intent(in) | itime, |
|
|
real(kind=kind_phys), intent(in) | snwh, |
|
|
integer, intent(in) | isice, |
|
|
integer, intent(in) | psi_opt, |
|
|
real(kind=kind_phys), intent(in) | tsk, |
|
|
real(kind=kind_phys), intent(in) | qx, |
|
|
real(kind=kind_phys), intent(in) | zlvl, |
|
|
integer, intent(in), optional | iz0tlnd, |
|
|
real(kind=kind_phys), intent(inout) | qsfc, |
|
|
real(kind=kind_phys), intent(in) | hfx, |
|
|
real(kind=kind_phys), intent(in) | qfx, |
|
|
real(kind=kind_phys), intent(inout) | cm, |
|
|
real(kind=kind_phys), intent(inout) | chs, |
|
|
real(kind=kind_phys), intent(inout) | chs2, |
|
|
real(kind=kind_phys), intent(inout) | cqs2, |
|
|
real(kind=kind_phys), intent(inout) | rmolx, |
|
|
real(kind=kind_phys), intent(inout) | ust, |
|
|
real(kind=kind_phys), intent(inout) | rbx, |
|
|
real(kind=kind_phys), intent(inout) | fmx, |
|
|
real(kind=kind_phys), intent(inout) | fhx, |
|
|
real(kind=kind_phys), intent(inout) | stressx, |
|
|
real(kind=kind_phys), intent(inout) | fm10x, |
|
|
real(kind=kind_phys), intent(inout) | fh2x, |
|
|
real(kind=kind_phys), intent(inout) | wspdx, |
|
|
real(kind=kind_phys), intent(inout) | flhcx, |
|
|
real(kind=kind_phys), intent(inout) | flqcx ) |
|
private |