Ignore:
Timestamp:
May 29, 2018 8:02:15 AM (3 years ago)
Author:
Giersch
Message:

Remaining error messages revised, comments extended

File:
1 edited

Legend:

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

    r3045 r3046  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    712712       IF ( netcdf_deflate < 0  .OR.  netcdf_deflate > 9 )  THEN
    713713          WRITE ( message_string, '(A,I3,A)' ) 'netcdf_deflate out of ' //     &
    714                                       'range given value: ', netcdf_deflate,  &
     714                                      'range & given value: ', netcdf_deflate, &
    715715                                      ', allowed range: 0-9'
    716716          CALL message( 'netcdf_define_header', 'PA0355', 2, 2, 0, 6, 0 )
     
    11921192             WRITE ( message_string, * ) 'netCDF file for ', TRIM( var ),       &
    11931193                  ' data for mask', mid, ' from previous run found,',           &
    1194                   ' but this file cannot be extended due to variable ',         &
    1195                   'mismatch. New file is created instead.'
     1194                  '&but this file cannot be extended due to variable ',         &
     1195                  'mismatch.&New file is created instead.'
    11961196             CALL message( 'define_netcdf_header', 'PA0335', 0, 1, 0, 6, 0 )
    11971197             extend = .FALSE.
     
    12181218          IF ( mask_size(mid,3) /= nz_old )  THEN
    12191219             WRITE ( message_string, * ) 'netCDF file for ', TRIM( var ),      &
    1220                   ' data for mask', mid, ' from previous run found,',          &
     1220                  '&data for mask', mid, ' from previous run found,',          &
    12211221                  ' but this file cannot be extended due to mismatch in ',     &
    12221222                  ' number of vertical grid points.',                          &
    1223                   ' New file is created instead.'
     1223                  '&New file is created instead.'
    12241224             CALL message( 'define_netcdf_header', 'PA0336', 0, 1, 0, 6, 0 )
    12251225             extend = .FALSE.
     
    12571257             WRITE ( message_string, * ) 'netCDF file for ', TRIM( var ),      &
    12581258                  ' data for mask', mid, ' from previous run found,',          &
    1259                   ' but this file cannot be extended because the current ',    &
     1259                  '&but this file cannot be extended because the current ',    &
    12601260                  'output time is less or equal than the last output time ',   &
    1261                   'on this file. New file is created instead.'
     1261                  'on this file.&New file is created instead.'
    12621262             CALL message( 'define_netcdf_header', 'PA0337', 0, 1, 0, 6, 0 )
    12631263             domask_time_count(mid,av) = 0
     
    13011301          WRITE ( message_string, * ) 'netCDF file for ', TRIM( var ),         &
    13021302               ' data for mask', mid, ' from previous run found.',             &
    1303                ' This file will be extended.'
     1303               ' &This file will be extended.'
    13041304          CALL message( 'define_netcdf_header', 'PA0338', 0, 0, 0, 6, 0 )
    13051305!
     
    17611761             message_string = 'netCDF file for volume data ' //             &
    17621762                              TRIM( var ) // ' from previous run found,' // &
    1763                               ' but this file cannot be extended due to' // &
     1763                              '&but this file cannot be extended due to' // &
    17641764                              ' variable mismatch.' //                      &
    1765                               ' New file is created instead.'
     1765                              '&New file is created instead.'
    17661766             CALL message( 'define_netcdf_header', 'PA0245', 0, 1, 0, 6, 0 )
    17671767             extend = .FALSE.
     
    17861786              message_string = 'netCDF file for volume data ' //             &
    17871787                               TRIM( var ) // ' from previous run found,' // &
    1788                                ' but this file cannot be extended due to' // &
     1788                               '&but this file cannot be extended due to' // &
    17891789                               ' mismatch in number of' //                   &
    17901790                               ' vertical grid points (nz_do3d).' //         &
    1791                                ' New file is created instead.'
     1791                               '&New file is created instead.'
    17921792             CALL message( 'define_netcdf_header', 'PA0246', 0, 1, 0, 6, 0 )
    17931793             extend = .FALSE.
     
    18291829             message_string = 'netCDF file for volume data ' //             &
    18301830                              TRIM( var ) // ' from previous run found,' // &
    1831                               ' but this file cannot be extended becaus' // &
     1831                              '&but this file cannot be extended becaus' // &
    18321832                              'e the current output time' //                &
    1833                               ' is less or equal than the last output t' // &
     1833                              '&is less or equal than the last output t' // &
    18341834                              'ime on this file.' //                        &
    1835                               ' New file is created instead.'
     1835                              '&New file is created instead.'
    18361836             CALL message( 'define_netcdf_header', 'PA0247', 0, 1, 0, 6, 0 )
    18371837             do3d_time_count(av) = 0
     
    18471847                message_string = 'netCDF file for volume data ' // &
    18481848                                 TRIM( var ) // ' from previous run found,' // &
    1849                                  ' but this file cannot be extended becaus' // &
     1849                                 '&but this file cannot be extended becaus' // &
    18501850                                 'e the number of output time levels has b' // &
    18511851                                 'een increased compared to the previous s' // &
    18521852                                 'imulation.' //                               &
    1853                                  ' New file is created instead.'
     1853                                 '&New file is created instead.'
    18541854                CALL message( 'define_netcdf_header', 'PA0388', 0, 1, 0, 6, 0 )
    18551855                do3d_time_count(av) = 0
     
    19171917          message_string = 'netCDF file for volume data ' //             &
    19181918                           TRIM( var ) // ' from previous run found.' // &
    1919                            ' This file will be extended.'
     1919                           '&This file will be extended.'
    19201920          CALL message( 'define_netcdf_header', 'PA0248', 0, 0, 0, 6, 0 )
    19211921
     
    24752475             message_string = 'netCDF file for cross-sections ' //           &
    24762476                              TRIM( var ) // ' from previous run found,' //  &
    2477                               ' but this file cannot be extended due to' //  &
     2477                              '&but this file cannot be extended due to' //  &
    24782478                              ' variable mismatch.' //                       &
    2479                               ' New file is created instead.'
     2479                              '&New file is created instead.'
    24802480             CALL message( 'define_netcdf_header', 'PA0249', 0, 1, 0, 6, 0 )
    24812481             extend = .FALSE.
     
    25082508             message_string = 'netCDF file for cross-sections ' //          &
    25092509                              TRIM( var ) // ' from previous run found,' // &
    2510                               ' but this file cannot be extended due to' // &
     2510                              '&but this file cannot be extended due to' // &
    25112511                              ' mismatch in number of' //                   &
    25122512                              ' cross sections.' //                         &
    2513                               ' New file is created instead.'
     2513                              '&New file is created instead.'
    25142514             CALL message( 'define_netcdf_header', 'PA0250', 0, 1, 0, 6, 0 )
    25152515             extend = .FALSE.
     
    25892589             message_string = 'netCDF file for cross sections ' //             &
    25902590                              TRIM( var ) // ' from previous run found,' //    &
    2591                               ' but this file cannot be extended becaus' //    &
     2591                              '&but this file cannot be extended becaus' //    &
    25922592                              'e the current output time' //                   &
    2593                               ' is less or equal than the last output t' //    &
     2593                              '&is less or equal than the last output t' //    &
    25942594                              'ime on this file.' //                           &
    2595                               ' New file is created instead.'
     2595                              '&New file is created instead.'
    25962596             CALL message( 'define_netcdf_header', 'PA0252', 0, 1, 0, 6, 0 )
    25972597             do2d_xy_time_count(av) = 0
     
    26072607                message_string = 'netCDF file for cross sections ' //          &
    26082608                                 TRIM( var ) // ' from previous run found,' // &
    2609                                  ' but this file cannot be extended becaus' // &
     2609                                 '&but this file cannot be extended becaus' // &
    26102610                                 'e the number of output time levels has b' // &
    26112611                                 'een increased compared to the previous s' // &
    26122612                                 'imulation.' //                               &
    2613                                  ' New file is created instead.'
     2613                                 '&New file is created instead.'
    26142614                CALL message( 'define_netcdf_header', 'PA0389', 0, 1, 0, 6, 0 )
    26152615                do2d_xy_time_count(av) = 0
     
    26792679          message_string = 'netCDF file for cross-sections ' //                &
    26802680                            TRIM( var ) // ' from previous run found.' //      &
    2681                            ' This file will be extended.'
     2681                           '&This file will be extended.'
    26822682          CALL message( 'define_netcdf_header', 'PA0253', 0, 0, 0, 6, 0 )
    26832683         
     
    31183118             message_string = 'netCDF file for cross-sections ' //           &
    31193119                              TRIM( var ) // ' from previous run found,' //  &
    3120                               ' but this file cannot be extended due to' //  &
     3120                              '&but this file cannot be extended due to' //  &
    31213121                              ' variable mismatch.' //                       &
    3122                               ' New file is created instead.'
     3122                              '&New file is created instead.'
    31233123             CALL message( 'define_netcdf_header', 'PA0249', 0, 1, 0, 6, 0 )
    31243124             extend = .FALSE.
     
    31513151             message_string = 'netCDF file for cross-sections ' //          &
    31523152                              TRIM( var ) // ' from previous run found,' // &
    3153                               ' but this file cannot be extended due to' // &
     3153                              '&but this file cannot be extended due to' // &
    31543154                              ' mismatch in number of' //                   &
    31553155                              ' cross sections.' //                         &
    3156                               ' New file is created instead.'
     3156                              '&New file is created instead.'
    31573157             CALL message( 'define_netcdf_header', 'PA0250', 0, 1, 0, 6, 0 )
    31583158             extend = .FALSE.
     
    32323232             message_string = 'netCDF file for cross sections ' //             &
    32333233                              TRIM( var ) // ' from previous run found,' //    &
    3234                               ' but this file cannot be extended becaus' //    &
     3234                              '&but this file cannot be extended becaus' //    &
    32353235                              'e the current output time' //                   &
    3236                               ' is less or equal than the last output t' //    &
     3236                              '&is less or equal than the last output t' //    &
    32373237                              'ime on this file.' //                           &
    3238                               ' New file is created instead.'
     3238                              '&New file is created instead.'
    32393239             CALL message( 'define_netcdf_header', 'PA0252', 0, 1, 0, 6, 0 )
    32403240             do2d_xz_time_count(av) = 0
     
    32503250                message_string = 'netCDF file for cross sections ' // &
    32513251                                 TRIM( var ) // ' from previous run found,' // &
    3252                                  ' but this file cannot be extended becaus' // &
     3252                                 '&but this file cannot be extended becaus' // &
    32533253                                 'e the number of output time levels has b' // &
    32543254                                 'een increased compared to the previous s' // &
    32553255                                 'imulation.' //                               &
    3256                                  ' New file is created instead.'
     3256                                 '&New file is created instead.'
    32573257                CALL message( 'define_netcdf_header', 'PA0390', 0, 1, 0, 6, 0 )
    32583258                do2d_xz_time_count(av) = 0
     
    33383338          message_string = 'netCDF file for cross-sections ' //                &
    33393339                            TRIM( var ) // ' from previous run found.' //      &
    3340                            ' This file will be extended.'
     3340                           '&This file will be extended.'
    33413341          CALL message( 'define_netcdf_header', 'PA0253', 0, 0, 0, 6, 0 )
    33423342
     
    37643764             message_string = 'netCDF file for cross-sections ' //           &
    37653765                              TRIM( var ) // ' from previous run found,' //  &
    3766                               ' but this file cannot be extended due to' //  &
     3766                              '&but this file cannot be extended due to' //  &
    37673767                              ' variable mismatch.' //                       &
    3768                               ' New file is created instead.'
     3768                              '&New file is created instead.'
    37693769             CALL message( 'define_netcdf_header', 'PA0249', 0, 1, 0, 6, 0 )
    37703770             extend = .FALSE.
     
    37973797             message_string = 'netCDF file for cross-sections ' //          &
    37983798                              TRIM( var ) // ' from previous run found,' // &
    3799                               ' but this file cannot be extended due to' // &
     3799                              '&but this file cannot be extended due to' // &
    38003800                              ' mismatch in number of' //                   &
    38013801                              ' cross sections.' //                         &
    3802                               ' New file is created instead.'
     3802                              '&New file is created instead.'
    38033803             CALL message( 'define_netcdf_header', 'PA0250', 0, 1, 0, 6, 0 )
    38043804             extend = .FALSE.
     
    38783878             message_string = 'netCDF file for cross sections ' //             &
    38793879                              TRIM( var ) // ' from previous run found,' //    &
    3880                               ' but this file cannot be extended becaus' //    &
     3880                              '&but this file cannot be extended becaus' //    &
    38813881                              'e the current output time' //                   &
    3882                               ' is less or equal than the last output t' //    &
     3882                              '&is less or equal than the last output t' //    &
    38833883                              'ime on this file.' //                           &
    3884                               ' New file is created instead.'
     3884                              '&New file is created instead.'
    38853885             CALL message( 'define_netcdf_header', 'PA0252', 0, 1, 0, 6, 0 )
    38863886             do2d_yz_time_count(av) = 0
     
    38963896                message_string = 'netCDF file for cross sections ' //          &
    38973897                                 TRIM( var ) // ' from previous run found,' // &
    3898                                  ' but this file cannot be extended becaus' // &
     3898                                 '&but this file cannot be extended becaus' // &
    38993899                                 'e the number of output time levels has b' // &
    39003900                                 'een increased compared to the previous s' // &
    39013901                                 'imulation.' //                               &
    3902                                  ' New file is created instead.'
     3902                                 '&New file is created instead.'
    39033903                CALL message( 'define_netcdf_header', 'PA0391', 0, 1, 0, 6, 0 )
    39043904                do2d_yz_time_count(av) = 0
     
    39843984          message_string = 'netCDF file for cross-sections ' //                &
    39853985                            TRIM( var ) // ' from previous run found.' //      &
    3986                            ' This file will be extended.'
     3986                           '&This file will be extended.'
    39873987          CALL message( 'define_netcdf_header', 'PA0253', 0, 0, 0, 6, 0 )
    39883988
     
    41174117          IF ( cross_profiles_count >= crmax )  THEN
    41184118             message_string = 'It is not allowed to arrange more than '        &
    4119                               // '100 profiles with cross_profiles. Apart'     &
    4120                               // ' from that, all profiles are saved to '      &
     4119                              // '100 profiles with & cross_profiles. Apart'   &
     4120                              // ' from that, all profiles are saved & to '    &
    41214121                              // 'the netCDF file.'
    41224122             CALL message( 'define_netcdf_header', 'PA0354', 0, 0, 0, 6, 0 )
     
    42924292             message_string = 'netCDF file for vertical profiles ' //          &
    42934293                              'from previous run found,' //                    &
    4294                               ' but this file cannot be extended due to' //    &
     4294                              '&but this file cannot be extended due to' //    &
    42954295                              ' variable mismatch.' //                         &
    4296                               ' New file is created instead.'
     4296                              '&New file is created instead.'
    42974297             CALL message( 'define_netcdf_header', 'PA0254', 0, 1, 0, 6, 0 )
    42984298             extend = .FALSE.
     
    43264326             message_string = 'netCDF file for vertical profiles ' //          &
    43274327                              'from previous run found,' //                    &
    4328                               ' but this file cannot be extended becaus' //    &
     4328                              '&but this file cannot be extended becaus' //    &
    43294329                              'e the current output time' //                   &
    4330                               ' is less or equal than the last output t' //    &
     4330                              '&is less or equal than the last output t' //    &
    43314331                              'ime on this file.' //                           &
    4332                               ' New file is created instead.'
     4332                              '&New file is created instead.'
    43334333             CALL message( 'define_netcdf_header', 'PA0255', 0, 1, 0, 6, 0 )
    43344334             dopr_time_count = 0
     
    43924392          message_string = 'netCDF file for vertical profiles ' //             &
    43934393                           'from previous run found.' //                       &
    4394                            ' This file will be extended.'
     4394                           '&This file will be extended.'
    43954395          CALL message( 'define_netcdf_header', 'PA0256', 0, 0, 0, 6, 0 )
    43964396
     
    44914491             message_string = 'netCDF file for time series ' //                &
    44924492                              'from previous run found,' //                    &
    4493                               ' but this file cannot be extended due to' //    &
     4493                              '&but this file cannot be extended due to' //    &
    44944494                              ' variable mismatch.' //                         &
    4495                               ' New file is created instead.'
     4495                              '&New file is created instead.'
    44964496             CALL message( 'define_netcdf_header', 'PA0257', 0, 1, 0, 6, 0 )
    44974497             extend = .FALSE.
     
    45254525             message_string = 'netCDF file for time series ' //                &
    45264526                              'from previous run found,' //                    &
    4527                               ' but this file cannot be extended becaus' //    &
     4527                              '&but this file cannot be extended becaus' //    &
    45284528                              'e the current output time' //                   &
    4529                               ' is less or equal than the last output t' //    &
     4529                              '&is less or equal than the last output t' //    &
    45304530                              'ime on this file.' //                           &
    4531                               ' New file is created instead.'
     4531                              '&New file is created instead.'
    45324532             CALL message( 'define_netcdf_header', 'PA0258', 0, 1, 0, 6, 0 )
    45334533             dots_time_count = 0
     
    45744574          message_string = 'netCDF file for time series ' //                   &
    45754575                           'from previous run found.' //                       &
    4576                            ' This file will be extended.'
     4576                           '&This file will be extended.'
    45774577          CALL message( 'define_netcdf_header', 'PA0259', 0, 0, 0, 6, 0 )
    45784578
     
    48084808             message_string = 'netCDF file for spectra  ' //                   &
    48094809                              'from previous run found,' //                    &
    4810                               ' but this file cannot be extended due to' //    &
     4810                              '&but this file cannot be extended due to' //    &
    48114811                              ' variable mismatch.' //                         &
    4812                               ' New file is created instead.'
     4812                              '&New file is created instead.'
    48134813             CALL message( 'define_netcdf_header', 'PA0260', 0, 1, 0, 6, 0 )
    48144814             extend = .FALSE.
     
    48424842             message_string = 'netCDF file for spectra ' //                    &
    48434843                              ' from previous run found,' //                   &
    4844                               ' but this file cannot be extended due to' //    &
     4844                              '&but this file cannot be extended due to' //    &
    48454845                              ' mismatch in number of' //                      &
    48464846                              ' vertical levels.' //                           &
    4847                               ' New file is created instead.'
     4847                              '&New file is created instead.'
    48484848             CALL message( 'define_netcdf_header', 'PA0261', 0, 1, 0, 6, 0 )
    48494849             extend = .FALSE.
     
    48624862                message_string = 'netCDF file for spectra ' //                 &
    48634863                                 ' from previous run found,' //                &
    4864                                  ' but this file cannot be extended due to' // &
     4864                                 '&but this file cannot be extended due to' // &
    48654865                                 ' mismatch in heights of' //                  &
    48664866                                 ' vertical levels.' //                        &
    4867                                  ' New file is created instead.'
     4867                                 '&New file is created instead.'
    48684868                CALL message( 'define_netcdf_header', 'PA0262', 0, 1, 0, 6, 0 )
    48694869                extend = .FALSE.
     
    49004900             message_string = 'netCDF file for spectra ' //                    &
    49014901                              'from previous run found,' //                    &
    4902                               ' but this file cannot be extended becaus' //    &
     4902                              '&but this file cannot be extended becaus' //    &
    49034903                              'e the current output time' //                   & 
    4904                               ' is less or equal than the last output t' //    &
     4904                              '&is less or equal than the last output t' //    &
    49054905                              'ime on this file.' //                           &
    4906                               ' New file is created instead.'
     4906                              '&New file is created instead.'
    49074907             CALL message( 'define_netcdf_header', 'PA0263', 0, 1, 0, 6, 0 )
    49084908             dosp_time_count = 0
     
    49644964          message_string = 'netCDF file for spectra ' //                       &
    49654965                           'from previous run found.' //                       &
    4966                            ' This file will be extended.'
     4966                           '&This file will be extended.'
    49674967          CALL message( 'define_netcdf_header', 'PA0264', 0, 0, 0, 6, 0 )
    49684968
     
    50465046!             message_string = 'netCDF file for particles ' //                  &
    50475047!                              'from previous run found,' //                    &
    5048 !                              ' but this file cannot be extended becaus' //    &
     5048!                              '&but this file cannot be extended becaus' //    &
    50495049!                              'e the current output time' //                   &
    5050 !                              ' is less or equal than the last output t' //    &
     5050!                              '&is less or equal than the last output t' //    &
    50515051!                              'ime on this file.' //                           &
    5052 !                              ' New file is created instead.'
     5052!                              '&New file is created instead.'
    50535053!             CALL message( 'define_netcdf_header', 'PA0265', 0, 1, 0, 6, 0 )
    50545054!             prt_time_count = 0
     
    50745074!          message_string = 'netCDF file for particles ' //                     &
    50755075!                           'from previous run found.' //                       &
    5076 !                           ' This file will be extended.'
     5076!                           '&This file will be extended.'
    50775077!          CALL message( 'define_netcdf_header', 'PA0266', 0, 0, 0, 6, 0 )
    50785078       
     
    51825182             message_string = 'netCDF file for particle time series ' //       &
    51835183                              'from previous run found,' //                    &
    5184                               ' but this file cannot be extended due to' //    &
     5184                              '&but this file cannot be extended due to' //    &
    51855185                              ' variable mismatch.' //                         &
    5186                               ' New file is created instead.'
     5186                              '&New file is created instead.'
    51875187             CALL message( 'define_netcdf_header', 'PA0267', 0, 1, 0, 6, 0 )
    51885188             extend = .FALSE.
     
    52165216             message_string = 'netCDF file for particle time series ' //       &
    52175217                              'from previous run found,' //                    &
    5218                               ' but this file cannot be extended becaus' //    &
     5218                              '&but this file cannot be extended becaus' //    &
    52195219                              'e the current output time' //                   &
    5220                               ' is less or equal than the last output t' //    &
     5220                              '&is less or equal than the last output t' //    &
    52215221                              'ime on this file.' //                           &
    5222                               ' New file is created instead.'
     5222                              '&New file is created instead.'
    52235223             CALL message( 'define_netcdf_header', 'PA0268', 0, 1, 0, 6, 0 )
    52245224             dopts_time_count = 0
     
    52695269          message_string = 'netCDF file for particle time series ' //          &
    52705270                           'from previous run found.' //                       &
    5271                            ' This file will be extended.'
     5271                           '&This file will be extended.'
    52725272          CALL message( 'netcdf_define_header', 'PA0269', 0, 0, 0, 6, 0 )
    52735273
     
    53625362             message_string = 'netCDF file for flight time series ' //         &
    53635363                              'from previous run found,' //                    &
    5364                               ' but this file cannot be extended due to' //    &
     5364                              '&but this file cannot be extended due to' //    &
    53655365                              ' variable mismatch.' //                         &
    5366                               ' New file is created instead.'
     5366                              '&New file is created instead.'
    53675367             CALL message( 'define_netcdf_header', 'PA0257', 0, 1, 0, 6, 0 )
    53685368             extend = .FALSE.
     
    53965396             message_string = 'netCDF file for flight-time series ' //         &
    53975397                              'from previous run found,' //                    &
    5398                               ' but this file cannot be extended becaus' //    &
     5398                              '&but this file cannot be extended becaus' //    &
    53995399                              'e the current output time' //                   &
    5400                               ' is less or equal than the last output t' //    &
     5400                              '&is less or equal than the last output t' //    &
    54015401                              'ime on this file.' //                           &
    5402                               ' New file is created instead.'
     5402                              '&New file is created instead.'
    54035403             CALL message( 'define_netcdf_header', 'PA0258', 0, 1, 0, 6, 0 )
    54045404             dofl_time_count = 0
     
    54485448          message_string = 'netCDF file for flight-time series ' //            &
    54495449                           'from previous run found.' //                       &
    5450                            ' This file will be extended.'
     5450                           '&This file will be extended.'
    54515451          CALL message( 'define_netcdf_header', 'PA0259', 0, 0, 0, 6, 0 )
    54525452
Note: See TracChangeset for help on using the changeset viewer.