8 hprogram,hfile,hfiletype,ogrid)
58 USE yomhook
,ONLY : lhook, dr_hook
59 USE parkind1
,ONLY : jprb
61 USE modi_pgd_grid_io_init
75 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
76 CHARACTER(LEN=28),
INTENT(IN) :: hfile
77 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
78 LOGICAL,
INTENT(IN) :: ogrid
79 REAL(KIND=JPRB) :: zhook_handle
85 CHARACTER(LEN=100) :: ycomment
88 IF (lhook) CALL dr_hook(
'PGD_GRID_SURF_ATM',0,zhook_handle)
105 hprogram,hfile,hfiletype,ogrid,ug%CGRID,ug%NGRID_PAR,ug%XGRID_PAR)
115 IF (lhook) CALL dr_hook(
'PGD_GRID_SURF_ATM',1,zhook_handle)
subroutine pgd_grid_surf_atm(UG, U, HPROGRAM, HFILE, HFILETYPE, OGRID)
subroutine pgd_grid_io_init(HPROGRAM)
subroutine pgd_grid(UG, U, HPROGRAM, HFILE, HFILETYPE, OGRID, HGRID, KGRID_PAR, PGRID_PAR)