Home


About us
PALM
PALM-4U
Installation
Release notes
Documentation
Getting Help
Gallery
Developers area

Changeset 4847 for palm


Ignore:
Timestamp:
Jan 19, 2021 1:44:45 PM (3 years ago)
Author:
raasch
Message:

error message IDs changed from CM to the default PA

File:
1 edited

Legend:

Unmodified
Added
Removed

  • palm/trunk/SOURCE/chemistry_model_mod.f90

    r4843 r4847  
    2626! -----------------
    2727! $Id$
     28! error message IDs changed from CM to the default PA
     29!
     30! 4843 2021-01-15 15:22:11Z raasch
    2831! local namelist parameter added to switch off the module although the respective module namelist
    2932! appears in the namelist file
    3033!
    3134! 4833 2021-01-07 08:57:54Z raasch
    32 ! openmp bugfix for time measurements of non advective processes 
     35! openmp bugfix for time measurements of non advective processes
    3336!
    3437! 4828 2021-01-05 11:21:41Z Giersch
    … …  
    11191122             message_string = 'data_output_pr = ' // TRIM( data_output_pr(var_count) ) //          &
    11201123                              ' is not implemented for air_chemistry = .FALSE.'
    1121              CALL message( 'chem_check_parameters', 'CM0433', 1, 2, 0, 6, 0 )
     1124             CALL message( 'chem_check_data_output_pr', 'PA0293', 1, 2, 0, 6, 0 )
    11221125
    11231126          ENDIF
    … …  
    11291132                              ' is currently not implemented. Please output resolved- and '//      &
    11301133                              'subgrid-scale fluxes individually to obtain the total flux.'
    1131                 CALL message( 'chem_check_parameters', 'CM0498', 1, 2, 0, 6, 0 )
     1134                CALL message( 'chem_check_data_output_pr', 'PA0487', 1, 2, 0, 6, 0 )
    11321135             ENDIF
    11331136          ENDIF
    … …  
    12281231    IF ( chem_gasphase_on )  THEN
    12291232       message_string = 'Chemical reactions: ON'
    1230        CALL message( 'chem_check_parameters', 'CM0421', 0, 0, 0, 6, 0 )
    1231     ELSEIF ( .NOT. (chem_gasphase_on) )  THEN
     1233       CALL message( 'chem_check_parameters', 'PA0517', 0, 0, 0, 6, 0 )
     1234    ELSEIF ( .NOT. ( chem_gasphase_on ) )  THEN
    12321235       message_string = 'Chemical reactions: OFF'
    1233        CALL message( 'chem_check_parameters', 'CM0422', 0, 0, 0, 6, 0 )
     1236       CALL message( 'chem_check_parameters', 'PA0518', 0, 0, 0, 6, 0 )
    12341237    ENDIF
    12351238!
    … …  
    12371240    IF ( call_chem_at_all_substeps )  THEN
    12381241       message_string = 'Chemistry is calculated at all meteorology time-step'
    1239        CALL message( 'chem_check_parameters', 'CM0423', 0, 0, 0, 6, 0 )
    1240     ELSEIF ( .not. (call_chem_at_all_substeps) )  THEN
     1242       CALL message( 'chem_check_parameters', 'PA0522', 0, 0, 0, 6, 0 )
     1243    ELSEIF ( .NOT. ( call_chem_at_all_substeps ) )  THEN
    12411244       message_string = 'Sub-time-steps are skipped for chemistry time-steps'
    1242        CALL message( 'chem_check_parameters', 'CM0424', 0, 0, 0, 6, 0 )
     1245       CALL message( 'chem_check_parameters', 'PA0523', 0, 0, 0, 6, 0 )
    12431246    ENDIF
    12441247!
    12451248!-- Check for photolysis scheme
    1246     IF ( (photolysis_scheme /= 'simple') .AND. (photolysis_scheme /= 'constant')  )  THEN
     1249    IF ( ( photolysis_scheme /= 'simple' ) .AND. ( photolysis_scheme /= 'constant' )  )  THEN
    12471250       message_string = 'Incorrect photolysis scheme selected, please check spelling'
    1248        CALL message( 'chem_check_parameters', 'CM0425', 1, 2, 0, 6, 0 )
     1251       CALL message( 'chem_check_parameters', 'PA0593', 1, 2, 0, 6, 0 )
    12491252    ENDIF
    12501253!
    … …  
    12541257       message_string =                                                                            &
    12551258       'Incorrect chemistry mechanism selected, check spelling in namelist and/or chem_gasphase_mod'
    1256        CALL message( 'chem_check_parameters', 'CM0462', 1, 2, 0, 6, 0 )
     1259       CALL message( 'chem_check_parameters', 'PA0675', 1, 2, 0, 6, 0 )
    12571260    ENDIF
    12581261
    … …  
    12651268    ELSE
    12661269       message_string = 'unknown boundary condition: bc_cs_b ="' // TRIM( bc_cs_b ) // '"'
    1267        CALL message( 'chem_boundary_conds', 'CM0429', 1, 2, 0, 6, 0 )
     1270       CALL message( 'chem_check_parameters', 'PA0730', 1, 2, 0, 6, 0 )
    12681271    ENDIF
    12691272!
    … …  
    12791282    ELSE
    12801283       message_string = 'unknown boundary condition: bc_c_t ="' // TRIM( bc_cs_t ) // '"'
    1281        CALL message( 'check_parameters', 'CM0430', 1, 2, 0, 6, 0 )
     1284       CALL message( 'chem_check_parameters', 'PA0731', 1, 2, 0, 6, 0 )
    12821285    ENDIF
    12831286
    … …  
    14071410          message_string = 'Unused/incorrect input for initial surface value: ' //     &
    14081411                            TRIM( cs_name(lsp_usr) )
    1409           CALL message( 'chem_check_parameters', 'CM0427', 1, 2, 0, 6, 0 )
     1412          CALL message( 'chem_check_parameters', 'PA0732', 1, 2, 0, 6, 0 )
    14101413       ENDIF
    14111414       lsp_usr = lsp_usr + 1
    … …  
    14261429          message_string = 'Unused/incorrect input of chemical species for surface emission fluxes: '  &
    14271430                            // TRIM( surface_csflux_name(lsp_usr) )
    1428           CALL message( 'chem_check_parameters', 'CM0428', 1, 2, 0, 6, 0 )
     1431          CALL message( 'chem_check_parameters', 'PA0733', 1, 2, 0, 6, 0 )
    14291432       ENDIF
    14301433       lsp_usr = lsp_usr + 1
    … …  
    23422345                IF ( cs_heights(1,1) /= 0.0_wp )  THEN
    23432346                   message_string = 'The surface value of cs_heights must be 0.0'
    2344                    CALL message( 'chem_check_parameters', 'CM0434', 1, 2, 0, 6, 0 )
     2347                   CALL message( 'chem_check_parameters', 'PA0734', 1, 2, 0, 6, 0 )
    23452348                ENDIF
    23462349
    … …  
    23552358                         IF ( npr_lev == 100 )  THEN
    23562359                            message_string = 'number of chem spcs exceeding the limit'
    2357                             CALL message( 'chem_check_parameters', 'CM0435', 1, 2, 0, 6, 0 )
     2360                            CALL message( 'chem_check_parameters', 'PA0735', 1, 2, 0, 6, 0 )
    23582361                            EXIT
    23592362                         ENDIF
    … …  
    26252628               ( mode_emis /= 'PRE-PROCESSED'  ) )  THEN
    26262629             message_string = 'Incorrect mode_emiss  option select. Please check spelling'
    2627              CALL message( 'chem_check_parameters', 'CM0436', 1, 2, 0, 6, 0 )
     2630             CALL message( 'chem_parin', 'PA0736', 1, 2, 0, 6, 0 )
    26282631          ENDIF
    26292632       ELSE
    … …  
    26322635               ( emiss_lod /= 2 ) )  THEN
    26332636             message_string = 'Invalid value for emiss_lod (0, 1, or 2)'
    2634              CALL message( 'chem_check_parameters', 'CM0436', 1, 2, 0, 6, 0 )
     2637             CALL message( 'chem_parin', 'PA0737', 1, 2, 0, 6, 0 )
    26352638          ENDIF
    26362639       ENDIF
    … …  
    26402643!    IF ( (mode_emis /= 'PARAMETERIZED')  .AND. ( mode_emis /= 'DEFAULT' ) .AND. ( mode_emis /= 'PRE-PROCESSED'  ) )  THEN
    26412644!       message_string = 'Incorrect mode_emiss  option select. Please check spelling'
    2642 !       CALL message( 'chem_check_parameters', 'CM0436', 1, 2, 0, 6, 0 )
     2645!       CALL message( 'chem_parin', 'PA0738', 1, 2, 0, 6, 0 )
    26432646!    ENDIF
    26442647
    … …  
    26612664          END SELECT
    26622665
    2663           message_string = 'Synchronizing mode_emis to defined emiss_lod'               //         &
    2664                            CHAR( 10 )  //  '                    '                       //         &
    2665                            'NOTE - mode_emis will be depreciated in future releases'    //         &
    2666                            CHAR( 10 )  //  '                    '                       //         &
     2666          message_string = 'Synchronizing mode_emis to defined emiss_lod&'              //         &
     2667                           'NOTE - mode_emis will be depreciated in future releases&'   //         &
    26672668                           'please use emiss_lod to define emission mode'
    26682669
    2669           CALL message ( 'parin_chem', 'CM0463', 0, 0, 0, 6, 0 )
     2670          CALL message( 'chem_parin', 'PA0739', 0, 0, 0, 6, 0 )
    26702671
    26712672       ELSE ! if emiss_lod is not set
    … …  
    26802681          END SELECT
    26812682
    2682           message_string = 'emiss_lod undefined.  Using existing mod_emiss setting'     //         &
    2683                            CHAR( 10 )  //  '                    '                       //         &
    2684                            'NOTE - mode_emis will be depreciated in future releases'    //         &
    2685                            CHAR( 10 )  //  '                    '                       //         &
     2683          message_string = 'emiss_lod undefined.  Using existing mod_emiss setting&'    //         &
     2684                           'NOTE - mode_emis will be depreciated in future releases&'   //         &
    26862685                           'please use emiss_lod to define emission mode'
    26872686
    2688           CALL message ( 'parin_chem', 'CM0464', 0, 0, 0, 6, 0 )
     2687          CALL message( 'chem_parin', 'PA0740', 0, 0, 0, 6, 0 )
    26892688       ENDIF
    26902689
    … …  
    27022701       IF ( emiss_read_legacy_mode )  THEN       !< notify legacy read mode
    27032702
    2704           message_string = 'Legacy emission read mode activated'            //                     &
    2705                            CHAR( 10 )  //  '                    '           //                     &
     2703          message_string = 'Legacy emission read mode activated&'           //                     &
    27062704                           'All emissions data will be loaded '             //                     &
    27072705                           'prior to start of simulation'
    2708           CALL message ( 'parin_chem', 'CM0465', 0, 0, 0, 6, 0 )
     2706          CALL message( 'chem_parin', 'PA0741', 0, 0, 0, 6, 0 )
    27092707
    27102708       ELSE                                     !< if new read mode selected
    … …  
    27132711
    27142712             message_string = 'New emission read mode '                    //                      &
    2715                               'currently unavailable for LODs 0 and 1.'    //                      &
    2716                               CHAR( 10 )  //  '                    '       //                      &
     2713                              'currently unavailable for LODs 0 and 1.&'   //                      &
    27172714                              'Reverting to legacy emission read mode'
    2718              CALL message ( 'parin_chem', 'CM0466', 0, 0, 0, 6, 0 )
     2715             CALL message( 'chem_parin', 'PA0742', 0, 0, 0, 6, 0 )
    27192716
    27202717             emiss_read_legacy_mode = .TRUE.
    … …  
    27222719          ELSE                                  !< notify new read mode
    27232720
    2724              message_string = 'New emission read mode activated'           //                      &
    2725                               CHAR( 10 )  //  '                    '       //                      &
     2721             message_string = 'New emission read mode activated&'          //                      &
    27262722                              'LOD 2 emissions will be updated on-demand ' //                      &
    27272723                              'according to indicated timestamps'
    2728              CALL message ( 'parin_chem', 'CM0467', 0, 0, 0, 6, 0 )
     2724             CALL message( 'chem_parin', 'PA0743', 0, 0, 0, 6, 0 )
    27292725
    27302726          ENDIF
    … …  
    38773873          luv_palm = surf_lsm_h(0)%vegetation_type(m)
    38783874          IF ( luv_palm == ind_luv_user )  THEN
    3879              message_string = 'No vegetation type defined. Please define vegetation type to enable deposition calculation'
    3880              CALL message( 'chem_depo', 'CM0451', 1, 2, 0, 6, 0 )
     3875             message_string = 'No vegetation type defined. Please define vegetation type to' //    &
     3876                              ' enable deposition calculation'
     3877             CALL message( 'chem_depo', 'PA0744', 1, 2, 0, 6, 0 )
    38813878          ELSEIF ( luv_palm == ind_luv_b_soil )  THEN
    38823879             luv_dep = 9
    … …  
    39213918          lup_palm = surf_lsm_h(0)%pavement_type(m)
    39223919          IF ( lup_palm == ind_lup_user )  THEN
    3923              message_string = 'No pavement type defined. Please define pavement type to enable deposition calculation'
    3924              CALL message( 'chem_depo', 'CM0452', 1, 2, 0, 6, 0 )
     3920             message_string = 'No pavement type defined. Please define pavement type to enable' // &
     3921                              ' deposition calculation'
     3922             CALL message( 'chem_depo', 'PA0745', 1, 2, 0, 6, 0 )
    39253923          ELSEIF ( lup_palm == ind_lup_asph_conc )  THEN
    39263924             lup_dep = 9
    … …  
    39593957          luw_palm = surf_lsm_h(0)%water_type(m)
    39603958          IF ( luw_palm == ind_luw_user )  THEN
    3961              message_string = 'No water type defined. Please define water type to enable deposition calculation'
    3962              CALL message( 'chem_depo', 'CM0453', 1, 2, 0, 6, 0 )
     3959             message_string = 'No water type defined. Please define water type to enable' //       &
     3960                              ' deposition calculation'
     3961             CALL message( 'chem_depo', 'PA0746', 1, 2, 0, 6, 0 )
    39633962          ELSEIF ( luw_palm ==  ind_luw_lake )  THEN
    39643963             luw_dep = 13
    … …  
    44574456          lug_palm = ind_luv_s_grass
    44584457          IF ( lug_palm == ind_luv_user )  THEN
    4459              message_string = 'No vegetation type defined. Please define vegetation type to enable deposition calculation'
    4460              CALL message( 'chem_depo', 'CM0454', 1, 2, 0, 6, 0 )
     4458             message_string = 'No vegetation type defined. Please define vegetation type to' //    &
     4459                              ' enable deposition calculation'
     4460             CALL message( 'chem_depo', 'PA0747', 1, 2, 0, 6, 0 )
    44614461          ELSEIF ( lug_palm == ind_luv_b_soil )  THEN
    44624462             lug_dep = 9
    … …  
    45044504          luu_palm = ind_lup_conc
    45054505          IF ( luu_palm == ind_lup_user )  THEN
    4506              message_string = 'No pavement type defined. Please define pavement type to enable deposition calculation'
    4507              CALL message( 'chem_depo', 'CM0455', 1, 2, 0, 6, 0 )
     4506             message_string = 'No pavement type defined. Please define pavement type to enable' // &
     4507                              ' deposition calculation'
     4508             CALL message( 'chem_depo', 'PA0748', 1, 2, 0, 6, 0 )
    45084509          ELSEIF ( luu_palm == ind_lup_asph_conc )  THEN
    45094510             luu_dep = 9
    … …  
    45454546          lud_palm = ind_lup_metal
    45464547          IF ( lud_palm == ind_lup_user )  THEN
    4547              message_string = 'No pavement type defined. Please define pavement type to enable deposition calculation'
    4548              CALL message( 'chem_depo', 'CM0456', 1, 2, 0, 6, 0 )
     4548             message_string = 'No pavement type defined. Please define pavement type to enable' // &
     4549                              ' deposition calculation'
     4550             CALL message( 'chem_depo', 'PA0749', 1, 2, 0, 6, 0 )
    45494551          ELSEIF ( lud_palm == ind_lup_asph_conc )  THEN
    45504552             lud_dep = 9
    … …  
    53035305    CASE default
    53045306       message_string = 'Component '// TRIM( compnam ) // ' not supported'
    5305        CALL message( 'rc_special', 'CM0457', 1, 2, 0, 6, 0 )
     5307       CALL message( 'rc_special', 'PA0750', 1, 2, 0, 6, 0 )
    53065308    END SELECT
    53075309
    … …  
    53565358    CASE default
    53575359       message_string = 'Component '// TRIM( compnam ) // ' not supported'
    5358        CALL message( 'rc_gw', 'CM0458', 1, 2, 0, 6, 0 )
     5360       CALL message( 'rc_gw', 'PA0751', 1, 2, 0, 6, 0 )
    53595361    END SELECT
    53605362
    … …  
    55695571    CASE default
    55705572       message_string = 'Component '// TRIM( compnam ) // ' not supported'
    5571        CALL message( 'rc_gstom', 'CM0459', 1, 2, 0, 6, 0 )
     5573       CALL message( 'rc_gstom', 'PA0752', 1, 2, 0, 6, 0 )
    55725574    END SELECT
    55735575
    … …  
    59255927          ELSE
    59265928             message_string = 'nwet can only be 0 or 1'
    5927              CALL message( 'rc_gsoil_eff', 'CM0460', 1, 2, 0, 6, 0 )
     5929             CALL message( 'rc_gsoil_eff', 'PA0753', 1, 2, 0, 6, 0 )
    59285930          ENDIF
    59295931       ENDIF
    … …  
    61016103!       rc_eff = -999.0_wp
    61026104!       message_string = 'This should not be possible, check ccomp_tot'
    6103 !       CALL message( 'rc_comp_point_rc_eff', 'CM0461', 1, 2, 0, 6, 0 )
     6105!       CALL message( 'rc_comp_point_rc_eff', 'PA0754', 1, 2, 0, 6, 0 )
    61046106!    ENDIF
    61056107!
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |