subroutine, public gfs_surface_composites_pre::gfs_surface_composites_pre_run |
( |
integer, intent(in) | im, |
|
|
integer, intent(in) | lkm, |
|
|
logical, intent(in) | frac_grid, |
|
|
integer, intent(in) | iopt_lake, |
|
|
integer, intent(in) | iopt_lake_clm, |
|
|
logical, dimension(:), intent(inout) | flag_cice, |
|
|
logical, intent(in) | cplflx, |
|
|
logical, intent(in) | cplice, |
|
|
logical, intent(in) | cplwav2atm, |
|
|
integer, intent(in) | lsm, |
|
|
integer, intent(in) | lsm_ruc, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | landfrac, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | lakefrac, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | lakedepth, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | oceanfrac, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | frland, |
|
|
logical, dimension(:), intent(inout) | dry, |
|
|
logical, dimension(:), intent(inout) | icy, |
|
|
logical, dimension(:), intent(inout) | lake, |
|
|
integer, dimension(:), intent(in) | use_lake_model, |
|
|
logical, dimension(:), intent(inout) | wet, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | hice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | cice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | zorlo, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | zorll, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | zorli, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | snowd, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | snowd_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | snowd_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | tprcp, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | tprcp_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | tgrs1, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | tprcp_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | tprcp_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | uustar, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | uustar_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | uustar_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | uustar_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | weasd, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | weasd_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | weasd_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | ep1d_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | tsfc, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | tsfco, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | tsfcl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | tsfc_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | tisfc, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | tsurf_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | tsurf_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | tsurf_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | gflx_ice, |
|
|
real(kind=kind_phys), intent(in) | tgice, |
|
|
integer, dimension(:), intent(inout) | islmsk, |
|
|
integer, dimension(:), intent(inout) | islmsk_cice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | slmsk, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | qss, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | qss_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | qss_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | qss_ice, |
|
|
real(kind=kind_phys), intent(in) | min_lakeice, |
|
|
real(kind=kind_phys), intent(in) | min_seaice, |
|
|
integer, intent(in) | kdt, |
|
|
real(kind=kind_phys), intent(in) | huge, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |