subroutine, public gfs_surface_composites_post::gfs_surface_composites_post_run |
( |
integer, intent(in) | im, |
|
|
integer, intent(in) | kice, |
|
|
integer, intent(in) | km, |
|
|
real(kind=kind_phys), intent(in) | rd, |
|
|
real(kind=kind_phys), intent(in) | rvrdm1, |
|
|
logical, intent(in) | cplflx, |
|
|
logical, intent(in) | cplwav2atm, |
|
|
logical, intent(in) | cpl_fire, |
|
|
logical, intent(in) | frac_grid, |
|
|
logical, dimension(:), intent(in) | flag_cice, |
|
|
logical, intent(in) | thsfc_loc, |
|
|
integer, dimension(:), intent(in) | islmsk, |
|
|
logical, dimension(:), intent(in) | dry, |
|
|
logical, dimension(:), intent(in) | wet, |
|
|
logical, dimension(:), intent(in) | icy, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | wind, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | t1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | q1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | prsl1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | landfrac, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | lakefrac, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | oceanfrac, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | zorl, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | zorlo, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | zorll, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | zorli, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | garea, |
|
|
logical, intent(in) | frac_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | cd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | cd_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | cd_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | cd_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | cdq, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | cdq_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | cdq_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | cdq_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | rb, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | rb_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | rb_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | rb_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | stress, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | stress_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | stress_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | stress_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | ffmm, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | ffmm_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | ffmm_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | ffmm_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | ffhh, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | ffhh_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | ffhh_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | ffhh_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | uustar, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | uustar_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | uustar_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | uustar_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | fm10, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | fm10_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | fm10_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | fm10_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | fh2, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | fh2_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | fh2_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | fh2_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | tsurf_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | tsurf_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | tsurf_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | cmm, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | cmm_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | cmm_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | cmm_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | chh, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | chh_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | chh_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | chh_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | gflx, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | gflx_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | gflx_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | gflx_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | ep1d, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | ep1d_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | ep1d_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | ep1d_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | weasd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | weasd_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | weasd_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | snowd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | snowd_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | snowd_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | tprcp, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | tprcp_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | tprcp_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | tprcp_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | evap, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | evap_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | evap_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | evap_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | hflx, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | hflx_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | hflx_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | hflx_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(in), optional | hflx_fire, |
|
|
real(kind=kind_phys), dimension(:), intent(in), optional | evap_fire, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | qss, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | qss_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | qss_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | qss_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(in) | tsfc_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | tisfc, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | hice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | cice, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | tiice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | sigmaf, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | zvfun, |
|
|
logical, intent(in) | lheatstrg, |
|
|
real(kind=kind_phys), intent(in) | h0facu, |
|
|
real(kind=kind_phys), intent(in) | h0facs, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | hflxq, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | hffac, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) | stc, |
|
|
integer, intent(in) | lkm, |
|
|
integer, intent(in) | iopt_lake, |
|
|
integer, intent(in) | iopt_lake_clm, |
|
|
integer, dimension(:), intent(in) | use_lake_model, |
|
|
real(kind=kind_phys), intent(in) | grav, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | prsik1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | prslk1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | prslki, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | z1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | ztmax_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | ztmax_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | ztmax_ice, |
|
|
real(kind=kind_phys), intent(in) | huge, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |