41 character*16 nomcoo(2), unicoo(2)
50 data coo /0.0,0.0,1.0,0.0,0.0,1.0,1.0,1.0/
51 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
54 call mfiope(fid,
'test27.med',med_acc_rdwr, cret)
56 if (cret .ne. 0 )
then
57 print *,
'Erreur creation du fichier'
60 print *,
'Creation du fichier test27.med'
66 desc =
'un maillage vide'
67 call mmhcre(fid,maa,mdim,sdim,med_unstructured_mesh,
68 & desc,
"",med_sort_dtit,med_cartesian,
71 if (cret .ne. 0 )
then
72 print *,
'Erreur creation du maillage'
78 maa =
'grille cartesienne'
79 desc =
'un exemple de grille cartesienne'
80 call mmhcre(fid,maa,mdim,sdim,med_structured_mesh,
81 & desc,
"",med_sort_dtit,med_cartesian,
84 if (cret .ne. 0 )
then
85 print *,
'Erreur creation du maillage'
88 print *,
'Creation d un maillage MED_STRUCTURE'
92 call mmhgtw(fid,maa,med_cartesian_grid,cret)
94 print *,
'On definit la nature de la grille :
95 & MED_GRILLE_CARTESIENNE'
96 if (cret .ne. 0 )
then
97 print *,
'Erreur ecriture de la nature de la grille'
108 call mmhgcw(fid,maa,med_no_dt,med_no_it,med_undef_dt,
109 & axe,nind,indice,cret)
111 if (cret .ne. 0 )
then
112 print *,
'Erreur ecriture des indices'
115 print *,
'Ecriture des indices des coordonnees selon axe X'
123 call mmhgcw(fid,maa,med_no_dt,med_no_it,med_undef_dt,
124 & axe,nind,indice,cret)
126 if (cret .ne. 0 )
then
127 print *,
'Erreur ecriture des indices'
130 print *,
'Ecriture des indices des coordonnees selon axe Y'
133 maa =
'grille curviligne'
135 desc =
'un exemple de grille curviligne'
136 call mmhcre(fid,maa,mdim,sdim,med_structured_mesh,
137 & desc,
"",med_sort_dtit,med_cartesian,
138 & nomcoo,unicoo,cret)
140 if (cret .ne. 0 )
then
141 print *,
'Erreur creation de maillage'
144 print *,
'Nouveau maillage MED_STRUCTURE'
146 call mmhgtw(fid,maa,med_curvilinear_grid,cret)
148 if (cret .ne. 0 )
then
149 print *,
'Erreur ecriture de la nature de la grille'
152 print *,
'On definit la nature du maillage : MED_GRILLE_STANDARD'
156 call mmhcow(fid,maa,med_no_dt,med_no_it,med_undef_dt,
157 & med_full_interlace,nnoe,coo,cret)
159 if (cret .ne. 0 )
then
160 print *,
'Erreur ecriture des coordonnees des noeuds'
163 print *,
'Ecriture des coordonnees de la grille'
168 call mmhgsw(fid,maa,med_no_dt,med_no_it,med_undef_dt,
171 if (cret .ne. 0 )
then
172 print *,
'Erreur ecriture de la structure'
175 print *,
'Ecriture de la structure de la grille : / 2,2 /'
180 if (cret .ne. 0 )
then
181 print *,
'Erreur fermeture du fichier'
184 print *,
'Fermeture du fichier'