Changeset 4187 for palm/trunk/SOURCE/land_surface_model_mod.f90

Timestamp:

Aug 26, 2019 12:43:15 PM (5 years ago)

Author:

suehring

Message:

radiation: Take external radiation input from root domain dynamic file if no dynamic input file is provided for each nested domain; radiation: Combine MPI_ALLREDUCE calls to reduce latency; land_surface + plant_canopy: Give specific error numbers; land-surface: Adjust error messages for local checks; init_3d_model: Deallocate temporary string array for netcdf-data input since it may be re-used in other modules for different input files

File:

• palm/trunk/SOURCE/land_surface_model_mod.f90 (modified) (19 diffs)

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Adjust message call in case of local checks
+! 
+! 4182 2019-08-22 15:20:23Z scharf
 ! Corrected "Former revisions" section
 ! 
@@ -1289 +1292 @@
           message_string = 'pavement-surfaces are not allowed in ' //           &
                            'combination with a non-default setting of dz_soil'
-          CALL message( 'lsm_check_parameters', 'PA0999', 2, 2, 0, 6, 0 )
+          CALL message( 'lsm_check_parameters', 'PA0316', 2, 2, 0, 6, 0 )
        ENDIF
     ENDIF
@@ -3169 +3172 @@
                                  'so that information given in ',              &
                                  'vegetation_pars at this point is neglected.' 
-                CALL message( 'land_surface_model_mod', 'PA0999', 0, 0, 0, 6, 0 )
+                CALL message( 'land_surface_model_mod', 'PA0436', 0, 0, myid, 6, 0 )
              ELSE
 
@@ -3245 +3248 @@
                                  'so that information given in ',              &
                                  'vegetation_pars at this point is neglected.' 
-                   CALL message( 'land_surface_model_mod', 'PA0999', 0, 0, 0, 6, 0 )
+                   CALL message( 'land_surface_model_mod', 'PA0437', 0, 0, myid, 6, 0 )
                 ELSE
 
@@ -3461 +3464 @@
                               'so that information given in ',                 &
                               'water_pars at this point is neglected.' 
-                CALL message( 'land_surface_model_mod', 'PA0999', 0, 0, 0, 6, 0 )
+                CALL message( 'land_surface_model_mod', 'PA0645', 0, 0, myid, 6, 0 )
              ELSE
                 IF ( water_pars_f%pars_xy(ind_w_temp,j,i) /=                   &
@@ -3517 +3520 @@
                               'so that information given in ',                 &
                               'water_pars at this point is neglected.' 
-                   CALL message( 'land_surface_model_mod', 'PA0999',           &
-                                  0, 0, 0, 6, 0 )
+                   CALL message( 'land_surface_model_mod', 'PA0646',           &
+                                  0, 0, myid, 6, 0 )
                 ELSE
 
@@ -3824 +3827 @@
                               'so that information given in ',                 &
                               'pavement_pars at this point is neglected.' 
-                CALL message( 'land_surface_model_mod', 'PA0999', 0, 0, 0, 6, 0 )
+                CALL message( 'land_surface_model_mod', 'PA0647', 0, 0, myid, 6, 0 )
              ELSE
                 IF ( pavement_pars_f%pars_xy(ind_p_z0,j,i) /=                  &
@@ -3883 +3886 @@
                                  'so that information given in ',              &
                                  'pavement_pars at this point is neglected.' 
-                   CALL message( 'land_surface_model_mod', 'PA0999', 0, 0, 0, 6, 0 )
+                   CALL message( 'land_surface_model_mod', 'PA0670', 0, 0, myid, 6, 0 )
                 ELSE
 
@@ -4303 +4306 @@
                             'than its saturation value at (k,j,i) ', k,        &
                             surf_lsm_h%i(m), surf_lsm_h%j(m)
-                      CALL message( 'lsm_init', 'PA0458', 2, 2, 0, 6, 0 )
+                      CALL message( 'lsm_init', 'PA0458', 2, 2, myid, 6, 0 )
                    ENDIF               
                 ENDDO
@@ -4319 +4322 @@
                             'its saturation value at (k,j,i) ', k,             &
                             surf_lsm_v(l)%i(m), surf_lsm_v(l)%j(m)
-                         CALL message( 'lsm_init', 'PA0458', 2, 2, 0, 6, 0 )                   
+                         CALL message( 'lsm_init', 'PA0458', 2, 2, myid, 6, 0 )                   
                       ENDIF
                    ENDDO
@@ -4581 +4584 @@
           message_string = 'For non-pavement surfaces the combination ' //     &
                            ' lai = 0.0 and c_veg = 1.0 is not allowed.'
-          CALL message( 'lsm_rrd_local', 'PA0999', 2, 2, 0, 6, 0 )
+          CALL message( 'lsm_rrd_local', 'PA0671', 2, 2, 0, 6, 0 )
        ENDIF
 
@@ -4590 +4593 @@
              message_string = 'For non-pavement surfaces the combination ' //  &
                               ' lai = 0.0 and c_veg = 1.0 is not allowed.'
-             CALL message( 'lsm_rrd_local', 'PA0999', 2, 2, 0, 6, 0 )
+             CALL message( 'lsm_rrd_local', 'PA0672', 2, 2, 0, 6, 0 )
           ENDIF
        ENDDO
@@ -4607 +4610 @@
                             surf_lsm_h%i(m), surf_lsm_h%j(m)
              CALL message( 'land_surface_model_mod', 'PA0503',                 &
-                            0, 0, 0, 6, 0 )
+                            0, 0, myid, 6, 0 )
           ENDIF
           IF ( surf_lsm_h%z0h(m) > 0.5_wp * surf_lsm_h%z_mo(m) )  THEN
@@ -4619 +4622 @@
                             surf_lsm_h%i(m), surf_lsm_h%j(m)
              CALL message( 'land_surface_model_mod', 'PA0507',                 &
-                            0, 0, 0, 6, 0 )
+                            0, 0, myid, 6, 0 )
           ENDIF
        ENDDO
@@ -4635 +4638 @@
                             surf_lsm_v(l)%j(m)+surf_lsm_v(l)%joff
                 CALL message( 'land_surface_model_mod', 'PA0503',              &
-                            0, 0, 0, 6, 0 )
+                            0, 0, myid, 6, 0 )
              ENDIF
              IF ( surf_lsm_v(l)%z0h(m) > 0.5_wp * surf_lsm_v(l)%z_mo(m) )  THEN
@@ -4648 +4651 @@
                             surf_lsm_v(l)%j(m)+surf_lsm_v(l)%joff
                 CALL message( 'land_surface_model_mod', 'PA0507',              &
-                            0, 0, 0, 6, 0 )
+                            0, 0, myid, 6, 0 )
              ENDIF
           ENDDO
@@ -6982 +6985 @@
                             surf_lsm_h%i(m), surf_lsm_h%j(m)
                 CALL message( 'land_surface_model_mod', 'PA0508',              &
-                              0, 0, 0, 6, 0 )
+                              0, 0, myid, 6, 0 )
              ENDIF
   
@@ -6994 +6997 @@
                             surf_lsm_h%i(m), surf_lsm_h%j(m)
                 CALL message( 'land_surface_model_mod', 'PA0508',              &
-                              0, 0, 0, 6, 0 )
+                              0, 0, myid, 6, 0 )
              ENDIF
              
@@ -7006 +7009 @@
                             surf_lsm_h%i(m), surf_lsm_h%j(m)
                 CALL message( 'land_surface_model_mod', 'PA0508',              &
-                              0, 0, 0, 6, 0 )
+                              0, 0, myid, 6, 0 )
              ENDIF