7 hprogram,klu,kgrid_par,pgrid_par,kresp,hdir)
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
68 CHARACTER(LEN=1),
OPTIONAL,
INTENT(IN) :: hdir
82 REAL,
DIMENSION(:),
ALLOCATABLE :: zx
83 REAL,
DIMENSION(:),
ALLOCATABLE :: zy
84 REAL,
DIMENSION(:),
ALLOCATABLE :: zdx
85 REAL,
DIMENSION(:),
ALLOCATABLE :: zdy
87 CHARACTER(LEN=100) :: ycomment
88 REAL(KIND=JPRB) :: zhook_handle
94 IF (lhook) CALL dr_hook(
'WRITE_GRIDTYPE_CARTESIAN',0,zhook_handle)
101 iimax,ijmax,zx,zy,zdx,zdy )
110 hprogram,
'LAT0',zlat0,kresp,ycomment)
112 hprogram,
'LON0',zlon0,kresp,ycomment)
114 hprogram,
'IMAX ',iimax, kresp,ycomment)
116 hprogram,
'JMAX ',ijmax, kresp,ycomment)
117 IF (present(hdir))
THEN
119 hprogram,
'XX',zx,kresp,ycomment,hdir)
121 hprogram,
'YY',zy,kresp,ycomment,hdir)
123 hprogram,
'DX',zdx,kresp,ycomment,hdir)
125 hprogram,
'DY',zdy,kresp,ycomment,hdir)
128 hprogram,
'XX',zx,kresp,ycomment)
130 hprogram,
'YY',zy,kresp,ycomment)
132 hprogram,
'DX',zdx,kresp,ycomment)
134 hprogram,
'DY',zdy,kresp,ycomment)
142 IF (lhook) CALL dr_hook(
'WRITE_GRIDTYPE_CARTESIAN',1,zhook_handle)
subroutine write_gridtype_cartesian(DGU, U, HPROGRAM, KLU, KGRID_PAR, PGRID_PAR, KRESP, HDIR)
subroutine get_gridtype_cartesian(PGRID_PAR, PLAT0, PLON0, KIMAX, KJMAX, PX, PY, PDX, PDY, KL)