subroutine, public scm_sfc_flux_spec::scm_sfc_flux_spec_run |
( |
integer, intent(in) | im, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | u1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | v1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | z1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | t1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | q1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | p1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | roughness_length, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | spec_sh_flux, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | spec_lh_flux, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | exner_inverse, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | t_surf, |
|
|
real(kind=kind_phys), intent(in) | cp, |
|
|
real(kind=kind_phys), intent(in) | grav, |
|
|
real(kind=kind_phys), intent(in) | hvap, |
|
|
real(kind=kind_phys), intent(in) | rd, |
|
|
real(kind=kind_phys), intent(in) | fvirt, |
|
|
real(kind=kind_phys), intent(in) | vonkarman, |
|
|
real(kind=kind_phys), intent(in) | tgice, |
|
|
integer, dimension(:), intent(inout) | islmsk, |
|
|
logical, dimension(:), intent(inout) | dry, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | frland, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | cice, |
|
|
logical, dimension(:), intent(inout) | icy, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | tisfc, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | oceanfrac, |
|
|
real(kind=kind_phys), intent(in) | min_seaice, |
|
|
logical, intent(in) | cplflx, |
|
|
logical, intent(in) | cplice, |
|
|
logical, dimension(:), intent(inout) | flag_cice, |
|
|
logical, dimension(:), intent(inout) | wet, |
|
|
real(kind=kind_phys), intent(in) | min_lakeice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | tsfcl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | tsfc_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | slmsk, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | lakefrac, |
|
|
integer, intent(in) | lkm, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | lakedepth, |
|
|
integer, dimension(:), intent(inout) | use_lake_model, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | sh_flux, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | lh_flux, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | sh_flux_chs, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | u_star, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | sfc_stress, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | cm, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | ch, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | fm, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | fh, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | rb, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | u10m, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | v10m, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | wind1, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | qss, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | t2m, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | q2m, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |