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
73 REAL,
DIMENSION(:),
ALLOCATABLE :: zx
74 REAL,
DIMENSION(:),
ALLOCATABLE :: zy
75 REAL,
DIMENSION(:),
ALLOCATABLE :: zdx
76 REAL,
DIMENSION(:),
ALLOCATABLE :: zdy
78 CHARACTER(LEN=100) :: ycomment
79 REAL(KIND=JPRB) :: zhook_handle
85 IF (lhook) CALL dr_hook(
'WRITE_GRIDTYPE_IGN',0,zhook_handle)
92 px=zx,py=zy,pdx=zdx,pdy=zdy )
100 SELECT CASE (ilambert)
110 ycomment=
'LAMBERT 2 ETENDU'
112 ycomment=
'LAMBERT 93'
115 hprogram,
'LAMBERT ',ilambert, kresp,ycomment)
119 hprogram,
'XX',zx,kresp,ycomment)
123 hprogram,
'XY',zy,kresp,ycomment)
127 hprogram,
'DX',zdx,kresp,ycomment)
131 hprogram,
'DY',zdy,kresp,ycomment)
138 IF (lhook) CALL dr_hook(
'WRITE_GRIDTYPE_IGN',1,zhook_handle)
subroutine get_gridtype_ign(PGRID_PAR, KLAMBERT, KL, PX, PY, PDX, PDY, KDIMX, KDIMY, PXALL, PYALL)
subroutine write_gridtype_ign(DGU, U, HPROGRAM, KLU, KGRID_PAR, PGRID_PAR, KRESP)