Changeset 1779 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Mar 3, 2016 8:01:28 AM (8 years ago)
- File:
-
- 1 edited
-
palm/trunk/SOURCE/check_open.f90 (modified) (25 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r1746 r1779 19 19 ! Current revisions: 20 20 ! ----------------- 21 ! 21 ! coupling_char is trimmed at every place it occurs, because it can have 22 ! different length now 22 23 ! 23 24 ! Former revisions: … … 274 275 !-- check_namelist_files! 275 276 IF ( check_restart == 2 ) THEN 276 OPEN ( 11, FILE='PARINF'// coupling_char, FORM='FORMATTED',&277 STATUS='OLD' )278 ELSE 279 OPEN ( 11, FILE='PARIN'// coupling_char, FORM='FORMATTED',&277 OPEN ( 11, FILE='PARINF'//TRIM( coupling_char ), & 278 FORM='FORMATTED', STATUS='OLD' ) 279 ELSE 280 OPEN ( 11, FILE='PARIN'//TRIM( coupling_char ), FORM='FORMATTED', & 280 281 STATUS='OLD' ) 281 282 END IF 282 283 #else 283 284 284 OPEN ( 11, FILE='PARIN'// coupling_char, FORM='FORMATTED',&285 OPEN ( 11, FILE='PARIN'//TRIM( coupling_char ), FORM='FORMATTED', & 285 286 STATUS='OLD' ) 286 287 #endif … … 289 290 290 291 IF ( myid_char == '' ) THEN 291 OPEN ( 13, FILE='BININ'// coupling_char//myid_char,&292 OPEN ( 13, FILE='BININ'//TRIM( coupling_char )//myid_char, & 292 293 FORM='UNFORMATTED', STATUS='OLD' ) 293 294 ELSE … … 296 297 !-- only this file contains the global variables 297 298 IF ( .NOT. openfile(file_id)%opened_before ) THEN 298 OPEN ( 13, FILE='BININ'//TRIM( coupling_char )//'/_000000', 299 OPEN ( 13, FILE='BININ'//TRIM( coupling_char )//'/_000000', & 299 300 FORM='UNFORMATTED', STATUS='OLD' ) 300 301 ELSE 301 OPEN ( 13, FILE='BININ'//TRIM( coupling_char )//'/'// myid_char,&302 FORM='UNFORMATTED', STATUS='OLD' )302 OPEN ( 13, FILE='BININ'//TRIM( coupling_char )//'/'// & 303 myid_char, FORM='UNFORMATTED', STATUS='OLD' ) 303 304 ENDIF 304 305 ENDIF … … 307 308 308 309 IF ( myid_char == '' ) THEN 309 OPEN ( 14, FILE='BINOUT'// coupling_char//myid_char,&310 OPEN ( 14, FILE='BINOUT'//TRIM( coupling_char )//myid_char, & 310 311 FORM='UNFORMATTED', POSITION='APPEND' ) 311 312 ELSE 312 313 IF ( myid == 0 .AND. .NOT. openfile(file_id)%opened_before ) THEN 313 CALL local_system( 'mkdir BINOUT' // coupling_char)314 CALL local_system( 'mkdir BINOUT' // TRIM( coupling_char ) ) 314 315 ENDIF 315 316 #if defined( __parallel ) && ! defined ( __check ) … … 325 326 CASE ( 15 ) 326 327 327 OPEN ( 15, FILE='RUN_CONTROL'//coupling_char, FORM='FORMATTED' ) 328 OPEN ( 15, FILE='RUN_CONTROL'//TRIM( coupling_char ), & 329 FORM='FORMATTED' ) 328 330 329 331 CASE ( 16 ) 330 332 331 OPEN ( 16, FILE='LIST_PROFIL'//coupling_char, FORM='FORMATTED' ) 333 OPEN ( 16, FILE='LIST_PROFIL'//TRIM( coupling_char ), & 334 FORM='FORMATTED' ) 332 335 333 336 CASE ( 17 ) 334 337 335 OPEN ( 17, FILE='LIST_PROFIL_1D'//coupling_char, FORM='FORMATTED' ) 338 OPEN ( 17, FILE='LIST_PROFIL_1D'//TRIM( coupling_char ), & 339 FORM='FORMATTED' ) 336 340 337 341 CASE ( 18 ) 338 342 339 OPEN ( 18, FILE='CPU_MEASURES'//coupling_char, FORM='FORMATTED' ) 343 OPEN ( 18, FILE='CPU_MEASURES'//TRIM( coupling_char ), & 344 FORM='FORMATTED' ) 340 345 341 346 CASE ( 19 ) 342 347 343 OPEN ( 19, FILE='HEADER'// coupling_char, FORM='FORMATTED' )348 OPEN ( 19, FILE='HEADER'//TRIM( coupling_char ), FORM='FORMATTED' ) 344 349 345 350 CASE ( 20 ) 346 351 347 352 IF ( myid == 0 .AND. .NOT. openfile(file_id)%opened_before ) THEN 348 CALL local_system( 'mkdir DATA_LOG' // coupling_char)353 CALL local_system( 'mkdir DATA_LOG' // TRIM( coupling_char ) ) 349 354 ENDIF 350 355 IF ( myid_char == '' ) THEN 351 OPEN ( 20, FILE='DATA_LOG'//TRIM( coupling_char )//'/_000000', 356 OPEN ( 20, FILE='DATA_LOG'//TRIM( coupling_char )//'/_000000', & 352 357 FORM='UNFORMATTED', POSITION='APPEND' ) 353 358 ELSE … … 358 363 CALL MPI_BARRIER( comm2d, ierr ) 359 364 #endif 360 OPEN ( 20, FILE='DATA_LOG'//TRIM( coupling_char )//'/'// myid_char,&361 FORM='UNFORMATTED', POSITION='APPEND' )365 OPEN ( 20, FILE='DATA_LOG'//TRIM( coupling_char )//'/'// & 366 myid_char, FORM='UNFORMATTED', POSITION='APPEND' ) 362 367 ENDIF 363 368 … … 368 373 FORM='UNFORMATTED', POSITION='APPEND' ) 369 374 ELSE 370 OPEN ( 21, FILE='PLOT2D_XY'// coupling_char, &375 OPEN ( 21, FILE='PLOT2D_XY'//TRIM( coupling_char ), & 371 376 FORM='UNFORMATTED', POSITION='APPEND' ) 372 377 ENDIF … … 401 406 FORM='UNFORMATTED', POSITION='APPEND' ) 402 407 ELSE 403 OPEN ( 22, FILE='PLOT2D_XZ'// coupling_char, FORM='UNFORMATTED',&404 POSITION='APPEND' )408 OPEN ( 22, FILE='PLOT2D_XZ'//TRIM( coupling_char ), & 409 FORM='UNFORMATTED', POSITION='APPEND' ) 405 410 ENDIF 406 411 … … 434 439 FORM='UNFORMATTED', POSITION='APPEND' ) 435 440 ELSE 436 OPEN ( 23, FILE='PLOT2D_YZ'// coupling_char, FORM='UNFORMATTED',&437 POSITION='APPEND' )441 OPEN ( 23, FILE='PLOT2D_YZ'//TRIM( coupling_char ), & 442 FORM='UNFORMATTED', POSITION='APPEND' ) 438 443 ENDIF 439 444 … … 541 546 ELSE 542 547 IF ( myid == 0 .AND. .NOT. openfile(80)%opened_before ) THEN 543 CALL local_system( 'mkdir PARTICLE_INFOS' // coupling_char ) 548 CALL local_system( 'mkdir PARTICLE_INFOS' // & 549 TRIM( coupling_char ) ) 544 550 ENDIF 545 551 #if defined( __parallel ) && ! defined ( __check ) … … 565 571 CASE ( 81 ) 566 572 567 OPEN ( 81, FILE='PLOTSP_X_PAR'//coupling_char, FORM='FORMATTED', & 568 DELIM='APOSTROPHE', RECL=1500, POSITION='APPEND' ) 573 OPEN ( 81, FILE='PLOTSP_X_PAR'//TRIM( coupling_char ), & 574 FORM='FORMATTED', DELIM='APOSTROPHE', RECL=1500, & 575 POSITION='APPEND' ) 569 576 570 577 CASE ( 82 ) 571 578 572 OPEN ( 82, FILE='PLOTSP_X_DATA'// coupling_char, FORM='FORMATTED',&573 POSITION = 'APPEND' )579 OPEN ( 82, FILE='PLOTSP_X_DATA'//TRIM( coupling_char ), & 580 FORM='FORMATTED', POSITION = 'APPEND' ) 574 581 575 582 CASE ( 83 ) 576 583 577 OPEN ( 83, FILE='PLOTSP_Y_PAR'//coupling_char, FORM='FORMATTED', & 578 DELIM='APOSTROPHE', RECL=1500, POSITION='APPEND' ) 584 OPEN ( 83, FILE='PLOTSP_Y_PAR'//TRIM( coupling_char ), & 585 FORM='FORMATTED', DELIM='APOSTROPHE', RECL=1500, & 586 POSITION='APPEND' ) 579 587 580 588 CASE ( 84 ) 581 589 582 OPEN ( 84, FILE='PLOTSP_Y_DATA'// coupling_char, FORM='FORMATTED',&583 POSITION='APPEND' )590 OPEN ( 84, FILE='PLOTSP_Y_DATA'//TRIM( coupling_char ), & 591 FORM='FORMATTED', POSITION='APPEND' ) 584 592 585 593 CASE ( 85 ) … … 590 598 ELSE 591 599 IF ( myid == 0 .AND. .NOT. openfile(85)%opened_before ) THEN 592 CALL local_system( 'mkdir PARTICLE_DATA' // coupling_char ) 600 CALL local_system( 'mkdir PARTICLE_DATA' // & 601 TRIM( coupling_char ) ) 593 602 ENDIF 594 603 #if defined( __parallel ) && ! defined ( __check ) … … 622 631 !-- Set filename depending on unit number 623 632 IF ( file_id == 101 ) THEN 624 filename = 'DATA_2D_XY_NETCDF' // coupling_char633 filename = 'DATA_2D_XY_NETCDF' // TRIM( coupling_char ) 625 634 av = 0 626 635 ELSE 627 filename = 'DATA_2D_XY_AV_NETCDF' // coupling_char636 filename = 'DATA_2D_XY_AV_NETCDF' // TRIM( coupling_char ) 628 637 av = 1 629 638 ENDIF … … 684 693 !-- Set filename depending on unit number 685 694 IF ( file_id == 102 ) THEN 686 filename = 'DATA_2D_XZ_NETCDF' // coupling_char695 filename = 'DATA_2D_XZ_NETCDF' // TRIM( coupling_char ) 687 696 av = 0 688 697 ELSE 689 filename = 'DATA_2D_XZ_AV_NETCDF' // coupling_char698 filename = 'DATA_2D_XZ_AV_NETCDF' // TRIM( coupling_char ) 690 699 av = 1 691 700 ENDIF … … 746 755 !-- Set filename depending on unit number 747 756 IF ( file_id == 103 ) THEN 748 filename = 'DATA_2D_YZ_NETCDF' // coupling_char757 filename = 'DATA_2D_YZ_NETCDF' // TRIM( coupling_char ) 749 758 av = 0 750 759 ELSE 751 filename = 'DATA_2D_YZ_AV_NETCDF' // coupling_char760 filename = 'DATA_2D_YZ_AV_NETCDF' // TRIM( coupling_char ) 752 761 av = 1 753 762 ENDIF … … 807 816 ! 808 817 !-- Set filename 809 filename = 'DATA_1D_PR_NETCDF' // coupling_char818 filename = 'DATA_1D_PR_NETCDF' // TRIM( coupling_char ) 810 819 811 820 ! … … 847 856 ! 848 857 !-- Set filename 849 filename = 'DATA_1D_TS_NETCDF' // coupling_char858 filename = 'DATA_1D_TS_NETCDF' // TRIM( coupling_char ) 850 859 851 860 ! … … 889 898 !-- Set filename depending on unit number 890 899 IF ( file_id == 106 ) THEN 891 filename = 'DATA_3D_NETCDF' // coupling_char900 filename = 'DATA_3D_NETCDF' // TRIM( coupling_char ) 892 901 av = 0 893 902 ELSE 894 filename = 'DATA_3D_AV_NETCDF' // coupling_char903 filename = 'DATA_3D_AV_NETCDF' // TRIM( coupling_char ) 895 904 av = 1 896 905 ENDIF … … 952 961 ! 953 962 !-- Set filename 954 filename = 'DATA_1D_SP_NETCDF' // coupling_char963 filename = 'DATA_1D_SP_NETCDF' // TRIM( coupling_char ) 955 964 956 965 ! … … 994 1003 995 1004 IF ( myid_char == '' ) THEN 996 filename = 'DATA_PRT_NETCDF' // coupling_char1005 filename = 'DATA_PRT_NETCDF' // TRIM( coupling_char ) 997 1006 ELSE 998 1007 filename = 'DATA_PRT_NETCDF' // TRIM( coupling_char ) // '/' // & … … 1055 1064 ! 1056 1065 !-- Set filename 1057 filename = 'DATA_1D_PTS_NETCDF' // coupling_char1066 filename = 'DATA_1D_PTS_NETCDF' // TRIM( coupling_char ) 1058 1067 1059 1068 ! … … 1097 1106 CASE ( 117 ) 1098 1107 1099 OPEN ( 117, FILE='PROGRESS'//coupling_char, STATUS='REPLACE', FORM='FORMATTED' ) 1108 OPEN ( 117, FILE='PROGRESS'//TRIM( coupling_char ), & 1109 STATUS='REPLACE', FORM='FORMATTED' ) 1100 1110 1101 1111 … … 1106 1116 mid = file_id - 200 1107 1117 WRITE ( mask_char,'(I2.2)') mid 1108 filename = 'DATA_MASK_' // mask_char // '_NETCDF' // coupling_char 1118 filename = 'DATA_MASK_' // mask_char // '_NETCDF' // & 1119 TRIM( coupling_char ) 1109 1120 av = 0 1110 1121 ELSE … … 1112 1123 WRITE ( mask_char,'(I2.2)') mid 1113 1124 filename = 'DATA_MASK_' // mask_char // '_AV_NETCDF' // & 1114 coupling_char1125 TRIM( coupling_char ) 1115 1126 av = 1 1116 1127 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.
