Changeset 1069 for palm/trunk/SOURCE/init_grid.f90
- Timestamp:
- Nov 28, 2012 4:18:43 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_grid.f90
r1037 r1069 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! bugfix: added coupling_char to TOPOGRAPHY_DATA to allow topography in the ocean 23 ! model in case of coupled runs 23 24 ! 24 25 ! Former revisions: … … 587 588 !-- Arbitrary irregular topography data in PALM format (exactly 588 589 !-- matching the grid size and total domain size) 589 OPEN( 90, FILE='TOPOGRAPHY_DATA' , STATUS='OLD', &590 OPEN( 90, FILE='TOPOGRAPHY_DATA'//coupling_char, STATUS='OLD', & 590 591 FORM='FORMATTED', ERR=10 ) 591 592 DO j = ny, 0, -1 … … 595 596 GOTO 12 596 597 597 10 message_string = 'file TOPOGRAPHY _DATAdoes not exist'598 10 message_string = 'file TOPOGRAPHY'//coupling_char//' does not exist' 598 599 CALL message( 'init_grid', 'PA0208', 1, 2, 0, 6, 0 ) 599 600 600 11 message_string = 'errors in file TOPOGRAPHY_DATA' 601 11 message_string = 'errors in file TOPOGRAPHY_DATA'//coupling_char 601 602 CALL message( 'init_grid', 'PA0209', 1, 2, 0, 6, 0 ) 602 603
Note: See TracChangeset
for help on using the changeset viewer.