Changeset 4187 for palm/trunk/SOURCE/plant_canopy_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/plant_canopy_model_mod.f90 (modified) (7 diffs)

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Give specific error numbers instead of PA0999
+! 
+! 4182 2019-08-22 15:20:23Z scharf
 ! Corrected "Former revisions" section
 ! 
@@ -430 +433 @@
                            TRIM( coupling_char ) // ' requires ' //            &
                            'canopy_mode = read_from_file_3d'
-          CALL message( 'pcm_check_parameters', 'PA0999', 1, 2, 0, 6, 0 )
+          CALL message( 'pcm_check_parameters', 'PA0673', 1, 2, 0, 6, 0 )
        ENDIF
 
@@ -1066 +1069 @@
                    ENDDO
                 ENDDO
+                
                 CALL exchange_horiz( lad_s, nbgp )
 !
@@ -1091 +1095 @@
        ALLOCATE( pch_index_ji(nysg:nyng,nxlg:nxrg) )
        pch_index_ji = 0
-
+       
        DO  i = nxl, nxr
           DO  j = nys, nyn
@@ -1104 +1108 @@
                 message_string =  'Local vegetation height on top of ' //      &
                                   'topography exceeds height of model domain.'
-                CALL message( 'pcm_init', 'PA0999', 2, 2, 0, 6, 0 )
+                CALL message( 'pcm_init', 'PA0674', 2, 2, 0, 6, 0 )
              ENDIF
 
@@ -1114 +1118 @@
 !--    Calculate global pch_index value (index of top of plant canopy from ground)
        pch_index = MAXVAL( pch_index_ji )
+       
+       
 !
 !--    Exchange pch_index from all processors
@@ -1129 +1135 @@
           pc_latent_rate = 0.0_wp
        ENDIF
-
 !
 !--    Initialization of the canopy heat source distribution due to heating