Go to the source code of this file.
|
subroutine | write_grid (DGU, U, HPROGRAM, HGRID, PGRID_PAR, PLAT, PLON, PMESH_SIZE, KRESP, PDIR, HDIR) |
|
subroutine write_grid |
( |
type(diag_surf_atm_t), intent(inout) |
DGU, |
|
|
type(surf_atm_t), intent(inout) |
U, |
|
|
character(len=6), intent(in) |
HPROGRAM, |
|
|
character(len=10), intent(in) |
HGRID, |
|
|
real, dimension(:), pointer |
PGRID_PAR, |
|
|
real, dimension(:), intent(in) |
PLAT, |
|
|
real, dimension(:), intent(in) |
PLON, |
|
|
real, dimension(:), intent(in) |
PMESH_SIZE, |
|
|
integer, intent(out) |
KRESP, |
|
|
real, dimension(:), intent(in), optional |
PDIR, |
|
|
character(len=1), intent(in), optional |
HDIR |
|
) |
| |