40 character*16 nomcoo(2), unicoo(2)
49 data coo /0.0,0.0,1.0,0.0,0.0,1.0,1.0,1.0/
50 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
53 call mfiope(fid,
'test27.med',med_acc_rdwr, cret)
55 if (cret .ne. 0 )
then
56 print *,
'Erreur creation du fichier'
59 print *,
'Creation du fichier test27.med'
65 desc =
'un maillage vide'
66 call mmhcre(fid,maa,mdim,sdim,med_unstructured_mesh,
67 & desc,
"",med_sort_dtit,med_cartesian,
70 if (cret .ne. 0 )
then
71 print *,
'Erreur creation du maillage'
77 maa =
'grille cartesienne'
78 desc =
'un exemple de grille cartesienne'
79 call mmhcre(fid,maa,mdim,sdim,med_structured_mesh,
80 & desc,
"",med_sort_dtit,med_cartesian,
83 if (cret .ne. 0 )
then
84 print *,
'Erreur creation du maillage'
87 print *,
'Creation d un maillage MED_STRUCTURE'
91 call mmhgtw(fid,maa,med_cartesian_grid,cret)
93 print *,
'On definit la nature de la grille :
94 & MED_GRILLE_CARTESIENNE'
95 if (cret .ne. 0 )
then
96 print *,
'Erreur ecriture de la nature de la grille'
107 call mmhgcw(fid,maa,med_no_dt,med_no_it,med_undef_dt,
108 & axe,nind,indice,cret)
110 if (cret .ne. 0 )
then
111 print *,
'Erreur ecriture des indices'
114 print *,
'Ecriture des indices des coordonnees selon axe X'
122 call mmhgcw(fid,maa,med_no_dt,med_no_it,med_undef_dt,
123 & axe,nind,indice,cret)
125 if (cret .ne. 0 )
then
126 print *,
'Erreur ecriture des indices'
129 print *,
'Ecriture des indices des coordonnees selon axe Y'
132 maa =
'grille curviligne'
134 desc =
'un exemple de grille curviligne'
135 call mmhcre(fid,maa,mdim,sdim,med_structured_mesh,
136 & desc,
"",med_sort_dtit,med_cartesian,
137 & nomcoo,unicoo,cret)
139 if (cret .ne. 0 )
then
140 print *,
'Erreur creation de maillage'
143 print *,
'Nouveau maillage MED_STRUCTURE'
145 call mmhgtw(fid,maa,med_curvilinear_grid,cret)
147 if (cret .ne. 0 )
then
148 print *,
'Erreur ecriture de la nature de la grille'
151 print *,
'On definit la nature du maillage : MED_GRILLE_STANDARD'
155 call mmhcow(fid,maa,med_no_dt,med_no_it,med_undef_dt,
156 & med_full_interlace,nnoe,coo,cret)
158 if (cret .ne. 0 )
then
159 print *,
'Erreur ecriture des coordonnees des noeuds'
162 print *,
'Ecriture des coordonnees de la grille'
167 call mmhgsw(fid,maa,med_no_dt,med_no_it,med_undef_dt,
170 if (cret .ne. 0 )
then
171 print *,
'Erreur ecriture de la structure'
174 print *,
'Ecriture de la structure de la grille : / 2,2 /'
179 if (cret .ne. 0 )
then
180 print *,
'Erreur fermeture du fichier'
183 print *,
'Fermeture du fichier'