Changeset 4860 for palm


Ignore:
Timestamp:
Feb 1, 2021 8:10:59 AM (3 years ago)
Author:
raasch
Message:

further re-numbering of message IDs

File:
1 edited

Legend:

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

    r4852 r4860  
    2626! -----------------
    2727! $Id$
     28! further re-numbering of message IDs
     29!
     30! 4852 2021-01-25 07:18:30Z raasch
    2831! re-numbering of message IDs
    2932!
     
    12461249    ELSEIF ( .NOT. ( call_chem_at_all_substeps ) )  THEN
    12471250       message_string = 'Sub-time-steps are skipped for chemistry time-steps'
    1248        CALL message( 'chem_check_parameters', 'PA0523', 0, 0, 0, 6, 0 )
     1251       CALL message( 'chem_check_parameters', 'PA0518', 0, 0, 0, 6, 0 )
    12491252    ENDIF
    12501253!
     
    12521255    IF ( ( photolysis_scheme /= 'simple' ) .AND. ( photolysis_scheme /= 'constant' )  )  THEN
    12531256       message_string = 'Incorrect photolysis scheme selected, please check spelling'
    1254        CALL message( 'chem_check_parameters', 'PA0593', 1, 2, 0, 6, 0 )
     1257       CALL message( 'chem_check_parameters', 'PA0523', 1, 2, 0, 6, 0 )
    12551258    ENDIF
    12561259!
     
    12601263       message_string =                                                                            &
    12611264       'Incorrect chemistry mechanism selected, check spelling in namelist and/or chem_gasphase_mod'
    1262        CALL message( 'chem_check_parameters', 'PA0675', 1, 2, 0, 6, 0 )
     1265       CALL message( 'chem_check_parameters', 'PA0551', 1, 2, 0, 6, 0 )
    12631266    ENDIF
    12641267
     
    12711274    ELSE
    12721275       message_string = 'unknown boundary condition: bc_cs_b ="' // TRIM( bc_cs_b ) // '"'
    1273        CALL message( 'chem_check_parameters', 'PA0730', 1, 2, 0, 6, 0 )
     1276       CALL message( 'chem_check_parameters', 'PA0593', 1, 2, 0, 6, 0 )
    12741277    ENDIF
    12751278!
     
    12851288    ELSE
    12861289       message_string = 'unknown boundary condition: bc_c_t ="' // TRIM( bc_cs_t ) // '"'
    1287        CALL message( 'chem_check_parameters', 'PA0731', 1, 2, 0, 6, 0 )
     1290       CALL message( 'chem_check_parameters', 'PA0675', 1, 2, 0, 6, 0 )
    12881291    ENDIF
    12891292
     
    13561359         ( bc_cs_r == 'cyclic' .AND. bc_cs_l /= 'cyclic' ) )  THEN
    13571360       message_string = 'boundary conditions bc_cs_l and bc_cs_r must both be cyclic or non-cyclic'
    1358        CALL message( 'chem_check_parameters','PA0716', 1, 2, 0, 6, 0 )
     1361       CALL message( 'chem_check_parameters','PA0714', 1, 2, 0, 6, 0 )
    13591362    ENDIF
    13601363    IF ( ( bc_cs_n == 'cyclic' .AND. bc_cs_s /= 'cyclic' )  .OR.                                   &
    13611364         ( bc_cs_s == 'cyclic' .AND. bc_cs_n /= 'cyclic' ) )  THEN
    13621365       message_string = 'boundary conditions bc_cs_n and bc_cs_s must both be cyclic or non-cyclic'
    1363        CALL message( 'chem_check_parameters','PA0716', 1, 2, 0, 6, 0 )
     1366       CALL message( 'chem_check_parameters','PA0714', 1, 2, 0, 6, 0 )
    13641367    ENDIF
    13651368!
     
    14131416          message_string = 'Unused/incorrect input for initial surface value: ' //     &
    14141417                            TRIM( cs_name(lsp_usr) )
    1415           CALL message( 'chem_check_parameters', 'PA0732', 1, 2, 0, 6, 0 )
     1418          CALL message( 'chem_check_parameters', 'PA0715', 1, 2, 0, 6, 0 )
    14161419       ENDIF
    14171420       lsp_usr = lsp_usr + 1
     
    14321435          message_string = 'Unused/incorrect input of chemical species for surface emission fluxes: '  &
    14331436                            // TRIM( surface_csflux_name(lsp_usr) )
    1434           CALL message( 'chem_check_parameters', 'PA0733', 1, 2, 0, 6, 0 )
     1437          CALL message( 'chem_check_parameters', 'PA0716', 1, 2, 0, 6, 0 )
    14351438       ENDIF
    14361439       lsp_usr = lsp_usr + 1
     
    23482351                IF ( cs_heights(1,1) /= 0.0_wp )  THEN
    23492352                   message_string = 'The surface value of cs_heights must be 0.0'
    2350                    CALL message( 'chem_check_parameters', 'PA0734', 1, 2, 0, 6, 0 )
     2353                   CALL message( 'chem_check_parameters', 'PA0717', 1, 2, 0, 6, 0 )
    23512354                ENDIF
    23522355
     
    23612364                         IF ( npr_lev == 100 )  THEN
    23622365                            message_string = 'number of chem spcs exceeding the limit'
    2363                             CALL message( 'chem_check_parameters', 'PA0735', 1, 2, 0, 6, 0 )
     2366                            CALL message( 'chem_check_parameters', 'PA0730', 1, 2, 0, 6, 0 )
    23642367                            EXIT
    23652368                         ENDIF
     
    26312634               ( mode_emis /= 'PRE-PROCESSED'  ) )  THEN
    26322635             message_string = 'Incorrect mode_emiss  option select. Please check spelling'
    2633              CALL message( 'chem_parin', 'PA0736', 1, 2, 0, 6, 0 )
     2636             CALL message( 'chem_parin', 'PA0731', 1, 2, 0, 6, 0 )
    26342637          ENDIF
    26352638       ELSE
     
    26382641               ( emiss_lod /= 2 ) )  THEN
    26392642             message_string = 'Invalid value for emiss_lod (0, 1, or 2)'
    2640              CALL message( 'chem_parin', 'PA0737', 1, 2, 0, 6, 0 )
     2643             CALL message( 'chem_parin', 'PA0732', 1, 2, 0, 6, 0 )
    26412644          ENDIF
    26422645       ENDIF
     
    26462649!    IF ( (mode_emis /= 'PARAMETERIZED')  .AND. ( mode_emis /= 'DEFAULT' ) .AND. ( mode_emis /= 'PRE-PROCESSED'  ) )  THEN
    26472650!       message_string = 'Incorrect mode_emiss  option select. Please check spelling'
    2648 !       CALL message( 'chem_parin', 'PA0736', 1, 2, 0, 6, 0 )
     2651!       CALL message( 'chem_parin', 'PA0731', 1, 2, 0, 6, 0 )
    26492652!    ENDIF
    26502653
     
    26702673                           'NOTE - mode_emis will be depreciated in future releases&'   //         &
    26712674                           'please use emiss_lod to define emission mode'
    2672           CALL message( 'chem_parin', 'PA0738', 0, 0, 0, 6, 0 )
     2675          CALL message( 'chem_parin', 'PA0733', 0, 0, 0, 6, 0 )
    26732676
    26742677       ELSE ! if emiss_lod is not set
     
    26862689                           'NOTE - mode_emis will be depreciated in future releases&'   //         &
    26872690                           'please use emiss_lod to define emission mode'
    2688           CALL message( 'chem_parin', 'PA0739', 0, 0, 0, 6, 0 )
     2691          CALL message( 'chem_parin', 'PA0734', 0, 0, 0, 6, 0 )
    26892692       ENDIF
    26902693
     
    27052708                           'All emissions data will be loaded '             //                     &
    27062709                           'prior to start of simulation'
    2707           CALL message( 'chem_parin', 'PA0740', 0, 0, 0, 6, 0 )
     2710          CALL message( 'chem_parin', 'PA0735', 0, 0, 0, 6, 0 )
    27082711
    27092712       ELSE                                     !< if new read mode selected
     
    27142717                              'currently unavailable for LODs 0 and 1.&'   //                      &
    27152718                              'Reverting to legacy emission read mode'
    2716              CALL message( 'chem_parin', 'PA0741', 0, 0, 0, 6, 0 )
     2719             CALL message( 'chem_parin', 'PA0736', 0, 0, 0, 6, 0 )
    27172720
    27182721             emiss_read_legacy_mode = .TRUE.
     
    27232726                              'LOD 2 emissions will be updated on-demand ' //                      &
    27242727                              'according to indicated timestamps'
    2725              CALL message( 'chem_parin', 'PA0742', 0, 0, 0, 6, 0 )
     2728             CALL message( 'chem_parin', 'PA0737', 0, 0, 0, 6, 0 )
    27262729
    27272730          ENDIF
     
    38763879             message_string = 'No lsm-vegetation type defined. Please define vegetation type to' //&
    38773880                              ' enable deposition calculation'
    3878              CALL message( 'chem_depo', 'PA0743', 1, 2, 0, 6, 0 )
     3881             CALL message( 'chem_depo', 'PA0738', 1, 2, 0, 6, 0 )
    38793882          ELSEIF ( luv_palm == ind_luv_b_soil )  THEN
    38803883             luv_dep = 9
     
    39213924             message_string = 'No lsm-pavement type defined. Please define pavement type to ' //   &
    39223925                              'enable deposition calculation'
    3923              CALL message( 'chem_depo', 'PA0743', 1, 2, 0, 6, 0 )
     3926             CALL message( 'chem_depo', 'PA0738', 1, 2, 0, 6, 0 )
    39243927          ELSEIF ( lup_palm == ind_lup_asph_conc )  THEN
    39253928             lup_dep = 9
     
    39603963             message_string = 'No lsm-water type defined. Please define water type to enable' //   &
    39613964                              ' deposition calculation'
    3962              CALL message( 'chem_depo', 'PA0743', 1, 2, 0, 6, 0 )
     3965             CALL message( 'chem_depo', 'PA0738', 1, 2, 0, 6, 0 )
    39633966          ELSEIF ( luw_palm ==  ind_luw_lake )  THEN
    39643967             luw_dep = 13
     
    44594462             message_string = 'No usm-vegetation type defined. Please define vegetation type to' //&
    44604463                              ' enable deposition calculation'
    4461              CALL message( 'chem_depo', 'PA0743', 1, 2, 0, 6, 0 )
     4464             CALL message( 'chem_depo', 'PA0738', 1, 2, 0, 6, 0 )
    44624465          ELSEIF ( lug_palm == ind_luv_b_soil )  THEN
    44634466             lug_dep = 9
     
    45074510             message_string = 'No pavement type defined. Please define pavement type to enable' // &
    45084511                              ' deposition calculation'
    4509              CALL message( 'chem_depo', 'PA0745', 1, 2, 0, 6, 0 )
     4512             CALL message( 'chem_depo', 'PA0739', 1, 2, 0, 6, 0 )
    45104513          ELSEIF ( luu_palm == ind_lup_asph_conc )  THEN
    45114514             luu_dep = 9
     
    45494552             message_string = 'No usm-pavement type defined. Please define pavement type to ' //   &
    45504553                              'enable deposition calculation'
    4551              CALL message( 'chem_depo', 'PA0743', 1, 2, 0, 6, 0 )
     4554             CALL message( 'chem_depo', 'PA0738', 1, 2, 0, 6, 0 )
    45524555          ELSEIF ( lud_palm == ind_lup_asph_conc )  THEN
    45534556             lud_dep = 9
     
    53065309    CASE default
    53075310       message_string = 'Component '// TRIM( compnam ) // ' not supported'
    5308        CALL message( 'rc_special', 'PA0746', 1, 2, 0, 6, 0 )
     5311       CALL message( 'rc_special', 'PA0740', 1, 2, 0, 6, 0 )
    53095312    END SELECT
    53105313
     
    53595362    CASE default
    53605363       message_string = 'Component '// TRIM( compnam ) // ' not supported'
    5361        CALL message( 'rc_gw', 'PA0746', 1, 2, 0, 6, 0 )
     5364       CALL message( 'rc_gw', 'PA0740', 1, 2, 0, 6, 0 )
    53625365    END SELECT
    53635366
     
    55725575    CASE default
    55735576       message_string = 'Component '// TRIM( compnam ) // ' not supported'
    5574        CALL message( 'rc_gstom', 'PA0746', 1, 2, 0, 6, 0 )
     5577       CALL message( 'rc_gstom', 'PA0740', 1, 2, 0, 6, 0 )
    55755578    END SELECT
    55765579
     
    59285931          ELSE
    59295932             message_string = 'nwet can only be 0 or 1'
    5930              CALL message( 'rc_gsoil_eff', 'PA0747', 1, 2, 0, 6, 0 )
     5933             CALL message( 'rc_gsoil_eff', 'PA0741', 1, 2, 0, 6, 0 )
    59315934          ENDIF
    59325935       ENDIF
Note: See TracChangeset for help on using the changeset viewer.