Changeset 992 for palm


Ignore:
Timestamp:
Sep 5, 2012 3:08:26 PM (12 years ago)
Author:
hoffmann
Message:

removal of two informative messages in netcdf.f90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/netcdf.f90

    r984 r992  
    77! Current revisions:
    88! ------------------
    9 !
     9! Removal of the informative messages PA0352 and PA0353.
    1010!
    1111! Former revisions:
     
    131131                                       var_list, var_list_old
    132132
    133     CHARACTER (LEN=100), DIMENSION(1:crmax) :: cross_profiles_adj,   &
    134                                                cross_profiles_char
     133    CHARACTER (LEN=100), DIMENSION(1:crmax) ::  cross_profiles_adj,   &
     134                                                cross_profiles_char
    135135
    136136    INTEGER ::  av, cross_profiles_count, cross_profiles_maxi, delim, &
     
    143143                              id_dim_zu_mask_old
    144144
    145     INTEGER, DIMENSION(1:crmax) :: cross_profiles_numb
    146 
    147     LOGICAL ::  cross_profiles_log, found
     145    INTEGER, DIMENSION(1:crmax) ::  cross_profiles_numb
     146
     147    LOGICAL ::  found
    148148
    149149    LOGICAL, INTENT (INOUT) ::  extend
     
    32003200!--       Check if all profiles defined in cross_profiles are defined in
    32013201!--       data_output_pr. If not, they will be skipped.
    3202           cross_profiles_log = .FALSE.
    3203           message_string = ''
    32043202
    32053203          DO  i = 1, cross_profiles_count
     
    32133211                IF ( j == dopr_n )  THEN
    32143212                   cross_profiles_numb(i) = 999999
    3215                    cross_profiles_log = .TRUE.
    3216                    message_string = TRIM( message_string ) // ', ' // &
    3217                                     TRIM( cross_profiles_char(i) )
    32183213                ENDIF
    32193214
    32203215             ENDDO
    32213216          ENDDO
    3222 
    3223           IF ( cross_profiles_log )  THEN
    3224              message_string = TRIM( message_string ) // ' is/are not' // &
    3225                               ' defined in data_output_pr.'
    3226              CALL message( 'define_netcdf_header', 'PA0352', 0, 0, 0, 6, 0 )
    3227           ENDIF
    32283217
    32293218          DO i = 1, crmax
     
    32493238!--       Check if all profiles defined in data_output_pr are defined in
    32503239!--       cross_profiles. If not, they will be added to cross_profiles.
    3251           cross_profiles_log = .FALSE.
    3252           message_string = ' '
    32533240
    32543241          DO  i = 1, dopr_n
     
    32683255                   cross_profiles_numb(MIN( crmax, cross_profiles_count )) =  &
    32693256                                                      cross_profiles_maxi
    3270                    cross_profiles_log   = .TRUE.
    3271                    message_string = TRIM( message_string ) // ', ' // &
    3272                                     TRIM( data_output_pr(i) )
    32733257                ENDIF
    32743258
     
    32763260          ENDDO
    32773261
    3278           IF ( cross_profiles_log )  THEN
    3279              message_string = TRIM(message_string(2:)) // ' has/have been' //  &
    3280                               ' added to cross_profiles.'
    3281              CALL message( 'define_netcdf_header', 'PA0353', 0, 0, 0, 6, 0 )
    3282           ENDIF
    3283 
    32843262          IF ( cross_profiles_count >= crmax )  THEN
    3285              message_string = 'It is not allowed to arrange more than '&
    3286                               // '100 profiles with cross_profiles. Apart '&
    3287                               // 'from that, all profiles are saved to the '&
    3288                               // 'netCDF file.'
     3263             message_string = 'It is not allowed to arrange more than '     &
     3264                              // '100 profiles with & cross_profiles. Apart'&
     3265                              // ' from that, all profiles are saved & to ' &
     3266                              // 'the netCDF file.'
    32893267             CALL message( 'define_netcdf_header', 'PA0354', 0, 0, 0, 6, 0 )
    32903268          ENDIF
Note: See TracChangeset for help on using the changeset viewer.