Changeset 534 for palm/trunk/SCRIPTS/NCL/cross_sections.ncl
- Timestamp:
- Apr 29, 2010 1:58:28 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SCRIPTS/NCL/cross_sections.ncl
r532 r534 1156 1156 cs_res@tmXBLabels = array_xb_labels/norm_x 1157 1157 if (norm_x .NE. 1.)then 1158 cs_res@tiXAxisString = "x ["+unit_x+"]"1158 cs_res@tiXAxisString = "x ("+unit_x+")" 1159 1159 else 1160 cs_res@tiXAxisString = "x [m]"1160 cs_res@tiXAxisString = "x (m)" 1161 1161 end if 1162 1162 if (norm_y .NE. 1.)then 1163 cs_res@tiYAxisString = "y ["+unit_y+"]"1163 cs_res@tiYAxisString = "y ("+unit_y+")" 1164 1164 else 1165 cs_res@tiYAxisString = "y [m]"1165 cs_res@tiYAxisString = "y (m)" 1166 1166 end if 1167 1167 end if … … 1172 1172 cs_res@tmXBLabels = array_xb_labels/norm_x 1173 1173 if (norm_x .NE. 1.)then 1174 cs_res@tiXAxisString = "x ["+unit_x+"]"1174 cs_res@tiXAxisString = "x ("+unit_x+")" 1175 1175 else 1176 cs_res@tiXAxisString = "x [m]"1176 cs_res@tiXAxisString = "x (m)" 1177 1177 end if 1178 1178 if (norm_z .NE. 1.)then 1179 cs_res@tiYAxisString = "z ["+unit_z+"]"1179 cs_res@tiYAxisString = "z ("+unit_z+")" 1180 1180 else 1181 cs_res@tiYAxisString = "z [m]"1181 cs_res@tiYAxisString = "z (m)" 1182 1182 end if 1183 1183 end if … … 1188 1188 cs_res@tmXBLabels = array_xb_labels/norm_y 1189 1189 if (norm_y .NE. 1.)then 1190 cs_res@tiXAxisString = "y ["+unit_y+"]"1190 cs_res@tiXAxisString = "y ("+unit_y+")" 1191 1191 else 1192 cs_res@tiXAxisString = "y [m]"1192 cs_res@tiXAxisString = "y (m)" 1193 1193 end if 1194 1194 if (norm_z .NE. 1.)then 1195 cs_res@tiYAxisString = "z ["+unit_z+"]"1195 cs_res@tiYAxisString = "z ("+unit_z+")" 1196 1196 else 1197 cs_res@tiYAxisString = "z [m]"1197 cs_res@tiYAxisString = "z (m)" 1198 1198 end if 1199 1199 end if … … 1213 1213 end if 1214 1214 if (xyc .EQ. 1)then 1215 cs_res@tiXAxisString = "x [m]"1216 cs_res@tiYAxisString = "y [m]"1215 cs_res@tiXAxisString = "x (m)" 1216 cs_res@tiYAxisString = "y (m)" 1217 1217 end if 1218 1218 if (xzc .EQ. 1)then 1219 cs_res@tiXAxisString = "x [m]"1220 cs_res@tiYAxisString = "z [m]"1219 cs_res@tiXAxisString = "x (m)" 1220 cs_res@tiYAxisString = "z (m)" 1221 1221 end if 1222 1222 if (yzc .EQ. 1)then 1223 cs_res@tiXAxisString = "y [m]"1224 cs_res@tiYAxisString = "z [m]"1223 cs_res@tiXAxisString = "y (m)" 1224 cs_res@tiYAxisString = "z (m)" 1225 1225 end if 1226 1226 end if … … 1558 1558 end if 1559 1559 if (xyc .EQ. 1) then 1560 vecres@tiXAxisString = "x [m]"1561 vecres@tiYAxisString = "y [m]"1560 vecres@tiXAxisString = "x (m)" 1561 vecres@tiYAxisString = "y (m)" 1562 1562 if (sort .EQ. "time")then 1563 1563 plot(n) = gsn_csm_vector(wks_ps,vect1(li,lo-los,:,:),vect2(li,lo-los,:,:),vecres) … … 1567 1567 end if 1568 1568 if (xzc .EQ. 1) then 1569 vecres@tiXAxisString = "x [m]"1570 vecres@tiYAxisString = "z [m]"1569 vecres@tiXAxisString = "x (m)" 1570 vecres@tiYAxisString = "z (m)" 1571 1571 if (sort .EQ. "time")then 1572 1572 plot(n) = gsn_csm_vector(wks_ps,vect1(li,:,lo-los,:),vect2(li,:,lo-los,:),vecres) … … 1576 1576 end if 1577 1577 if (yzc .EQ. 1) then 1578 vecres@tiXAxisString = "y [m]"1579 vecres@tiYAxisString = "z [m]"1578 vecres@tiXAxisString = "y (m)" 1579 vecres@tiYAxisString = "z (m)" 1580 1580 if (sort .EQ. "time")then 1581 1581 plot(n) = gsn_csm_vector(wks_ps,vect1(li,:,:,lo-los),vect2(li,:,:,lo-los),vecres)
Note: See TracChangeset
for help on using the changeset viewer.