|
Format |
FORMAT DES FICHIERS BATHYMETRIQUES
Les fichiers contiennent les profondeurs en mètres discrétisées sur une grille régulière en latitude-longitude.
Les points de terre valent 0, les récifs 1 et les profondeurs sont comptées positivement avec une profondeur minimale de 2 mètres et une profondeur maximale de 9999 mètres.
Le premier enregistrement contient les informations sur le fichier:
Nom de la zone (32 caractères)
Nombre de points de grille en longitude (3 caractères)
Nombre de points de grille en latitude (3 caractères)
Nombre de points de grille pour un degré de latitude-longitude (4 caractères) (exemple pour une grille de maille 1 minute, ce nombre vaut 60)
Latitude sud en dixmillième de degré comptée positivement dans l'hémisphère nord (8 caractères)
Latitude nord en dixmillième de degré comptée positivement dans l'hémisphère nord (8 caractères)
Longitude ouest en dixmillième de degré comptée positivement à l'est du méridien de Greenwich (8 caractères)
Longitude est en dixmillième de degré comptée positivement à l'est du méridien de Greenwich (8 caractères)
Les enregistrements suivants sont les profondeurs décrites par bloc de 20 fois 4 caractères
Exemple de carte et de fichier associé:
Ouvea 49 41 60 -208667 -202000 1660000 1668000 11271165120312411279131713511385141914531487154115941648170117551811186819251981 11241156118812211253128513121338136413901417146815191570162116721718176318091854 11201147117412001227125412731291130913271346139514431492154115901624165916931728 11161137115911801202122312331244125412651275132113681414146115071530155415771601 11481171119412171240126312501236122312101197123012641297133013641399143514711507 118012051229125412781303126612291192 11119113911591180120012201268131713651413 12131239126512901316134212821222 15 15 1 1 11062107010771138119812591320 1245127213001327135513821298 1 15 15 15 15 15 1 939 9331007108011531226 127713061335136413931422131512071107 992 15 15 15 15 1 790 876 96110471132 1315133813611384140614291314 1 16 967 852 813 15 15 1 659 733 808 882 957 1353136913861403142014371313 1 20 942 819 760 15 1 586 528 591 654 717 781 1390140114121423143314441312 1 8 20 1 1 1 1 474 396 449 501 553 605 14281433143814421447145213121172 1 1 1 655 557 460 363 265 306 347 388 429 14661465146314621460145913111640 0 0 719 602 485 368 251 134 164 194 223 253 152815131497148214661651150015001072 946 820 683 546 409 272 135 161 187 213 238 1590156115311502147216431500123411291025 920 764 607 450 293 137 159 180 202 224 16521609156515221478163515001269118611041021 844 668 491 315 138 156 174 191 209 17141657159915421484162715001500124411831121 925 729 532 336 1 1 167 181 1 177617051633156214901619161015001500126112221006 790 1 1 1 1 1 1 25 180317461690163315771620161315041500136112231011 800 35 35 25 25 25 25 25 183017881746170516631621154215021500150010001017 810 35 35 35 35 32 30 29 1857183018031776174917221623153315001000 1 1 1 35 35 35 35 32 30 29 18841872186019472000200018041634150015001000 1 1 1 1 1 30 30 29 29 191119141916196920212000200018351606150012271000 141 1 1 1 1 25 25 25 1952194719422000203221282000183017361500150012231210 218 216 204 201 201 21 25 19921980199920172043223121102000186617451500150012001000 678 266 1 1 21 20 203320132000203520542235212220002000181416011500150012001000 269 1 1 1 1 236020462019206921652238213920312000182317191619150015001000 271 850 248 236 224 23802370204521112176224221152112200020001827171816101500150010001009 264 260 255 23902380237022142205235722772198211920002000200018141611150015001500100010001000 23902380237023602295237122082145218120182005200020002000190217141500150015001200 24002390238023802370238622382291214420962027202620032000200020001876170015001400 24002400239023802380237022692217210621742143210521072100209220002000170015001500 24002400240024002390238023702284226821532137212421922189208720742000200018101500 24202420242024102400239023802370228622732160229922782237223422252216200020002000 24102410242024202410240024002390238023032237223322342224222522262211221822132000 24202420242024202420241022502400240023802208223722202227221922172213211021092107 24202420242024202420242024202420241024002390226222962230226422982202210521092113 24202420242024202420242024202410241024002400239022422287223322792207213521632191 24202420242024202420241024102410240024002400239023802321227722332253217421942215 24102420242024302430242024202410241024002400240023902380232022862299221222262239 20382029201920102001199221102228234624642582261026382667269527232830293830453152 19001914192719411955196820532138222323082393243424742514255425952708282129343048 17621799183518721909194519972049210121532205225723092362241424662586270528242943 16241684174318031862192219411960197819972016208021452209227423382463258827142839 15431602166117201779183818531869188519011917196920212074212621792298241725362655 14621520157816371695175317661779179218041817185818981939197920202133224623582471 13801438149615531611100010001000100017081718174617751803183218601967207421812281 12991356141314701527 884 891 898 80510001000163516521668168517011802190324032404 12181274133113871444 700 804 808 811 815 819100015281533153715421637173118261920 10311105117912531327 580 605 609 612 616 619 50010001000143714411000100010001000 844 936102810201011 403 406 410 413 416 419 423 500 500 500 500 500 500 500 500 657 767 876 886 905 405 408 400 413 416 419 323 327 231 235 239 306 0 441 409 470 597 725 852 879 306 349 311 314 336 319 123 127 0 0 0 0 0 0 372 283 428 573 718 663 208 210 212 215 217 119 1 2 0 0 0 0 0 0 235 264 383 501 619 1 156 158 160 162 164 1 5 5 2 5 5 2 0 0 0 245 337 429 1 0 1 1 1 1 1 10 10 10 5 10 8 5 0 0 0 227 292 357 1 17 17 17 17 17 14 12 10 11 10 10 4 5 0 0 0 1 1 1 17 17 17 17 17 17 14 12 10 10 10 10 5 5 0 0 188 25 25 25 25 25 22 22 19 16 14 14 12 3 10 10 8 5 0 292 241 25 25 25 25 25 22 19 15 15 14 14 12 10 12 10 8 0 233 242 251 29 25 25 25 25 22 19 16 14 14 14 11 11 11 10 8 0 182 192 201 29 25 25 20 17 19 16 15 14 14 14 11 11 11 10 5 0 132 142 500 25 25 22 17 15 15 15 15 12 12 11 11 11 11 10 0 0 81 189 500 25 20 17 15 15 10 10 10 10 10 10 10 10 10 7 0 0 31 41 52 20 19 17 15 11 10 10 10 10 11 10 10 10 10 7 0 0 34 0 0 19 19 15 11 11 10 10 10 10 10 10 10 10 8 6 0 0 0 0 52 1 15 15 13 11 11 11 10 10 10 10 10 10 5 1 0 0 0 461000 220 8 13 13 13 13 13 10 6 11 10 10 5 5 0 0 0 0 481000 250 1 1 1 13 13 13 11 11 11 6 7 5 0 0 0 0 0 491000 381 340 1 1 13 13 12 11 11 10 7 6 0 0 0 0 0 8210001108 1000 456 400 1 11 10 11 11 10 5 1 0 0 0 0 0 0100011411265 12001000 500 1 1 1 10 10 0 0 0 0 0 67 76 851000115313881322 13001000 601 515 0 0 0 0 0 110 52 61 701000100010001244138914541500 150012101210 600 4991000 330 263 196 9801000100010001293140315001500150015001500 15001500121012101100150010001000100010001000115312701386150016201576153315891546 20002000150015001500161015001500150015001500150015001500150317271684164216991757 20062000200018051886176616501650161716011685161416441674160417331792175017091787 20862007200020002000182317901757172417921759179517311768170417401800178917191778 21192071202320352000200018301781173117821733177617191761176417671807180817981809 21352095205420132002203120001774134512171088111311391164118912141266131713691421 21522118208520512017203420061868146013511243125112581266127312811324136714101453 325932643268327332783282332233623402 316131663170317531803185324333013360 306230673072307730823087316432413317 296429692974298029852990308531803275 277427972821284428672890299430983202 258426262667270827492790290728172830 239524542513257226312691281829352757 220522822359243615142091202520532084 100010001000230123961591163117711912 969 743 540100010001000100015191658 500 500 500 500 500 890 82810001000 476 409 442 474 407 500 500 714 752 330 342 354 365 477 489 425 500 500 284 275 266 256 247 338 374 410 445 89 182 174 267 360 252 387 321 415 0 0 183 378 472 467 499 432 364 0 0 292 489 500 481 412 443 300 165 173 381 500 897 500 500 500 483 267 310 500100010001000 837 565 500 260 50010001107110012891000 825 642 500 500100012451157136813761000 792 5001000119613131230144814461000 942 81210001258138114041500150014041000 100011911320144815001530154015001000 100013011442150015031564157015601500 100014121500151715201622160916951682 135715001557153115361681167116611651 150015821589154615421739170316971671 150015431631162016081797175517331730 150015251629153216361739172717841751 138915801626154416631781175817951792 150015901623155717901824189018561823 150015721720176917171866182218781833 159115541718178117451808185318991844 160316271752177717011826186519041944 171417001786177217581844187718101843 172617731720176817151762178917161742 179717961784179317911780170117211742 180918191809180818281798171217271741 147314401407137513421310131413191324 149614611426139113561321131613111306
Programme de lecture en Fortran
********************************************************************************
* *
* LECTURE DES FICHIERS BATHYMETRIQUES *
* *
* Description des parametres: *
* fich : nom du fichier *
* nom : nom de la zone *
* de(ni,nj) : tableau des profondeurs en metres *
* pas : taille de la maille en degres *
* slat : latitude sud en degres *
* nlat : latitude nord en degres *
* wlon : longitude ouest en degres *
* elon : longitude est en degres *
* *
********************************************************************************
subroutine lecba(fich,nom,de,ni,nj,pas,slat,nlat,wlon,elon)
character fich*24,nom*32
real de(ni,nj),nlat
open(18,file=fich)
read(18,'(a32,2i3,f4.0,4f8.4)')
+ nom,mi,mj,p,slat,nlat,wlon,elon
if(mi.ne.ni)then
print*,'erreur dans les dimensions: ',ni,mi
stop
else if(mj.ne.nj)then
print*,'erreur dans les dimensions: ',nj,mj
stop
endif
print*,' '
print*,nom
print*,ni,' x',nj,' points'
print*,'latitudes :',slat,nlat
print*,'longitudes:',wlon,elon
pas=1./p
nk=mi/20
nl=mod(mi,20)
do k=1,nk
ideb=(k-1)*20+1
ifin=ideb+19
do j=nj,1,-1
read(18,'(20f4.0)') (de(i,j),i=ideb,ifin)
enddo
enddo
do j=nj,1,-1
read(18,'(20f4.0)') (de(i,j),i=ifin+1,ni)
enddo
close(18)
return
end
Programme d'écriture en Fortran
********************************************************************************
* *
* ECRITURE DES FICHIERS BATHYMETRIQUES *
* *
* Description des parametres: *
* fich : nom du fichier *
* nom : nom de la zone *
* de(ni,nj) : tableau des profondeurs en metres *
* ipas : taille de la maille en degres = 1/ipas *
* slat : latitude sud en degres *
* nlat : latitude nord en degres *
* wlon : longitude ouest en degres *
* elon : longitude est en degres *
* *
********************************************************************************
subroutine ecri_ba(fich,de,nom,ni,nj,ipas,slat,nlat,wlon,elon)
character fich*24,nom*32
real de(ni,nj),nlat
open(18,file=fich)
write(18,'(a32,2i3,i4,4i8)') nom,ni,nj,ipas,
+ nint(slat*10000.),nint(nlat*10000.),
+ nint(wlon*10000.),nint(elon*10000.)
nk=ni/20
nl=mod(ni,20)
print*,nk,nl
do k=1,nk
ideb=(k-1)*20+1
ifin=ideb+19
do j=nj,1,-1
write(18,'(20i4)') (nint(de(i,j)),i=ideb,ifin)
enddo
enddo
do j=nj,1,-1
write(18,'(20i4)') (nint(de(i,j)),i=ifin+1,ni)
enddo
close(18)
return
end