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
91 REAL,
DIMENSION(:),
ALLOCATABLE :: zx
92 REAL,
DIMENSION(:),
ALLOCATABLE :: zy
93 REAL,
DIMENSION(:),
ALLOCATABLE :: zdx
94 REAL,
DIMENSION(:),
ALLOCATABLE :: zdy
96 CHARACTER(LEN=100) :: ycomment
97 REAL(KIND=JPRB) :: zhook_handle
103 IF (lhook) CALL dr_hook(
'WRITE_GRIDTYPE_CONF_PROJ',0,zhook_handle)
110 zlatori,zlonori,iimax,ijmax, &
120 hprogram,
'LAT0',zlat0,kresp,ycomment)
122 hprogram,
'LON0',zlon0,kresp,ycomment)
124 hprogram,
'RPK ',zrpk, kresp,ycomment)
126 hprogram,
'BETA',zbeta,kresp,ycomment)
128 hprogram,
'LATORI',zlatori,kresp,ycomment)
130 hprogram,
'LONORI',zlonori,kresp,ycomment)
132 hprogram,
'IMAX ',iimax, kresp,ycomment)
134 hprogram,
'JMAX ',ijmax, kresp,ycomment)
135 IF (present(hdir))
THEN
137 hprogram,
'XX',zx,kresp,ycomment,hdir)
139 hprogram,
'YY',zy,kresp,ycomment,hdir)
141 hprogram,
'DX',zdx,kresp,ycomment,hdir)
143 hprogram,
'DY',zdy,kresp,ycomment,hdir)
146 hprogram,
'XX',zx,kresp,ycomment)
148 hprogram,
'YY',zy,kresp,ycomment)
150 hprogram,
'DX',zdx,kresp,ycomment)
152 hprogram,
'DY',zdy,kresp,ycomment)
160 IF (lhook) CALL dr_hook(
'WRITE_GRIDTYPE_CONF_PROJ',1,zhook_handle)
subroutine write_gridtype_conf_proj(DGU, U, HPROGRAM, KLU, KGRID_PAR, PGRID_PAR, KRESP, HDIR)
subroutine get_gridtype_conf_proj(PGRID_PAR, PLAT0, PLON0, PRPK, PBETA, PLATOR, PLONOR, KIMAX, KJMAX, PX, PY, PDX, PDY, KL)