Changeset 2849
- Timestamp:
- Mar 5, 2018 10:49:33 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/parin.f90
r2826 r2849 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Position of d3par namelist in parameter file is unimportant now 28 ! 29 ! 2826 2018-02-21 12:39:28Z Giersch 27 30 ! Bugfix in setting the default boundary conditions for nest domains 28 ! 31 ! 29 32 ! 2817 2018-02-19 16:32:21Z knoop 30 33 ! Preliminary gust module interface implemented 31 ! 34 ! 32 35 ! 2773 2018-01-30 14:12:54Z suehring 33 36 ! Nesting for chemical species implemented … … 427 430 428 431 IMPLICIT NONE 432 433 CHARACTER (LEN=80) :: line !< dummy string that contains the current line of the parameter file 429 434 430 435 INTEGER(iwp) :: global_id !< process id with respect to MPI_COMM_WORLD … … 715 720 716 721 ! 717 !-- Read runtime parameters given by the user for this run (namelist 718 !-- "d3par"). The namelist "d3par" can be omitted. In that case, default 719 !-- values are used for the parameters. 720 READ ( 11, d3par, END=20 ) 722 !-- Try to read runtime parameters given by the user for this run 723 !-- (namelist "d3par"). The namelist "d3par" can be omitted. In that case 724 !-- default values are used for the parameters. 725 line = ' ' 726 727 REWIND ( 11 ) 728 line = ' ' 729 DO WHILE ( INDEX( line, '&d3par' ) == 0 ) 730 READ ( 11, '(A)', END=20 ) line 731 ENDDO 732 BACKSPACE ( 11 ) 733 734 ! 735 !-- Read namelist 736 READ ( 11, d3par ) 737 721 738 20 CONTINUE 722 739
Note: See TracChangeset
for help on using the changeset viewer.