Changeset 4860 for palm

Timestamp:

Feb 1, 2021 8:10:59 AM (4 years ago)

Author:

raasch

Message:

further re-numbering of message IDs

File:

• palm/trunk/SOURCE/chemistry_model_mod.f90 (modified) (29 diffs)

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! further re-numbering of message IDs
+!
+! 4852 2021-01-25 07:18:30Z raasch
 ! re-numbering of message IDs
 !
@@ -1246 +1249 @@
     ELSEIF ( .NOT. ( call_chem_at_all_substeps ) )  THEN
        message_string = 'Sub-time-steps are skipped for chemistry time-steps'
-       CALL message( 'chem_check_parameters', 'PA0523', 0, 0, 0, 6, 0 )
+       CALL message( 'chem_check_parameters', 'PA0518', 0, 0, 0, 6, 0 )
     ENDIF
 !
@@ -1252 +1255 @@
     IF ( ( photolysis_scheme /= 'simple' ) .AND. ( photolysis_scheme /= 'constant' )  )  THEN
        message_string = 'Incorrect photolysis scheme selected, please check spelling'
-       CALL message( 'chem_check_parameters', 'PA0593', 1, 2, 0, 6, 0 )
+       CALL message( 'chem_check_parameters', 'PA0523', 1, 2, 0, 6, 0 )
     ENDIF
 !
@@ -1260 +1263 @@
        message_string =                                                                            &
        'Incorrect chemistry mechanism selected, check spelling in namelist and/or chem_gasphase_mod'
-       CALL message( 'chem_check_parameters', 'PA0675', 1, 2, 0, 6, 0 )
+       CALL message( 'chem_check_parameters', 'PA0551', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -1271 +1274 @@
     ELSE
        message_string = 'unknown boundary condition: bc_cs_b ="' // TRIM( bc_cs_b ) // '"'
-       CALL message( 'chem_check_parameters', 'PA0730', 1, 2, 0, 6, 0 )
+       CALL message( 'chem_check_parameters', 'PA0593', 1, 2, 0, 6, 0 )
     ENDIF
 !
@@ -1285 +1288 @@
     ELSE
        message_string = 'unknown boundary condition: bc_c_t ="' // TRIM( bc_cs_t ) // '"'
-       CALL message( 'chem_check_parameters', 'PA0731', 1, 2, 0, 6, 0 )
+       CALL message( 'chem_check_parameters', 'PA0675', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -1356 +1359 @@
          ( bc_cs_r == 'cyclic' .AND. bc_cs_l /= 'cyclic' ) )  THEN
        message_string = 'boundary conditions bc_cs_l and bc_cs_r must both be cyclic or non-cyclic'
-       CALL message( 'chem_check_parameters','PA0716', 1, 2, 0, 6, 0 )
+       CALL message( 'chem_check_parameters','PA0714', 1, 2, 0, 6, 0 )
     ENDIF
     IF ( ( bc_cs_n == 'cyclic' .AND. bc_cs_s /= 'cyclic' )  .OR.                                   &
          ( bc_cs_s == 'cyclic' .AND. bc_cs_n /= 'cyclic' ) )  THEN
        message_string = 'boundary conditions bc_cs_n and bc_cs_s must both be cyclic or non-cyclic'
-       CALL message( 'chem_check_parameters','PA0716', 1, 2, 0, 6, 0 )
+       CALL message( 'chem_check_parameters','PA0714', 1, 2, 0, 6, 0 )
     ENDIF
 !
@@ -1413 +1416 @@
           message_string = 'Unused/incorrect input for initial surface value: ' //     &
                             TRIM( cs_name(lsp_usr) )
-          CALL message( 'chem_check_parameters', 'PA0732', 1, 2, 0, 6, 0 )
+          CALL message( 'chem_check_parameters', 'PA0715', 1, 2, 0, 6, 0 )
        ENDIF
        lsp_usr = lsp_usr + 1
@@ -1432 +1435 @@
           message_string = 'Unused/incorrect input of chemical species for surface emission fluxes: '  &
                             // TRIM( surface_csflux_name(lsp_usr) )
-          CALL message( 'chem_check_parameters', 'PA0733', 1, 2, 0, 6, 0 )
+          CALL message( 'chem_check_parameters', 'PA0716', 1, 2, 0, 6, 0 )
        ENDIF
        lsp_usr = lsp_usr + 1
@@ -2348 +2351 @@
                 IF ( cs_heights(1,1) /= 0.0_wp )  THEN
                    message_string = 'The surface value of cs_heights must be 0.0'
-                   CALL message( 'chem_check_parameters', 'PA0734', 1, 2, 0, 6, 0 )
+                   CALL message( 'chem_check_parameters', 'PA0717', 1, 2, 0, 6, 0 )
                 ENDIF
 
@@ -2361 +2364 @@
                          IF ( npr_lev == 100 )  THEN
                             message_string = 'number of chem spcs exceeding the limit'
-                            CALL message( 'chem_check_parameters', 'PA0735', 1, 2, 0, 6, 0 )
+                            CALL message( 'chem_check_parameters', 'PA0730', 1, 2, 0, 6, 0 )
                             EXIT
                          ENDIF
@@ -2631 +2634 @@
                ( mode_emis /= 'PRE-PROCESSED'  ) )  THEN
              message_string = 'Incorrect mode_emiss  option select. Please check spelling'
-             CALL message( 'chem_parin', 'PA0736', 1, 2, 0, 6, 0 )
+             CALL message( 'chem_parin', 'PA0731', 1, 2, 0, 6, 0 )
           ENDIF
        ELSE
@@ -2638 +2641 @@
                ( emiss_lod /= 2 ) )  THEN
              message_string = 'Invalid value for emiss_lod (0, 1, or 2)'
-             CALL message( 'chem_parin', 'PA0737', 1, 2, 0, 6, 0 )
+             CALL message( 'chem_parin', 'PA0732', 1, 2, 0, 6, 0 )
           ENDIF
        ENDIF
@@ -2646 +2649 @@
 !    IF ( (mode_emis /= 'PARAMETERIZED')  .AND. ( mode_emis /= 'DEFAULT' ) .AND. ( mode_emis /= 'PRE-PROCESSED'  ) )  THEN
 !       message_string = 'Incorrect mode_emiss  option select. Please check spelling'
-!       CALL message( 'chem_parin', 'PA0736', 1, 2, 0, 6, 0 )
+!       CALL message( 'chem_parin', 'PA0731', 1, 2, 0, 6, 0 )
 !    ENDIF
 
@@ -2670 +2673 @@
                            'NOTE - mode_emis will be depreciated in future releases&'   //         &
                            'please use emiss_lod to define emission mode'
-          CALL message( 'chem_parin', 'PA0738', 0, 0, 0, 6, 0 )
+          CALL message( 'chem_parin', 'PA0733', 0, 0, 0, 6, 0 )
 
        ELSE ! if emiss_lod is not set
@@ -2686 +2689 @@
                            'NOTE - mode_emis will be depreciated in future releases&'   //         &
                            'please use emiss_lod to define emission mode'
-          CALL message( 'chem_parin', 'PA0739', 0, 0, 0, 6, 0 )
+          CALL message( 'chem_parin', 'PA0734', 0, 0, 0, 6, 0 )
        ENDIF
 
@@ -2705 +2708 @@
                            'All emissions data will be loaded '             //                     &
                            'prior to start of simulation'
-          CALL message( 'chem_parin', 'PA0740', 0, 0, 0, 6, 0 )
+          CALL message( 'chem_parin', 'PA0735', 0, 0, 0, 6, 0 )
 
        ELSE                                     !< if new read mode selected
@@ -2714 +2717 @@
                               'currently unavailable for LODs 0 and 1.&'   //                      &
                               'Reverting to legacy emission read mode'
-             CALL message( 'chem_parin', 'PA0741', 0, 0, 0, 6, 0 )
+             CALL message( 'chem_parin', 'PA0736', 0, 0, 0, 6, 0 )
 
              emiss_read_legacy_mode = .TRUE.
@@ -2723 +2726 @@
                               'LOD 2 emissions will be updated on-demand ' //                      &
                               'according to indicated timestamps'
-             CALL message( 'chem_parin', 'PA0742', 0, 0, 0, 6, 0 )
+             CALL message( 'chem_parin', 'PA0737', 0, 0, 0, 6, 0 )
 
           ENDIF
@@ -3876 +3879 @@
              message_string = 'No lsm-vegetation type defined. Please define vegetation type to' //&
                               ' enable deposition calculation'
-             CALL message( 'chem_depo', 'PA0743', 1, 2, 0, 6, 0 )
+             CALL message( 'chem_depo', 'PA0738', 1, 2, 0, 6, 0 )
           ELSEIF ( luv_palm == ind_luv_b_soil )  THEN
              luv_dep = 9
@@ -3921 +3924 @@
              message_string = 'No lsm-pavement type defined. Please define pavement type to ' //   &
                               'enable deposition calculation'
-             CALL message( 'chem_depo', 'PA0743', 1, 2, 0, 6, 0 )
+             CALL message( 'chem_depo', 'PA0738', 1, 2, 0, 6, 0 )
           ELSEIF ( lup_palm == ind_lup_asph_conc )  THEN
              lup_dep = 9
@@ -3960 +3963 @@
              message_string = 'No lsm-water type defined. Please define water type to enable' //   &
                               ' deposition calculation'
-             CALL message( 'chem_depo', 'PA0743', 1, 2, 0, 6, 0 )
+             CALL message( 'chem_depo', 'PA0738', 1, 2, 0, 6, 0 )
           ELSEIF ( luw_palm ==  ind_luw_lake )  THEN
              luw_dep = 13
@@ -4459 +4462 @@
              message_string = 'No usm-vegetation type defined. Please define vegetation type to' //&
                               ' enable deposition calculation'
-             CALL message( 'chem_depo', 'PA0743', 1, 2, 0, 6, 0 )
+             CALL message( 'chem_depo', 'PA0738', 1, 2, 0, 6, 0 )
           ELSEIF ( lug_palm == ind_luv_b_soil )  THEN
              lug_dep = 9
@@ -4507 +4510 @@
              message_string = 'No pavement type defined. Please define pavement type to enable' // &
                               ' deposition calculation'
-             CALL message( 'chem_depo', 'PA0745', 1, 2, 0, 6, 0 )
+             CALL message( 'chem_depo', 'PA0739', 1, 2, 0, 6, 0 )
           ELSEIF ( luu_palm == ind_lup_asph_conc )  THEN
              luu_dep = 9
@@ -4549 +4552 @@
              message_string = 'No usm-pavement type defined. Please define pavement type to ' //   &
                               'enable deposition calculation'
-             CALL message( 'chem_depo', 'PA0743', 1, 2, 0, 6, 0 )
+             CALL message( 'chem_depo', 'PA0738', 1, 2, 0, 6, 0 )
           ELSEIF ( lud_palm == ind_lup_asph_conc )  THEN
              lud_dep = 9
@@ -5306 +5309 @@
     CASE default
        message_string = 'Component '// TRIM( compnam ) // ' not supported'
-       CALL message( 'rc_special', 'PA0746', 1, 2, 0, 6, 0 )
+       CALL message( 'rc_special', 'PA0740', 1, 2, 0, 6, 0 )
     END SELECT
 
@@ -5359 +5362 @@
     CASE default
        message_string = 'Component '// TRIM( compnam ) // ' not supported'
-       CALL message( 'rc_gw', 'PA0746', 1, 2, 0, 6, 0 )
+       CALL message( 'rc_gw', 'PA0740', 1, 2, 0, 6, 0 )
     END SELECT
 
@@ -5572 +5575 @@
     CASE default
        message_string = 'Component '// TRIM( compnam ) // ' not supported'
-       CALL message( 'rc_gstom', 'PA0746', 1, 2, 0, 6, 0 )
+       CALL message( 'rc_gstom', 'PA0740', 1, 2, 0, 6, 0 )
     END SELECT
 
@@ -5928 +5931 @@
           ELSE
              message_string = 'nwet can only be 0 or 1'
-             CALL message( 'rc_gsoil_eff', 'PA0747', 1, 2, 0, 6, 0 )
+             CALL message( 'rc_gsoil_eff', 'PA0741', 1, 2, 0, 6, 0 )
           ENDIF
        ENDIF