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
76 INTEGER,
DIMENSION(:),
ALLOCATABLE :: inlopa
78 REAL,
DIMENSION(KLU) :: zlat
79 REAL,
DIMENSION(KLU) :: zlon
80 REAL,
DIMENSION(KLU) :: zlat_xy
81 REAL,
DIMENSION(KLU) :: zlon_xy
82 REAL,
DIMENSION(KLU) :: zmesh_size
84 REAL,
DIMENSION(KLU) :: zlatsup
85 REAL,
DIMENSION(KLU) :: zlonsup
86 REAL,
DIMENSION(KLU) :: zlatinf
87 REAL,
DIMENSION(KLU) :: zloninf
91 CHARACTER(LEN=100) :: ycomment
92 REAL(KIND=JPRB) :: zhook_handle
95 IF (lhook) CALL dr_hook(
'WRITE_GRIDTYPE_GAUSS',0,zhook_handle)
102 ALLOCATE(inlopa(inlati))
105 zlat,zlon,zlat_xy,zlon_xy,zmesh_size, &
106 zloninf,zlatinf,zlonsup,zlatsup )
115 hprogram,
'NLATI',inlati,kresp,ycomment)
117 hprogram,
'LAPO',zlapo, kresp,ycomment)
119 hprogram,
'LOPO',zlopo,kresp,ycomment)
121 hprogram,
'CODIL',zcodil,kresp,ycomment)
123 hprogram,
'NLOPA',inlopa(:),kresp,ycomment,hdir=
'-',hnam_dim=
'Nlati ')
125 hprogram,
'LATGAUSS',zlat(:),kresp,ycomment)
127 hprogram,
'LONGAUSS',zlon(:),kresp,ycomment)
129 hprogram,
'LAT_G_XY',zlat_xy(:),kresp,ycomment)
131 hprogram,
'LON_G_XY',zlon_xy(:),kresp,ycomment)
133 hprogram,
'MESHGAUSS',zmesh_size(:),kresp,ycomment)
135 hprogram,
'LONINF',zloninf(:),kresp,ycomment)
137 hprogram,
'LATINF',zlatinf(:),kresp,ycomment)
139 hprogram,
'LONSUP',zlonsup(:),kresp,ycomment)
141 hprogram,
'LATSUP',zlatsup(:),kresp,ycomment)
146 IF (lhook) CALL dr_hook(
'WRITE_GRIDTYPE_GAUSS',1,zhook_handle)
subroutine get_gridtype_gauss(PGRID_PAR, KNLATI, PLAPO, PLOPO, PCODIL, KNLOPA, KL, PLAT, PLON, PLAT_XY, PLON_XY, PMESH_SIZE, PLONINF, PLATINF, PLONSUP, PLATSUP)
subroutine write_gridtype_gauss(DGU, U, HPROGRAM, KLU, KGRID_PAR, PGRID_PAR, KRESP)