Changeset 518
 Timestamp:
 Mar 18, 2010 8:40:53 AM (13 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SCRIPTS/NCL/profiles.ncl
r513 r518 1011 1011 ; **************************************************** 1012 1012 1013 if (time_stride .LT. 1)1013 if (time_stride .LT. 1) then 1014 1014 print(" ") 1015 1015 print("'time_stride' has to be positive and is set to 1") … … 1018 1018 end if 1019 1019 1020 if (time_stride .GE. no_time)1020 if (time_stride .GE. no_time) then 1021 1021 print(" ") 1022 1022 print("'time_stride' is greater equal than number of available time steps,") 1023 print("only start time step will be plotted then") 1024 print(" ") 1025 time_stride = no_time 1023 print("=> 'time_stride' is set to 1") 1024 time_stride = 1 1026 1025 end if 1027 1026 … … 1754 1753 end if 1755 1754 end if 1756 1757 1755 1758 1756 if (abs(min(data(varn,:,min_z_int:max_z_int))) .GT. 10)then 1759 1757 min_value = abs(0.001*min(data(varn,:,min_z_int:max_z_int))) … … 1775 1773 end if 1776 1774 end if 1775 1777 1776 if (min(data(varn,:,min_z_int:max_z_int)) .EQ. 0 .AND. \ 1778 1777 max(data(varn,:,min_z_int:max_z_int)) .EQ. 0)then
Note: See TracChangeset
for help on using the changeset viewer.