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'