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'
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mmhgtw(fid, name, gtype, cret)
Cette routine permet de définir le type d'un maillage structuré (MED_STRUCTURED_MESH).
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 mmhgsw(fid, name, numdt, numit, dt, st, cret)
subroutine mmhgcw(fid, name, numdt, numit, dt, axis, size, index, cret)
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, cret)