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 mficlo(fid, cret)
subroutine mmhgsw(fid, name, numdt, numit, dt, st, cret)
subroutine mmhgtw(fid, name, gtype, cret)
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, cret)
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mmhgcw(fid, name, numdt, numit, dt, axis, size, index, cret)