Go to the source code of this file.
|
subroutine | glt_updbud_r (kinit, omsg, tpdom, tpmxl, tptfl, tpatm, tpblkw, tpblki, tpsit, tpsil, tpbud) |
|
subroutine glt_updbud_r |
( |
integer, intent(in) |
kinit, |
|
|
character(*), intent(in) |
omsg, |
|
|
type(t_dom), dimension(np), intent(in) |
tpdom, |
|
|
type(t_mxl), dimension(np), intent(in) |
tpmxl, |
|
|
type(t_tfl), dimension(np), intent(in) |
tptfl, |
|
|
type(t_atm), dimension(np), intent(in) |
tpatm, |
|
|
type(t_blk), dimension(np), intent(in) |
tpblkw, |
|
|
type(t_blk), dimension(nt,np), intent(in) |
tpblki, |
|
|
type(t_sit), dimension(nt,np), intent(in) |
tpsit, |
|
|
type(t_vtp), dimension(nl,nt,np), intent(in) |
tpsil, |
|
|
type(t_bud), dimension(np), intent(inout) |
tpbud |
|
) |
| |