Ignore:
Timestamp:
Jan 20, 2020 1:51:46 PM (17 months ago)
Author:
suehring
Message:

Land-surface model: Bugfix in nested soil initialization in case no dynamic input file is present; give local error messages only onces

File:
1 edited

Legend:

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

    r4363 r4381  
    2727! -----------------
    2828! $Id$
     29! Give error message 313 only once
     30!
     31! 4363 2020-01-07 18:11:28Z suehring
    2932! Fix for last commit
    3033!
     
    973976       INTEGER(iwp) ::  m   !< running index
    974977
     978       LOGICAL      ::  lad_on_top = .FALSE.  !< dummy flag to indicate that LAD is defined on a building roof
     979
    975980       REAL(wp) ::  canopy_height   !< canopy height for lad-profile construction
    976981       REAL(wp) ::  gradient        !< gradient for lad-profile construction
     
    12271232                           ANY( BTEST( wall_flags_total_0(:,j,i), 4 ) ) )  THEN
    12281233                         lad_s(:,j,i) = 0.0_wp
    1229                          WRITE( message_string, * )                            &
     1234                         lad_on_top   = .TRUE.
     1235                      ENDIF
     1236                   ENDDO
     1237                ENDDO
     1238#if defined( __parallel )
     1239               CALL MPI_ALLREDUCE( MPI_IN_PLACE, lad_on_top, 1, MPI_LOGICAL,  &
     1240                                   MPI_LOR, comm2d, ierr)
     1241#endif
     1242                IF ( lad_on_top )  THEN
     1243                   WRITE( message_string, * )                                  &
    12301244                                        'Resolved plant-canopy is ' //         &
    12311245                                        'defined on top of an artificially '// &
    1232                                         'created building grid point ' //      &
     1246                                        'created building grid point(s) ' //   &
    12331247                                        '(emerged from the filtering) - ' //   &
    1234                                         'LAD profile is omitted at this ' //   &
    1235                                         'grid point: (i,j) = ', i, j
    1236                          CALL message( 'pcm_init', 'PA0313', 0, 0, myid, 6, 0 )
    1237                       ENDIF
    1238                    ENDDO
    1239                 ENDDO
     1248                                        'LAD profile is omitted at this / ' // &
     1249                                        'these grid point(s).'
     1250                   CALL message( 'pcm_init', 'PA0313', 0, 0, 0, 6, 0 )
     1251                ENDIF
    12401252                CALL exchange_horiz( lad_s, nbgp )
    12411253!
Note: See TracChangeset for help on using the changeset viewer.