Changeset 3045 for palm/trunk/SOURCE/init_grid.f90
- Timestamp:
- May 28, 2018 7:55:41 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_grid.f90
r2968 r3045 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Error messages revised 28 ! 29 ! 2968 2018-04-13 11:52:24Z suehring 27 30 ! Bugfix in initialization in case of elevated model surface. Introduce 28 31 ! index for minimum topography-top. … … 651 654 IF ( nzb_local_min < 0 .OR. nzb_local_max > nz + 1 ) THEN 652 655 WRITE( message_string, * ) 'nzb_local values are outside the', & 653 ' model domain',&654 ' &MINVAL( nzb_local ) = ', nzb_local_min, &655 ' &MAXVAL( nzb_local ) = ', nzb_local_max656 ' model domain', & 657 ' MINVAL( nzb_local ) = ', nzb_local_min, & 658 ' MAXVAL( nzb_local ) = ', nzb_local_max 656 659 CALL message( 'init_grid', 'PA0210', 1, 2, 0, 6, 0 ) 657 660 ENDIF … … 1497 1500 ( bys < 1 ) .OR. ( byn > ny-1 ) .OR. ( byn < bys+3 ) ) THEN 1498 1501 WRITE( message_string, * ) 'inconsistent building parameters:', & 1499 ' & bxl=', bxl, 'bxr=', bxr, 'bys=', bys,&1502 ' bxl=', bxl, 'bxr=', bxr, 'bys=', bys, & 1500 1503 'byn=', byn, 'nx=', nx, 'ny=', ny 1501 1504 CALL message( 'init_grid', 'PA0203', 1, 2, 0, 6, 0 ) … … 1589 1592 ( ch < 3 ) ) THEN 1590 1593 WRITE( message_string, * ) 'inconsistent canyon parameters:', & 1591 ' &cxl=', cxl, 'cxr=', cxr,&1592 ' cwx=', cwx,&1593 ' ch=', ch, 'nx=', nx, 'ny=', ny1594 ' cxl=', cxl, ' cxr=', cxr, & 1595 ' cwx=', cwx, & 1596 ' ch=', ch, ' nx=', nx, ' ny=', ny 1594 1597 CALL message( 'init_grid', 'PA0205', 1, 2, 0, 6, 0 ) 1595 1598 ENDIF … … 1598 1601 ( ch < 3 ) ) THEN 1599 1602 WRITE( message_string, * ) 'inconsistent canyon parameters:', & 1600 ' &cys=', cys, 'cyn=', cyn,&1601 ' cwy=', cwy,&1602 ' ch=', ch, 'nx=', nx, 'ny=', ny1603 ' cys=', cys, ' cyn=', cyn, & 1604 ' cwy=', cwy, & 1605 ' ch=', ch, ' nx=', nx, ' ny=', ny 1603 1606 CALL message( 'init_grid', 'PA0206', 1, 2, 0, 6, 0 ) 1604 1607 ENDIF … … 1607 1610 canyon_width_y /= 9999999.9_wp ) THEN 1608 1611 message_string = 'inconsistent canyon parameters:' // & 1609 ' &street canyon can only be oriented' // &1610 ' &either in x- or in y-direction'1612 ' street canyon can only be oriented' // & 1613 ' either in x- or in y-direction' 1611 1614 CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 ) 1612 1615 ENDIF … … 1895 1898 TRIM( topography ) /= 'read_from_file') THEN 1896 1899 !-- The default value is not applicable here, because it is only valid 1897 !-- for the two standard cases 'single_building' and 'read_from_file' 1900 !-- for the four standard cases 'single_building', 1901 !-- 'single_street_canyon', 'tunnel' and 'read_from_file' 1898 1902 !-- defined in init_grid. 1899 1903 WRITE( message_string, * ) & 1900 1904 'The value for "topography_grid_convention" ', & 1901 'is not set. Its default value is & only valid for ',&1902 '"topography" = ''single_building'', ' ,&1903 '''single_street_canyon'' & or ''read_from_file''.',&1904 ' &Choose ''cell_edge'' or ''cell_center''.'1905 'is not set. Its default value is only valid for ', & 1906 '"topography" = ''single_building'', ''tunnel'' ', & 1907 '''single_street_canyon'' or ''read_from_file''.', & 1908 ' Choose ''cell_edge'' or ''cell_center''.' 1905 1909 CALL message( 'init_grid', 'PA0239', 1, 2, 0, 6, 0 ) 1906 1910 ELSE … … 1919 1923 WRITE( message_string, * ) & 1920 1924 'The value for "topography_grid_convention" is ', & 1921 'not recognized. &Choose ''cell_edge'' or ''cell_center''.'1925 'not recognized. Choose ''cell_edge'' or ''cell_center''.' 1922 1926 CALL message( 'init_grid', 'PA0240', 1, 2, 0, 6, 0 ) 1923 1927 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.