Changeset 286 for palm/trunk/SCRIPTS
 Timestamp:
 Apr 9, 2009 8:52:42 AM (15 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SCRIPTS/NCL/cross_sections.ncl
r267 r286 923 923 end do 924 924 end if 925 925 926 926 if( shape .eq. 1 ) then 927 927 if (xyc .EQ. 1)then … … 931 931 vecres@vpHeightF = 1 932 932 if (xexs .GT. yeys)then 933 cs_res@gsnPaperOrientation = "landscape" 934 vecres@gsnPaperOrientation = "landscape" 935 cs_res@lbOrientation = "Horizontal" 933 if (no_rows .LE. no_columns)then 934 cs_res@gsnPaperOrientation = "landscape" 935 vecres@gsnPaperOrientation = "landscape" 936 cs_res@lbOrientation = "Horizontal" 937 else 938 cs_res@gsnPaperOrientation = "portrait" 939 vecres@gsnPaperOrientation = "portrait" 940 cs_res@lbOrientation = "Vertical" 941 end if 936 942 else 937 cs_res@gsnPaperOrientation = "portrait" 938 vecres@gsnPaperOrientation = "portrait" 939 cs_res@lbOrientation = "Vertical" 943 if (no_rows .GE. no_columns)then 944 cs_res@gsnPaperOrientation = "portrait" 945 vecres@gsnPaperOrientation = "portrait" 946 cs_res@lbOrientation = "Vertical" 947 else 948 cs_res@gsnPaperOrientation = "landscape" 949 vecres@gsnPaperOrientation = "landscape" 950 cs_res@lbOrientation = "Horizontal" 951 end if 940 952 end if 941 953 end if … … 946 958 vecres@vpHeightF = 1 947 959 if (xexs .GT. (delta_x*(zezs)))then 948 cs_res@gsnPaperOrientation = "landscape" 949 vecres@gsnPaperOrientation = "landscape" 950 cs_res@lbOrientation = "Horizontal" 960 if (no_rows .LE. no_columns)then 961 cs_res@gsnPaperOrientation = "landscape" 962 vecres@gsnPaperOrientation = "landscape" 963 cs_res@lbOrientation = "Horizontal" 964 else 965 cs_res@gsnPaperOrientation = "portrait" 966 vecres@gsnPaperOrientation = "portrait" 967 cs_res@lbOrientation = "Vertical" 968 end if 951 969 else 952 cs_res@gsnPaperOrientation = "portrait" 953 vecres@gsnPaperOrientation = "portrait" 954 cs_res@lbOrientation = "Vertical" 970 if (no_rows .GE. no_columns)then 971 cs_res@gsnPaperOrientation = "portrait" 972 vecres@gsnPaperOrientation = "portrait" 973 cs_res@lbOrientation = "Vertical" 974 else 975 cs_res@gsnPaperOrientation = "landscape" 976 vecres@gsnPaperOrientation = "landscape" 977 cs_res@lbOrientation = "Horizontal" 978 end if 955 979 end if 956 980 end if … … 961 985 vecres@vpHeightF = 1 962 986 if (yeys .GT. (delta_y*(zezs)))then 963 cs_res@gsnPaperOrientation = "landscape" 964 vecres@gsnPaperOrientation = "landscape" 965 cs_res@lbOrientation = "Horizontal" 987 if (no_rows .LE. no_columns)then 988 cs_res@gsnPaperOrientation = "landscape" 989 vecres@gsnPaperOrientation = "landscape" 990 cs_res@lbOrientation = "Horizontal" 991 else 992 cs_res@gsnPaperOrientation = "portrait" 993 vecres@gsnPaperOrientation = "portrait" 994 cs_res@lbOrientation = "Vertical" 995 end if 966 996 else 967 cs_res@gsnPaperOrientation = "portrait" 968 vecres@gsnPaperOrientation = "portrait" 969 cs_res@lbOrientation = "Vertical" 997 if (no_rows .GE. no_columns)then 998 cs_res@gsnPaperOrientation = "portrait" 999 vecres@gsnPaperOrientation = "portrait" 1000 cs_res@lbOrientation = "Vertical" 1001 else 1002 cs_res@gsnPaperOrientation = "landscape" 1003 vecres@gsnPaperOrientation = "landscape" 1004 cs_res@lbOrientation = "Horizontal" 1005 end if 970 1006 end if 971 1007 end if
Note: See TracChangeset
for help on using the changeset viewer.