Changeset 4852 for palm


Ignore:
Timestamp:
Jan 25, 2021 7:18:30 AM (3 years ago)
Author:
raasch
Message:

re-numbering if message IDs

File:
1 edited

Legend:

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

    r4847 r4852  
    2626! -----------------
    2727! $Id$
    28 ! error message IDs changed from CM to the default PA
     28! re-numbering of message IDs
     29!
     30! 4847 2021-01-19 13:44:45Z raasch
     31! error message IDs changed from CM to the default PA
    2932!
    3033! 4843 2021-01-15 15:22:11Z raasch
     
    12341237    ELSEIF ( .NOT. ( chem_gasphase_on ) )  THEN
    12351238       message_string = 'Chemical reactions: OFF'
    1236        CALL message( 'chem_check_parameters', 'PA0518', 0, 0, 0, 6, 0 )
     1239       CALL message( 'chem_check_parameters', 'PA0517', 0, 0, 0, 6, 0 )
    12371240    ENDIF
    12381241!
     
    13181321    IF ( bc_cs_r /= 'dirichlet'  .AND.  bc_cs_r /= 'neumann'  .AND.  bc_cs_r /= 'cyclic' )  THEN
    13191322       message_string = 'unknown boundary condition: bc_cs_r = "' // TRIM( bc_cs_r ) // '"'
    1320        CALL message( 'chem_check_parameters','PA0551', 1, 2, 0, 6, 0 )
     1323       CALL message( 'chem_check_parameters','PA0505', 1, 2, 0, 6, 0 )
    13211324    ENDIF
    13221325!
     
    13421345    IF ( bc_cs_n /= 'dirichlet'  .AND.  bc_cs_n /= 'neumann'  .AND.  bc_cs_n /= 'cyclic' )  THEN
    13431346       message_string = 'unknown boundary condition: bc_cs_n = "' // TRIM( bc_cs_n ) // '"'
    1344        CALL message( 'chem_check_parameters','PA0714', 1, 2, 0, 6, 0 )
     1347       CALL message( 'chem_check_parameters','PA0505', 1, 2, 0, 6, 0 )
    13451348    ENDIF
    13461349    IF ( bc_cs_s /= 'dirichlet'  .AND.  bc_cs_s /= 'neumann'  .AND.  bc_cs_s /= 'cyclic' )  THEN
    13471350       message_string = 'unknown boundary condition: bc_cs_s = "' // TRIM( bc_cs_s ) // '"'
    1348        CALL message( 'chem_check_parameters','PA0715', 1, 2, 0, 6, 0 )
     1351       CALL message( 'chem_check_parameters','PA0505', 1, 2, 0, 6, 0 )
    13491352    ENDIF
    13501353!
     
    13581361         ( bc_cs_s == 'cyclic' .AND. bc_cs_n /= 'cyclic' ) )  THEN
    13591362       message_string = 'boundary conditions bc_cs_n and bc_cs_s must both be cyclic or non-cyclic'
    1360        CALL message( 'chem_check_parameters','PA0717', 1, 2, 0, 6, 0 )
     1363       CALL message( 'chem_check_parameters','PA0716', 1, 2, 0, 6, 0 )
    13611364    ENDIF
    13621365!
     
    26432646!    IF ( (mode_emis /= 'PARAMETERIZED')  .AND. ( mode_emis /= 'DEFAULT' ) .AND. ( mode_emis /= 'PRE-PROCESSED'  ) )  THEN
    26442647!       message_string = 'Incorrect mode_emiss  option select. Please check spelling'
    2645 !       CALL message( 'chem_parin', 'PA0738', 1, 2, 0, 6, 0 )
     2648!       CALL message( 'chem_parin', 'PA0736', 1, 2, 0, 6, 0 )
    26462649!    ENDIF
    26472650
     
    26672670                           'NOTE - mode_emis will be depreciated in future releases&'   //         &
    26682671                           'please use emiss_lod to define emission mode'
    2669 
    2670           CALL message( 'chem_parin', 'PA0739', 0, 0, 0, 6, 0 )
     2672          CALL message( 'chem_parin', 'PA0738', 0, 0, 0, 6, 0 )
    26712673
    26722674       ELSE ! if emiss_lod is not set
     
    26842686                           'NOTE - mode_emis will be depreciated in future releases&'   //         &
    26852687                           'please use emiss_lod to define emission mode'
    2686 
    2687           CALL message( 'chem_parin', 'PA0740', 0, 0, 0, 6, 0 )
     2688          CALL message( 'chem_parin', 'PA0739', 0, 0, 0, 6, 0 )
    26882689       ENDIF
    26892690
     
    27042705                           'All emissions data will be loaded '             //                     &
    27052706                           'prior to start of simulation'
    2706           CALL message( 'chem_parin', 'PA0741', 0, 0, 0, 6, 0 )
     2707          CALL message( 'chem_parin', 'PA0740', 0, 0, 0, 6, 0 )
    27072708
    27082709       ELSE                                     !< if new read mode selected
     
    27132714                              'currently unavailable for LODs 0 and 1.&'   //                      &
    27142715                              'Reverting to legacy emission read mode'
    2715              CALL message( 'chem_parin', 'PA0742', 0, 0, 0, 6, 0 )
     2716             CALL message( 'chem_parin', 'PA0741', 0, 0, 0, 6, 0 )
    27162717
    27172718             emiss_read_legacy_mode = .TRUE.
     
    27222723                              'LOD 2 emissions will be updated on-demand ' //                      &
    27232724                              'according to indicated timestamps'
    2724              CALL message( 'chem_parin', 'PA0743', 0, 0, 0, 6, 0 )
     2725             CALL message( 'chem_parin', 'PA0742', 0, 0, 0, 6, 0 )
    27252726
    27262727          ENDIF
     
    38733874          luv_palm = surf_lsm_h(0)%vegetation_type(m)
    38743875          IF ( luv_palm == ind_luv_user )  THEN
    3875              message_string = 'No vegetation type defined. Please define vegetation type to' //    &
     3876             message_string = 'No lsm-vegetation type defined. Please define vegetation type to' //&
    38763877                              ' enable deposition calculation'
    3877              CALL message( 'chem_depo', 'PA0744', 1, 2, 0, 6, 0 )
     3878             CALL message( 'chem_depo', 'PA0743', 1, 2, 0, 6, 0 )
    38783879          ELSEIF ( luv_palm == ind_luv_b_soil )  THEN
    38793880             luv_dep = 9
     
    39183919          lup_palm = surf_lsm_h(0)%pavement_type(m)
    39193920          IF ( lup_palm == ind_lup_user )  THEN
    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 )
     3921             message_string = 'No lsm-pavement type defined. Please define pavement type to ' //  &
     3922                              'enable deposition calculation'
     3923             CALL message( 'chem_depo', 'PA0743', 1, 2, 0, 6, 0 )
    39233924          ELSEIF ( lup_palm == ind_lup_asph_conc )  THEN
    39243925             lup_dep = 9
     
    39573958          luw_palm = surf_lsm_h(0)%water_type(m)
    39583959          IF ( luw_palm == ind_luw_user )  THEN
    3959              message_string = 'No water type defined. Please define water type to enable' //       &
     3960             message_string = 'No lsm-water type defined. Please define water type to enable' //   &
    39603961                              ' deposition calculation'
    3961              CALL message( 'chem_depo', 'PA0746', 1, 2, 0, 6, 0 )
     3962             CALL message( 'chem_depo', 'PA0743', 1, 2, 0, 6, 0 )
    39623963          ELSEIF ( luw_palm ==  ind_luw_lake )  THEN
    39633964             luw_dep = 13
     
    44564457          lug_palm = ind_luv_s_grass
    44574458          IF ( lug_palm == ind_luv_user )  THEN
    4458              message_string = 'No vegetation type defined. Please define vegetation type to' //    &
     4459             message_string = 'No usm-vegetation type defined. Please define vegetation type to' //&
    44594460                              ' enable deposition calculation'
    4460              CALL message( 'chem_depo', 'PA0747', 1, 2, 0, 6, 0 )
     4461             CALL message( 'chem_depo', 'PA0743', 1, 2, 0, 6, 0 )
    44614462          ELSEIF ( lug_palm == ind_luv_b_soil )  THEN
    44624463             lug_dep = 9
     
    45064507             message_string = 'No pavement type defined. Please define pavement type to enable' // &
    45074508                              ' deposition calculation'
    4508              CALL message( 'chem_depo', 'PA0748', 1, 2, 0, 6, 0 )
     4509             CALL message( 'chem_depo', 'PA0745', 1, 2, 0, 6, 0 )
    45094510          ELSEIF ( luu_palm == ind_lup_asph_conc )  THEN
    45104511             luu_dep = 9
     
    45464547          lud_palm = ind_lup_metal
    45474548          IF ( lud_palm == ind_lup_user )  THEN
    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 )
     4549             message_string = 'No usm-pavement type defined. Please define pavement type to ' //  &
     4550                              'enable deposition calculation'
     4551             CALL message( 'chem_depo', 'PA0743', 1, 2, 0, 6, 0 )
    45514552          ELSEIF ( lud_palm == ind_lup_asph_conc )  THEN
    45524553             lud_dep = 9
     
    53055306    CASE default
    53065307       message_string = 'Component '// TRIM( compnam ) // ' not supported'
    5307        CALL message( 'rc_special', 'PA0750', 1, 2, 0, 6, 0 )
     5308       CALL message( 'rc_special', 'PA0746', 1, 2, 0, 6, 0 )
    53085309    END SELECT
    53095310
     
    53585359    CASE default
    53595360       message_string = 'Component '// TRIM( compnam ) // ' not supported'
    5360        CALL message( 'rc_gw', 'PA0751', 1, 2, 0, 6, 0 )
     5361       CALL message( 'rc_gw', 'PA0746', 1, 2, 0, 6, 0 )
    53615362    END SELECT
    53625363
     
    55715572    CASE default
    55725573       message_string = 'Component '// TRIM( compnam ) // ' not supported'
    5573        CALL message( 'rc_gstom', 'PA0752', 1, 2, 0, 6, 0 )
     5574       CALL message( 'rc_gstom', 'PA0746', 1, 2, 0, 6, 0 )
    55745575    END SELECT
    55755576
     
    59275928          ELSE
    59285929             message_string = 'nwet can only be 0 or 1'
    5929              CALL message( 'rc_gsoil_eff', 'PA0753', 1, 2, 0, 6, 0 )
     5930             CALL message( 'rc_gsoil_eff', 'PA0747', 1, 2, 0, 6, 0 )
    59305931          ENDIF
    59315932       ENDIF
     
    61036104!       rc_eff = -999.0_wp
    61046105!       message_string = 'This should not be possible, check ccomp_tot'
    6105 !       CALL message( 'rc_comp_point_rc_eff', 'PA0754', 1, 2, 0, 6, 0 )
     6106!       CALL message( 'rc_comp_point_rc_eff', 'PA....', 1, 2, 0, 6, 0 )
    61066107!    ENDIF
    61076108!
Note: See TracChangeset for help on using the changeset viewer.