Changeset 4241 for palm

Timestamp:

Sep 27, 2019 6:32:47 AM (5 years 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:

• palm/trunk/SOURCE/init_pegrid.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_pegrid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Check added to ensure that subdomain grid has at least the size as given by the number
+! of ghost points
+! 
+! 4182 2019-08-22 15:20:23Z scharf
 ! Corrected "Former revisions" section
 ! 
@@ -558 +562 @@
 
 !
+!-- Check that the number of computational grid points is not smaller than the number of
+!-- ghost points.
+    IF ( nnx < nbgp )  THEN
+       WRITE( message_string, * ) 'number of subdomain grid points along x (', nnx, ') is smaller',&
+                                  'than the number of ghost points (', nbgp, ')'
+       CALL message( 'init_pegrid', 'PA0682', 1, 2, 0, 6, 0 )
+    ENDIF
+    IF ( nny < nbgp )  THEN
+       WRITE( message_string, * ) 'number of subdomain grid points along y (', nny, ') is smaller',&
+                                  'than the number of ghost points (', nbgp, ')'
+       CALL message( 'init_pegrid', 'PA0683', 1, 2, 0, 6, 0 )
+    ENDIF
+
+!
 !-- Create a new MPI derived datatype for the exchange of surface (xy) data,
 !-- which is needed for coupled atmosphere-ocean runs.