subroutine, public gfs_checkland::gfs_checkland_run |
( |
integer, intent(in) | me, |
|
|
integer, intent(in) | master, |
|
|
integer, intent(in) | blkno, |
|
|
integer, intent(in) | im, |
|
|
integer, intent(in) | kdt, |
|
|
integer, intent(in) | iter, |
|
|
logical, dimension(:), intent(in) | flag_iter, |
|
|
logical, dimension(:), intent(in) | flag_guess, |
|
|
logical, intent(in) | flag_init, |
|
|
logical, intent(in) | flag_restart, |
|
|
logical, intent(in) | frac_grid, |
|
|
integer, intent(in) | isot, |
|
|
integer, intent(in) | ivegsrc, |
|
|
integer, dimension(:), intent(in) | stype, |
|
|
integer, dimension(:), intent(in) | scolor, |
|
|
integer, dimension(:), intent(in) | vtype, |
|
|
integer, dimension(:), intent(in) | slope, |
|
|
logical, dimension(:), intent(in) | dry, |
|
|
logical, dimension(:), intent(in) | icy, |
|
|
logical, dimension(:), intent(in) | wet, |
|
|
logical, dimension(:), intent(in) | lake, |
|
|
logical, dimension(:), intent(in) | ocean, |
|
|
real(kind_phys), dimension(:), intent(in) | oceanfrac, |
|
|
real(kind_phys), dimension(:), intent(in) | landfrac, |
|
|
real(kind_phys), dimension(:), intent(in) | lakefrac, |
|
|
real(kind_phys), dimension(:), intent(in) | slmsk, |
|
|
integer, dimension(:), intent(in) | islmsk, |
|
|
real(kind_phys), dimension(:), intent(in) | zorl, |
|
|
real(kind_phys), dimension(:), intent(in) | zorlw, |
|
|
real(kind_phys), dimension(:), intent(in) | zorll, |
|
|
real(kind_phys), dimension(:), intent(in) | zorli, |
|
|
real(kind_phys), dimension(:), intent(in) | fice, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |