7 hprogram,klu,kgrid_par,pgrid_par,kresp)
51 USE yomhook
,ONLY : lhook, dr_hook
52 USE parkind1
,ONLY : jprb
63 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
64 INTEGER,
INTENT(IN) :: klu
65 INTEGER,
INTENT(IN) :: kgrid_par
66 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
67 INTEGER,
INTENT(OUT) :: kresp
72 REAL,
DIMENSION(:),
ALLOCATABLE :: zx
73 REAL,
DIMENSION(:),
ALLOCATABLE :: zy
74 REAL,
DIMENSION(:),
ALLOCATABLE :: zdx
75 REAL,
DIMENSION(:),
ALLOCATABLE :: zdy
77 CHARACTER(LEN=100) :: ycomment
78 REAL(KIND=JPRB) :: zhook_handle
84 IF (lhook) CALL dr_hook(
'WRITE_GRIDTYPE_LONLATVAL',0,zhook_handle)
91 px=zx,py=zy,pdx=zdx,pdy=zdy )
100 hprogram,
'XX',zx,kresp,ycomment)
104 hprogram,
'XY',zy,kresp,ycomment)
108 hprogram,
'DX',zdx,kresp,ycomment)
112 hprogram,
'DY',zdy,kresp,ycomment)
119 IF (lhook) CALL dr_hook(
'WRITE_GRIDTYPE_LONLATVAL',1,zhook_handle)
subroutine get_gridtype_lonlatval(PGRID_PAR, KL, PX, PY, PDX, PDY)
subroutine write_gridtype_lonlatval(DGU, U, HPROGRAM, KLU, KGRID_PAR, PGRID_PAR, KRESP)