34 USE yomhook
,ONLY : lhook, dr_hook
35 USE parkind1
,ONLY : jprb
44 CHARACTER(LEN=10) :: CGRID
48 REAL,
POINTER,
DIMENSION(:) :: XGRID_PAR
50 REAL,
POINTER,
DIMENSION(:) :: XGRID_FULL_PAR
54 INTEGER,
POINTER,
DIMENSION(:,:) :: NNEAR
59 REAL,
POINTER,
DIMENSION(:) :: XLAT
60 REAL,
POINTER,
DIMENSION(:) :: XLON
61 REAL,
POINTER,
DIMENSION(:) :: XMESH_SIZE
62 REAL,
POINTER,
DIMENSION(:) :: XJPDIR
79 REAL(KIND=JPRB) :: zhook_handle
80 IF (lhook) CALL dr_hook(
"MODD_SURF_ATM_GRID_N:SURF_ATM_GRID_INIT",0,zhook_handle)
81 nullify(ysurf_atm_grid%XGRID_PAR)
82 nullify(ysurf_atm_grid%NNEAR)
83 nullify(ysurf_atm_grid%XGRID_FULL_PAR)
84 nullify(ysurf_atm_grid%XLAT)
85 nullify(ysurf_atm_grid%XLON)
86 nullify(ysurf_atm_grid%XMESH_SIZE)
87 nullify(ysurf_atm_grid%XJPDIR)
88 ysurf_atm_grid%CGRID=
' '
89 ysurf_atm_grid%NGRID_PAR=0
90 IF (lhook) CALL dr_hook(
"MODD_SURF_ATM_GRID_N:SURF_ATM_GRID_INIT",1,zhook_handle)
subroutine surf_atm_grid_init(YSURF_ATM_GRID)