Changeset 4241


Ignore:
Timestamp:
Sep 27, 2019 6:32:47 AM (21 months ago)
Author:
raasch
Message:

Check added to ensure that subdomain grid has at least the size as given by the number of ghost points

File:
1 edited

Legend:

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

    r4182 r4241  
    2525! -----------------
    2626! $Id$
     27! Check added to ensure that subdomain grid has at least the size as given by the number
     28! of ghost points
     29!
     30! 4182 2019-08-22 15:20:23Z scharf
    2731! Corrected "Former revisions" section
    2832!
     
    558562
    559563!
     564!-- Check that the number of computational grid points is not smaller than the number of
     565!-- ghost points.
     566    IF ( nnx < nbgp )  THEN
     567       WRITE( message_string, * ) 'number of subdomain grid points along x (', nnx, ') is smaller',&
     568                                  'than the number of ghost points (', nbgp, ')'
     569       CALL message( 'init_pegrid', 'PA0682', 1, 2, 0, 6, 0 )
     570    ENDIF
     571    IF ( nny < nbgp )  THEN
     572       WRITE( message_string, * ) 'number of subdomain grid points along y (', nny, ') is smaller',&
     573                                  'than the number of ghost points (', nbgp, ')'
     574       CALL message( 'init_pegrid', 'PA0683', 1, 2, 0, 6, 0 )
     575    ENDIF
     576
     577!
    560578!-- Create a new MPI derived datatype for the exchange of surface (xy) data,
    561579!-- which is needed for coupled atmosphere-ocean runs.
Note: See TracChangeset for help on using the changeset viewer.