Changeset 983 for palm/trunk/SOURCE


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

Bugfix in netcdf.f90 and improvements in palmplot.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.