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
81 REAL,
DIMENSION(:),
ALLOCATABLE :: zlon
82 REAL,
DIMENSION(:),
ALLOCATABLE :: zlat
84 CHARACTER(LEN=100) :: ycomment
85 REAL(KIND=JPRB) :: zhook_handle
91 IF (lhook) CALL dr_hook(
'WRITE_GRIDTYPE_LONLAT_ROT',0,zhook_handle)
93 zwest,zsouth,zdlon,zdlat,zpolon,zpolat, &
107 hprogram,
'WEST',zwest,kresp,ycomment)
109 hprogram,
'SOUTH',zsouth,kresp,ycomment)
111 hprogram,
'DLON',zdlon,kresp,ycomment)
113 hprogram,
'DLAT',zdlat,kresp,ycomment)
115 hprogram,
'POLON',zpolon,kresp,ycomment)
117 hprogram,
'POLAT',zpolat,kresp,ycomment)
119 hprogram,
'NLON',ilon,kresp,ycomment)
121 hprogram,
'NLAT',ilat,kresp,ycomment)
123 hprogram,
'REG_LON',zlon,kresp,ycomment)
125 hprogram,
'REG_LAT',zlat,kresp,ycomment)
129 IF (lhook) CALL dr_hook(
'WRITE_GRIDTYPE_LONLAT_ROT',1,zhook_handle)
subroutine get_gridtype_lonlat_rot(PGRID_PAR, PWEST, PSOUTH, PDLON, PDLAT, PPOLON, PPOLAT, KLON, KLAT, KL, PLON, PLAT)
subroutine write_gridtype_lonlat_rot(DGU, U, HPROGRAM, KLU, KGRID_PAR, PGRID_PAR, KRESP)