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'
subroutine mmhgcw(fid, name, numdt, numit, dt, axis, size, index, cret)
Cette routine permet l'écriture des coordonnées des noeuds d'un maillage structuré selon un axe du re...
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
Cette routine permet de créer un maillage dans un fichier.
subroutine mmhgtw(fid, name, gtype, cret)
Cette routine permet de définir le type d'un maillage structuré (MED_STRUCTURED_MESH).
subroutine mmhgsw(fid, name, numdt, numit, dt, st, cret)
Cette routine définit la structure (nombre de points sur chaque axe du repère) d'un maillage structur...
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, cret)
Cette routine permet d'écrire dans un maillage le tableau des coordonnées des noeuds, selon une séquence de calcul donnée.