| 1 | % |
|---|
| 2 | |
|---|
| 3 | % initialisation |
|---|
| 4 | clear; |
|---|
| 5 | close all; |
|---|
| 6 | |
|---|
| 7 | cd('GEOPOT_TROP'); |
|---|
| 8 | |
|---|
| 9 | hgt500=zeros(122,29,64,128); |
|---|
| 10 | |
|---|
| 11 | ncload('zg_d.TrNQIVIV.197106-09.nc','zg'); |
|---|
| 12 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 13 | hgt500(:,1,:,:)=vm; clear vm; |
|---|
| 14 | |
|---|
| 15 | ncload('zg_d.TrNQIVIV.197206-09.nc','zg'); |
|---|
| 16 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 17 | hgt500(:,2,:,:)=vm; clear vm; |
|---|
| 18 | |
|---|
| 19 | ncload('zg_d.TrNQIVIV.197306-09.nc','zg'); |
|---|
| 20 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 21 | hgt500(:,3,:,:)=vm; clear vm; |
|---|
| 22 | |
|---|
| 23 | ncload('zg_d.TrNQIVIV.197406-09.nc','zg'); |
|---|
| 24 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 25 | hgt500(:,4,:,:)=vm; clear vm; |
|---|
| 26 | |
|---|
| 27 | ncload('zg_d.TrNQIVIV.197506-09.nc','zg'); |
|---|
| 28 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 29 | hgt500(:,5,:,:)=vm; clear vm; |
|---|
| 30 | |
|---|
| 31 | ncload('zg_d.TrNQIVIV.197606-09.nc','zg'); |
|---|
| 32 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 33 | hgt500(:,6,:,:)=vm; clear vm; |
|---|
| 34 | |
|---|
| 35 | ncload('zg_d.TrNQIVIV.197706-09.nc','zg'); |
|---|
| 36 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 37 | hgt500(:,7,:,:)=vm; clear vm; |
|---|
| 38 | |
|---|
| 39 | ncload('zg_d.TrNQIVIV.197806-09.nc','zg'); |
|---|
| 40 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 41 | hgt500(:,8,:,:)=vm; clear vm; |
|---|
| 42 | |
|---|
| 43 | ncload('zg_d.TrNQIVIV.197906-09.nc','zg'); |
|---|
| 44 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 45 | hgt500(:,9,:,:)=vm; clear vm; |
|---|
| 46 | |
|---|
| 47 | ncload('zg_d.TrNQIVIV.198006-09.nc','zg'); |
|---|
| 48 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 49 | hgt500(:,10,:,:)=vm; clear vm; |
|---|
| 50 | |
|---|
| 51 | ncload('zg_d.TrNQIVIV.198106-09.nc','zg'); |
|---|
| 52 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 53 | hgt500(:,11,:,:)=vm; clear vm; |
|---|
| 54 | |
|---|
| 55 | ncload('zg_d.TrNQIVIV.198206-09.nc','zg'); |
|---|
| 56 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 57 | hgt500(:,12,:,:)=vm; clear vm; |
|---|
| 58 | |
|---|
| 59 | ncload('zg_d.TrNQIVIV.198306-09.nc','zg'); |
|---|
| 60 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 61 | hgt500(:,13,:,:)=vm; clear vm; |
|---|
| 62 | |
|---|
| 63 | ncload('zg_d.TrNQIVIV.198406-09.nc','zg'); |
|---|
| 64 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 65 | hgt500(:,14,:,:)=vm; clear vm; |
|---|
| 66 | |
|---|
| 67 | ncload('zg_d.TrNQIVIV.198506-09.nc','zg'); |
|---|
| 68 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 69 | hgt500(:,15,:,:)=vm; clear vm; |
|---|
| 70 | |
|---|
| 71 | ncload('zg_d.TrNQIVIV.198606-09.nc','zg'); |
|---|
| 72 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 73 | hgt500(:,16,:,:)=vm; clear vm; |
|---|
| 74 | |
|---|
| 75 | ncload('zg_d.TrNQIVIV.198706-09.nc','zg'); |
|---|
| 76 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 77 | hgt500(:,17,:,:)=vm; clear vm; |
|---|
| 78 | |
|---|
| 79 | ncload('zg_d.TrNQIVIV.198806-09.nc','zg'); |
|---|
| 80 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 81 | hgt500(:,18,:,:)=vm; clear vm; |
|---|
| 82 | |
|---|
| 83 | ncload('zg_d.TrNQIVIV.198906-09.nc','zg'); |
|---|
| 84 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 85 | hgt500(:,19,:,:)=vm; clear vm; |
|---|
| 86 | |
|---|
| 87 | ncload('zg_d.TrNQIVIV.199106-09.nc','zg'); |
|---|
| 88 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 89 | hgt500(:,20,:,:)=vm; clear vm; |
|---|
| 90 | |
|---|
| 91 | ncload('zg_d.TrNQIVIV.199206-09.nc','zg'); |
|---|
| 92 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 93 | hgt500(:,21,:,:)=vm; clear vm; |
|---|
| 94 | |
|---|
| 95 | ncload('zg_d.TrNQIVIV.199306-09.nc','zg'); |
|---|
| 96 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 97 | hgt500(:,22,:,:)=vm; clear vm; |
|---|
| 98 | |
|---|
| 99 | ncload('zg_d.TrNQIVIV.199406-09.nc','zg'); |
|---|
| 100 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 101 | hgt500(:,23,:,:)=vm; clear vm; |
|---|
| 102 | |
|---|
| 103 | ncload('zg_d.TrNQIVIV.199506-09.nc','zg'); |
|---|
| 104 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 105 | hgt500(:,24,:,:)=vm; clear vm; |
|---|
| 106 | |
|---|
| 107 | ncload('zg_d.TrNQIVIV.199606-09.nc','zg'); |
|---|
| 108 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 109 | hgt500(:,25,:,:)=vm; clear vm; |
|---|
| 110 | |
|---|
| 111 | ncload('zg_d.TrNQIVIV.199706-09.nc','zg'); |
|---|
| 112 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 113 | hgt500(:,26,:,:)=vm; clear vm; |
|---|
| 114 | |
|---|
| 115 | ncload('zg_d.TrNQIVIV.199806-09.nc','zg'); |
|---|
| 116 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 117 | hgt500(:,27,:,:)=vm; clear vm; |
|---|
| 118 | |
|---|
| 119 | ncload('zg_d.TrNQIVIV.199906-09.nc','zg'); |
|---|
| 120 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 121 | hgt500(:,28,:,:)=vm; clear vm; |
|---|
| 122 | |
|---|
| 123 | ncload('zg_d.TrNQIVIV.200006-09.nc','zg','lat','lon'); |
|---|
| 124 | vm(:,:,:)=zg(:,6,:,:); clear zg; |
|---|
| 125 | hgt500(:,29,:,:)=vm; clear vm; |
|---|
| 126 | |
|---|
| 127 | cd('..'); |
|---|
| 128 | save hgt500_trop.mat hgt500; |
|---|
