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
79 REAL,
DIMENSION(:),
ALLOCATABLE :: zlon
80 REAL,
DIMENSION(:),
ALLOCATABLE :: zlat
82 CHARACTER(LEN=100) :: ycomment
83 REAL(KIND=JPRB) :: zhook_handle
89 IF (lhook) CALL dr_hook(
'WRITE_GRIDTYPE_LONLAT_REG',0,zhook_handle)
91 zlatmin,zlatmax,ilon,ilat,il )
104 hprogram,
'LONMIN',zlonmin,kresp,ycomment)
106 hprogram,
'LONMAX',zlonmax,kresp,ycomment)
108 hprogram,
'LATMIN',zlatmin,kresp,ycomment)
110 hprogram,
'LATMAX',zlatmax,kresp,ycomment)
112 hprogram,
'NLON',ilon,kresp,ycomment)
114 hprogram,
'NLAT',ilat,kresp,ycomment)
116 hprogram,
'REG_LON',zlon,kresp,ycomment)
118 hprogram,
'REG_LAT',zlat,kresp,ycomment)
122 IF (lhook) CALL dr_hook(
'WRITE_GRIDTYPE_LONLAT_REG',1,zhook_handle)
subroutine write_gridtype_lonlat_reg(DGU, U, HPROGRAM, KLU, KGRID_PAR, PGRID_PAR, KRESP)
subroutine get_gridtype_lonlat_reg(PGRID_PAR, PLONMIN, PLONMAX, PLATMIN, PLATMAX, KLON, KLAT, KL, PLON, PLAT)