Changeset 983


Ignore:
Timestamp:
Aug 21, 2012 2:17:57 PM (9 years ago)
Author:
hoffmann
Message:

Bugfix in netcdf.f90 and improvements in palmplot.

Location:
palm/trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SCRIPTS/NCL/cross_sections.ncl

    r957 r983  
    395395
    396396   cs_resP = True
    397    cs_resP@txString               = f_att@title
    398    cs_resP@txFuncCode             = "~"                 
    399    cs_resP@txFontHeightF          = 0.015       
     397   cs_resP@gsnMaximize                = True
     398   cs_resP@gsnPanelXWhiteSpacePercent = 4.0
     399   cs_resP@gsnPanelYWhiteSpacePercent = 4.0
     400   cs_resP@txFont                     = "helvetica"
     401   cs_resP@txString                   = f_att@title
     402   cs_resP@txFuncCode                 = "~"             
     403   cs_resP@txFontHeightF              = 0.0105       
    400404 
    401405   if ( mode .eq. "Fill" ) then
  • palm/trunk/SCRIPTS/NCL/spectra.ncl

    r957 r983  
    721721   ; ***************************************************
    722722
    723    resP                        = True
    724    resP@txFont                 = "helvetica"
    725    resP@txString               = f_att@title
    726    resP@txFuncCode             = "~"
    727    resP@txFontHeightF          = 0.015
     723   resP                            = True
     724   resP@gsnMaximize                = True
     725   resP@gsnPanelXWhiteSpacePercent = 4.0
     726   resP@gsnPanelYWhiteSpacePercent = 4.0
     727   resP@txFont                     = "helvetica"
     728   resP@txString                   = f_att@title
     729   resP@txFuncCode                 = "~"
     730   resP@txFontHeightF              = 0.0105
    728731
    729732   no_frames = 0
  • palm/trunk/SCRIPTS/NCL/timeseries.ncl

    r969 r983  
    342342   res@lgLabelFontHeightF     = 0.02
    343343
    344    resP                        = True
    345    resP@txFont                 = "helvetica"
    346    resP@txString               = f_att@title+" time series "
    347    resP@txFuncCode             = "~"
    348    resP@txFontHeightF          = 0.015
    349 
     344   resP                            = True
     345   resP@gsnMaximize                = True
     346   resP@gsnPanelXWhiteSpacePercent = 4.0
     347   resP@gsnPanelYWhiteSpacePercent = 4.0
     348   resP@txFont                     = "helvetica"
     349   resP@txString                   = f_att@title+" time series "
     350   resP@txFuncCode                 = "~"
     351   if (format_out .NE. "x11") then
     352      if (no_rows .GE. 5) then
     353         resP@txFontHeightF        = 0.0105
     354      else
     355         resP@txFontHeightF        = 0.015
     356      end if
     357   else
     358      resP@txFontHeightF           = 0.015
     359   end if
    350360   res@tmXBMinorPerMajor = 4
    351361   res@tmYLMinorPerMajor = 4
  • palm/trunk/SOURCE/netcdf.f90

    r965 r983  
    77! Current revisions:
    88! ------------------
    9 !
     9! Bugfix in cross_profiles.
    1010!
    1111! Former revisions:
     
    31663166          cross_profiles_adj  = ADJUSTL( cross_profiles )
    31673167          cross_profiles_numb = 999999
     3168          cross_profiles_char = ''
    31683169
    31693170!
     
    32233224          ENDIF
    32243225
     3226          DO i = 1, crmax
     3227             IF ( cross_profiles_numb(i) == 999999 ) THEN
     3228                DO j = i + 1, crmax
     3229                   IF ( cross_profiles_numb(j) /= 999999 ) THEN
     3230                      cross_profiles_char(i) = cross_profiles_char(j)
     3231                      cross_profiles_numb(i) = cross_profiles_numb(j)
     3232                      cross_profiles_numb(j) = 999999
     3233                      EXIT
     3234                   ENDIF
     3235                ENDDO
     3236             ENDIF
     3237          ENDDO
     3238
     3239          DO i = 1, crmax-1
     3240             IF ( cross_profiles_numb(i + 1) == 999999 ) THEN
     3241                cross_profiles_count = i
     3242                EXIT
     3243             ENDIF
     3244          ENDDO
    32253245!
    32263246!--       Check if all profiles defined in data_output_pr are defined in
     
    32373257                ENDIF
    32383258
    3239                 IF ( j == cross_profiles_count )  THEN
     3259                IF (( j == cross_profiles_count ) .AND.                        &
     3260                    ( cross_profiles_count <= crmax - 1))  THEN
    32403261                   cross_profiles_count = cross_profiles_count + 1
    32413262                   cross_profiles_maxi  = cross_profiles_maxi  + 1
     
    32603281          IF ( cross_profiles_count >= crmax )  THEN
    32613282             message_string = 'It is not allowed to arrange more than '&
    3262                               // '100 profiles with cross_profiles.'
     3283                              // '100 profiles with cross_profiles. Apart '&
     3284                              // 'from that, all profiles are saved to the '&
     3285                              // 'netCDF file.'
    32633286             CALL message( 'define_netcdf_header', 'PA0354', 0, 0, 0, 6, 0 )
    32643287          ENDIF
     
    32703293          char_cross_profiles = ';'
    32713294          id_last = 1
     3295          cross_profiles_count = MIN( cross_profiles_count, crmax )
    32723296
    32733297          DO  i = 1, cross_profiles_count
Note: See TracChangeset for help on using the changeset viewer.