Changeset 102 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Jul 27, 2007 9:09:17 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r83 r102 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! 6 ! Different filenames are used in case of a coupled simulation, 7 ! coupling_char added to all relevant filenames 7 8 ! 8 9 ! Former revisions: … … 146 147 CASE ( 11 ) 147 148 148 OPEN ( 11, FILE='PARIN', FORM='FORMATTED', STATUS='OLD' ) 149 OPEN ( 11, FILE='PARIN'//coupling_char, FORM='FORMATTED', & 150 STATUS='OLD' ) 149 151 150 152 CASE ( 13 ) 151 153 152 154 IF ( myid_char == '' ) THEN 153 OPEN ( 13, FILE='BININ'// myid_char, FORM='UNFORMATTED', &154 STATUS='OLD' )155 ELSE 156 OPEN ( 13, FILE='BININ /'//myid_char, FORM='UNFORMATTED', &157 STATUS='OLD' )155 OPEN ( 13, FILE='BININ'//coupling_char//myid_char, & 156 FORM='UNFORMATTED', STATUS='OLD' ) 157 ELSE 158 OPEN ( 13, FILE='BININ'//coupling_char//'/'//myid_char, & 159 FORM='UNFORMATTED', STATUS='OLD' ) 158 160 ENDIF 159 161 … … 161 163 162 164 IF ( myid_char == '' ) THEN 163 OPEN ( 14, FILE='BINOUT'// myid_char, FORM='UNFORMATTED', &164 POSITION='APPEND' )165 OPEN ( 14, FILE='BINOUT'//coupling_char//myid_char, & 166 FORM='UNFORMATTED', POSITION='APPEND' ) 165 167 ELSE 166 168 IF ( myid == 0 .AND. .NOT. openfile(file_id)%opened_before ) THEN 167 CALL local_system( 'mkdir BINOUT' )169 CALL local_system( 'mkdir BINOUT' // coupling_char ) 168 170 ENDIF 169 171 #if defined( __parallel ) … … 173 175 CALL MPI_BARRIER( comm2d, ierr ) 174 176 #endif 175 OPEN ( 14, FILE='BINOUT /'//myid_char_14, FORM='UNFORMATTED', &176 POSITION='APPEND' )177 OPEN ( 14, FILE='BINOUT'//coupling_char//'/'//myid_char_14, & 178 FORM='UNFORMATTED', POSITION='APPEND' ) 177 179 ENDIF 178 180 179 181 CASE ( 15 ) 180 182 181 OPEN ( 15, FILE='RUN_CONTROL' , FORM='FORMATTED' )183 OPEN ( 15, FILE='RUN_CONTROL'//coupling_char, FORM='FORMATTED' ) 182 184 183 185 CASE ( 16 ) 184 186 185 OPEN ( 16, FILE='LIST_PROFIL' , FORM='FORMATTED' )187 OPEN ( 16, FILE='LIST_PROFIL'//coupling_char, FORM='FORMATTED' ) 186 188 187 189 CASE ( 17 ) 188 190 189 OPEN ( 17, FILE='LIST_PROFIL_1D' , FORM='FORMATTED' )191 OPEN ( 17, FILE='LIST_PROFIL_1D'//coupling_char, FORM='FORMATTED' ) 190 192 191 193 CASE ( 18 ) 192 194 193 OPEN ( 18, FILE='CPU_MEASURES' , FORM='FORMATTED' )195 OPEN ( 18, FILE='CPU_MEASURES'//coupling_char, FORM='FORMATTED' ) 194 196 195 197 CASE ( 19 ) 196 198 197 OPEN ( 19, FILE='HEADER' , FORM='FORMATTED' )199 OPEN ( 19, FILE='HEADER'//coupling_char, FORM='FORMATTED' ) 198 200 199 201 CASE ( 20 ) 200 202 201 203 IF ( myid == 0 .AND. .NOT. openfile(file_id)%opened_before ) THEN 202 CALL local_system( 'mkdir DATA_LOG' )204 CALL local_system( 'mkdir DATA_LOG' // coupling_char ) 203 205 ENDIF 204 206 IF ( myid_char == '' ) THEN 205 OPEN ( 20, FILE='DATA_LOG /_0000', FORM='UNFORMATTED', &206 POSITION='APPEND' )207 OPEN ( 20, FILE='DATA_LOG'//coupling_char//'/_0000', & 208 FORM='UNFORMATTED', POSITION='APPEND' ) 207 209 ELSE 208 210 #if defined( __parallel ) … … 212 214 CALL MPI_BARRIER( comm2d, ierr ) 213 215 #endif 214 OPEN ( 20, FILE='DATA_LOG /'//myid_char, FORM='UNFORMATTED', &215 POSITION='APPEND' )216 OPEN ( 20, FILE='DATA_LOG'//coupling_char//'/'//myid_char, & 217 FORM='UNFORMATTED', POSITION='APPEND' ) 216 218 ENDIF 217 219 … … 219 221 220 222 IF ( data_output_2d_on_each_pe ) THEN 221 OPEN ( 21, FILE='PLOT2D_XY'// myid_char, FORM='UNFORMATTED', &222 POSITION='APPEND' )223 ELSE 224 OPEN ( 21, FILE='PLOT2D_XY' , FORM='UNFORMATTED', &225 POSITION='APPEND' )223 OPEN ( 21, FILE='PLOT2D_XY'//coupling_char//myid_char, & 224 FORM='UNFORMATTED', POSITION='APPEND' ) 225 ELSE 226 OPEN ( 21, FILE='PLOT2D_XY'//coupling_char, & 227 FORM='UNFORMATTED', POSITION='APPEND' ) 226 228 ENDIF 227 229 … … 250 252 !-- Create output file for local parameters 251 253 IF ( iso2d_output ) THEN 252 OPEN ( 27, FILE='PLOT2D_XY_LOCAL' , FORM='FORMATTED', &253 DELIM='APOSTROPHE' )254 OPEN ( 27, FILE='PLOT2D_XY_LOCAL'//coupling_char, & 255 FORM='FORMATTED', DELIM='APOSTROPHE' ) 254 256 openfile(27)%opened = .TRUE. 255 257 ENDIF … … 260 262 261 263 IF ( data_output_2d_on_each_pe ) THEN 262 OPEN ( 22, FILE='PLOT2D_XZ'// myid_char, FORM='UNFORMATTED', &263 POSITION='APPEND' )264 ELSE 265 OPEN ( 22, FILE='PLOT2D_XZ' , FORM='UNFORMATTED', &264 OPEN ( 22, FILE='PLOT2D_XZ'//coupling_char//myid_char, & 265 FORM='UNFORMATTED', POSITION='APPEND' ) 266 ELSE 267 OPEN ( 22, FILE='PLOT2D_XZ'//coupling_char, FORM='UNFORMATTED', & 266 268 POSITION='APPEND' ) 267 269 ENDIF … … 289 291 ! 290 292 !-- Create output file for local parameters 291 OPEN ( 28, FILE='PLOT2D_XZ_LOCAL' , FORM='FORMATTED', &292 DELIM='APOSTROPHE' )293 OPEN ( 28, FILE='PLOT2D_XZ_LOCAL'//coupling_char, & 294 FORM='FORMATTED', DELIM='APOSTROPHE' ) 293 295 openfile(28)%opened = .TRUE. 294 296 … … 298 300 299 301 IF ( data_output_2d_on_each_pe ) THEN 300 OPEN ( 23, FILE='PLOT2D_YZ'// myid_char, FORM='UNFORMATTED', &301 POSITION='APPEND' )302 ELSE 303 OPEN ( 23, FILE='PLOT2D_YZ' , FORM='UNFORMATTED', &302 OPEN ( 23, FILE='PLOT2D_YZ'//coupling_char//myid_char, & 303 FORM='UNFORMATTED', POSITION='APPEND' ) 304 ELSE 305 OPEN ( 23, FILE='PLOT2D_YZ'//coupling_char, FORM='UNFORMATTED', & 304 306 POSITION='APPEND' ) 305 307 ENDIF … … 327 329 ! 328 330 !-- Create output file for local parameters 329 OPEN ( 29, FILE='PLOT2D_YZ_LOCAL' , FORM='FORMATTED', &330 DELIM='APOSTROPHE' )331 OPEN ( 29, FILE='PLOT2D_YZ_LOCAL'//coupling_char, & 332 FORM='FORMATTED', DELIM='APOSTROPHE' ) 331 333 openfile(29)%opened = .TRUE. 332 334 … … 335 337 CASE ( 30 ) 336 338 337 OPEN ( 30, FILE='PLOT3D_DATA'//myid_char, FORM='UNFORMATTED' ) 339 OPEN ( 30, FILE='PLOT3D_DATA'//coupling_char//myid_char, & 340 FORM='UNFORMATTED' ) 338 341 ! 339 342 !-- Write coordinate file for AVS … … 508 511 WRITE ( suffix, '(''_'',I1)' ) file_id - 40 509 512 ENDIF 510 OPEN ( file_id, FILE='PLOT1D_DATA'//TRIM( suffix ), FORM='FORMATTED' ) 513 OPEN ( file_id, FILE='PLOT1D_DATA'//coupling_char//TRIM( suffix ), & 514 FORM='FORMATTED' ) 511 515 ! 512 516 !-- Write contents comments at the top of the file … … 521 525 WRITE ( suffix, '(''_'',I1)' ) file_id - 50 522 526 ENDIF 523 OPEN ( file_id, FILE='PLOTTS_DATA'// TRIM( suffix ), FORM='FORMATTED',&524 RECL=496 )527 OPEN ( file_id, FILE='PLOTTS_DATA'//coupling_char//TRIM( suffix ), & 528 FORM='FORMATTED', RECL=496 ) 525 529 ! 526 530 !-- Write PROFIL parameter file for output of time series … … 539 543 ! 540 544 !-- Write RAHMEN parameter 541 OPEN ( 90, FILE='PLOTTS_PAR'// TRIM( suffix ), FORM='FORMATTED', &542 DELIM='APOSTROPHE' )545 OPEN ( 90, FILE='PLOTTS_PAR'//coupling_char//TRIM( suffix ), & 546 FORM='FORMATTED', DELIM='APOSTROPHE' ) 543 547 WRITE ( 90, RAHMEN ) 544 548 ! … … 575 579 576 580 IF ( myid_char == '' ) THEN 577 OPEN ( 80, FILE='PARTICLE_INFOS'// myid_char, FORM='FORMATTED', &578 POSITION='APPEND' )581 OPEN ( 80, FILE='PARTICLE_INFOS'//coupling_char//myid_char, & 582 FORM='FORMATTED', POSITION='APPEND' ) 579 583 ELSE 580 584 IF ( myid == 0 .AND. .NOT. openfile(80)%opened_before ) THEN 581 CALL local_system( 'mkdir PARTICLE_INFOS' )585 CALL local_system( 'mkdir PARTICLE_INFOS' // coupling_char ) 582 586 ENDIF 583 587 #if defined( __parallel ) … … 592 596 ENDIF 593 597 #endif 594 OPEN ( 80, FILE='PARTICLE_INFOS /'//myid_char, FORM='FORMATTED', &595 POSITION='APPEND' )598 OPEN ( 80, FILE='PARTICLE_INFOS'//coupling_char//'/'//myid_char, & 599 FORM='FORMATTED', POSITION='APPEND' ) 596 600 ENDIF 597 601 … … 602 606 CASE ( 81 ) 603 607 604 OPEN ( 81, FILE='PLOTSP_X_PAR' , FORM='FORMATTED', &608 OPEN ( 81, FILE='PLOTSP_X_PAR'//coupling_char, FORM='FORMATTED', & 605 609 DELIM='APOSTROPHE', RECL=1500, POSITION='APPEND' ) 606 610 607 611 CASE ( 82 ) 608 612 609 OPEN ( 82, FILE='PLOTSP_X_DATA' , FORM='FORMATTED', &613 OPEN ( 82, FILE='PLOTSP_X_DATA'//coupling_char, FORM='FORMATTED', & 610 614 POSITION = 'APPEND' ) 611 615 612 616 CASE ( 83 ) 613 617 614 OPEN ( 83, FILE='PLOTSP_Y_PAR' , FORM='FORMATTED', &618 OPEN ( 83, FILE='PLOTSP_Y_PAR'//coupling_char, FORM='FORMATTED', & 615 619 DELIM='APOSTROPHE', RECL=1500, POSITION='APPEND' ) 616 620 617 621 CASE ( 84 ) 618 622 619 OPEN ( 84, FILE='PLOTSP_Y_DATA' , FORM='FORMATTED', &623 OPEN ( 84, FILE='PLOTSP_Y_DATA'//coupling_char, FORM='FORMATTED', & 620 624 POSITION='APPEND' ) 621 625 … … 623 627 624 628 IF ( myid_char == '' ) THEN 625 OPEN ( 85, FILE='PARTICLE_DATA'// myid_char, FORM='UNFORMATTED', &626 POSITION='APPEND' )629 OPEN ( 85, FILE='PARTICLE_DATA'//coupling_char//myid_char, & 630 FORM='UNFORMATTED', POSITION='APPEND' ) 627 631 ELSE 628 632 IF ( myid == 0 .AND. .NOT. openfile(85)%opened_before ) THEN 629 CALL local_system( 'mkdir PARTICLE_DATA' )633 CALL local_system( 'mkdir PARTICLE_DATA' // coupling_char ) 630 634 ENDIF 631 635 #if defined( __parallel ) … … 635 639 CALL MPI_BARRIER( comm2d, ierr ) 636 640 #endif 637 OPEN ( 85, FILE='PARTICLE_DATA /'//myid_char, FORM='UNFORMATTED', &638 POSITION='APPEND' )641 OPEN ( 85, FILE='PARTICLE_DATA'//coupling_char//'/'//myid_char, & 642 FORM='UNFORMATTED', POSITION='APPEND' ) 639 643 ENDIF 640 644 … … 656 660 !-- Set filename depending on unit number 657 661 IF ( file_id == 101 ) THEN 658 filename = 'DATA_2D_XY_NETCDF' 662 filename = 'DATA_2D_XY_NETCDF' // coupling_char 659 663 av = 0 660 664 ELSE 661 filename = 'DATA_2D_XY_AV_NETCDF' 665 filename = 'DATA_2D_XY_AV_NETCDF' // coupling_char 662 666 av = 1 663 667 ENDIF … … 716 720 !-- Set filename depending on unit number 717 721 IF ( file_id == 102 ) THEN 718 filename = 'DATA_2D_XZ_NETCDF' 722 filename = 'DATA_2D_XZ_NETCDF' // coupling_char 719 723 av = 0 720 724 ELSE 721 filename = 'DATA_2D_XZ_AV_NETCDF' 725 filename = 'DATA_2D_XZ_AV_NETCDF' // coupling_char 722 726 av = 1 723 727 ENDIF … … 776 780 !-- Set filename depending on unit number 777 781 IF ( file_id == 103 ) THEN 778 filename = 'DATA_2D_YZ_NETCDF' 782 filename = 'DATA_2D_YZ_NETCDF' // coupling_char 779 783 av = 0 780 784 ELSE 781 filename = 'DATA_2D_YZ_AV_NETCDF' 785 filename = 'DATA_2D_YZ_AV_NETCDF' // coupling_char 782 786 av = 1 783 787 ENDIF … … 834 838 CASE ( 104 ) 835 839 ! 840 !-- Set filename 841 filename = 'DATA_1D_PR_NETCDF' // coupling_char 842 843 ! 836 844 !-- Inquire, if there is a NetCDF file from a previuos run. This should 837 845 !-- be opened for extension, if its variables match the actual run. 838 INQUIRE( FILE= 'DATA_1D_PR_NETCDF', EXIST=netcdf_extend )846 INQUIRE( FILE=filename, EXIST=netcdf_extend ) 839 847 840 848 IF ( netcdf_extend ) THEN 841 849 ! 842 850 !-- Open an existing NetCDF file for output 843 nc_stat = NF90_OPEN( 'DATA_1D_PR_NETCDF', NF90_WRITE, id_set_pr )851 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_pr ) 844 852 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 29 ) 845 853 ! … … 854 862 nc_stat = NF90_CLOSE( id_set_pr ) 855 863 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 30 ) 856 CALL local_system( 'rm DATA_1D_PR_NETCDF')864 CALL local_system( 'rm ' // TRIM( filename ) ) 857 865 ENDIF 858 866 … … 864 872 IF ( netcdf_64bit ) THEN 865 873 #if defined( __netcdf_64bit ) 866 nc_stat = NF90_CREATE( 'DATA_1D_PR_NETCDF',&874 nc_stat = NF90_CREATE( filename, & 867 875 OR( NF90_NOCLOBBER, NF90_64BIT_OFFSET ),& 868 876 id_set_pr ) … … 870 878 IF ( myid == 0 ) PRINT*, '+++ WARNING: NetCDF: no 64-bit ', & 871 879 'offset allowed on this machine' 872 nc_stat = NF90_CREATE( 'DATA_1D_PR_NETCDF', NF90_NOCLOBBER, & 873 id_set_pr ) 880 nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_pr ) 874 881 #endif 875 882 ELSE 876 nc_stat = NF90_CREATE( 'DATA_1D_PR_NETCDF', NF90_NOCLOBBER, & 877 id_set_pr ) 883 nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_pr ) 878 884 ENDIF 879 885 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 31 ) … … 886 892 CASE ( 105 ) 887 893 ! 894 !-- Set filename 895 filename = 'DATA_1D_TS_NETCDF' // coupling_char 896 897 ! 888 898 !-- Inquire, if there is a NetCDF file from a previuos run. This should 889 899 !-- be opened for extension, if its variables match the actual run. 890 INQUIRE( FILE= 'DATA_1D_TS_NETCDF', EXIST=netcdf_extend )900 INQUIRE( FILE=filename, EXIST=netcdf_extend ) 891 901 892 902 IF ( netcdf_extend ) THEN 893 903 ! 894 904 !-- Open an existing NetCDF file for output 895 nc_stat = NF90_OPEN( 'DATA_1D_TS_NETCDF', NF90_WRITE, id_set_ts )905 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_ts ) 896 906 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 32 ) 897 907 ! … … 906 916 nc_stat = NF90_CLOSE( id_set_ts ) 907 917 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 33 ) 908 CALL local_system( 'rm DATA_1D_TS_NETCDF')918 CALL local_system( 'rm ' // TRIM( filename ) ) 909 919 ENDIF 910 920 … … 916 926 IF ( netcdf_64bit ) THEN 917 927 #if defined( __netcdf_64bit ) 918 nc_stat = NF90_CREATE( 'DATA_1D_TS_NETCDF',&928 nc_stat = NF90_CREATE( filename, & 919 929 OR( NF90_NOCLOBBER, NF90_64BIT_OFFSET ),& 920 930 id_set_ts ) … … 922 932 IF ( myid == 0 ) PRINT*, '+++ WARNING: NetCDF: no 64-bit ', & 923 933 'offset allowed on this machine' 924 nc_stat = NF90_CREATE( 'DATA_1D_TS_NETCDF', NF90_NOCLOBBER, & 925 id_set_ts ) 934 nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_ts ) 926 935 #endif 927 936 ELSE 928 nc_stat = NF90_CREATE( 'DATA_1D_TS_NETCDF', NF90_NOCLOBBER, & 929 id_set_ts ) 937 nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_ts ) 930 938 ENDIF 931 939 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 34 ) … … 941 949 !-- Set filename depending on unit number 942 950 IF ( file_id == 106 ) THEN 943 filename = 'DATA_3D_NETCDF' 951 filename = 'DATA_3D_NETCDF' // coupling_char 944 952 av = 0 945 953 ELSE 946 filename = 'DATA_3D_AV_NETCDF' 954 filename = 'DATA_3D_AV_NETCDF' // coupling_char 947 955 av = 1 948 956 ENDIF … … 1000 1008 CASE ( 107 ) 1001 1009 ! 1010 !-- Set filename 1011 filename = 'DATA_1D_SP_NETCDF' // coupling_char 1012 1013 ! 1002 1014 !-- Inquire, if there is a NetCDF file from a previuos run. This should 1003 1015 !-- be opened for extension, if its variables match the actual run. 1004 INQUIRE( FILE= 'DATA_1D_SP_NETCDF', EXIST=netcdf_extend )1016 INQUIRE( FILE=filename, EXIST=netcdf_extend ) 1005 1017 1006 1018 IF ( netcdf_extend ) THEN 1007 1019 ! 1008 1020 !-- Open an existing NetCDF file for output 1009 nc_stat = NF90_OPEN( 'DATA_1D_SP_NETCDF', NF90_WRITE, id_set_sp )1021 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_sp ) 1010 1022 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 38 ) 1011 1023 ! … … 1020 1032 nc_stat = NF90_CLOSE( id_set_sp ) 1021 1033 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 39 ) 1022 CALL local_system( 'rm DATA_1D_SP_NETCDF')1034 CALL local_system( 'rm ' // TRIM( filename ) ) 1023 1035 ENDIF 1024 1036 … … 1030 1042 IF ( netcdf_64bit ) THEN 1031 1043 #if defined( __netcdf_64bit ) 1032 nc_stat = NF90_CREATE( 'DATA_1D_SP_NETCDF',&1044 nc_stat = NF90_CREATE( filename, & 1033 1045 OR( NF90_NOCLOBBER, NF90_64BIT_OFFSET ),& 1034 1046 id_set_sp ) … … 1036 1048 IF ( myid == 0 ) PRINT*, '+++ WARNING: NetCDF: no 64-bit ', & 1037 1049 'offset allowed on this machine' 1038 nc_stat = NF90_CREATE( 'DATA_1D_SP_NETCDF', NF90_NOCLOBBER, & 1039 id_set_sp ) 1050 nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_sp ) 1040 1051 #endif 1041 1052 ELSE 1042 nc_stat = NF90_CREATE( 'DATA_1D_SP_NETCDF', NF90_NOCLOBBER, & 1043 id_set_sp ) 1053 nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_sp ) 1044 1054 ENDIF 1045 1055 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 40 ) … … 1054 1064 1055 1065 IF ( myid_char == '' ) THEN 1056 filename = 'DATA_PRT_NETCDF' 1057 ELSE 1058 filename = 'DATA_PRT_NETCDF /' // myid_char1066 filename = 'DATA_PRT_NETCDF' // coupling_char 1067 ELSE 1068 filename = 'DATA_PRT_NETCDF' // coupling_char // '/' // myid_char 1059 1069 ENDIF 1060 1070 ! … … 1091 1101 IF ( myid == 0 .AND. .NOT. openfile(file_id)%opened_before ) & 1092 1102 THEN ! needs modification in case of non-extendable sets 1093 CALL local_system( 'mkdir DATA_PRT_NETCDF/' ) 1103 CALL local_system( 'mkdir DATA_PRT_NETCDF' // & 1104 coupling_char // '/' ) 1094 1105 ENDIF 1095 1106 #if defined( __parallel ) … … 1126 1137 CASE ( 109 ) 1127 1138 ! 1139 !-- Set filename 1140 filename = 'DATA_1D_PTS_NETCDF' // coupling_char 1141 1142 ! 1128 1143 !-- Inquire, if there is a NetCDF file from a previuos run. This should 1129 1144 !-- be opened for extension, if its variables match the actual run. 1130 INQUIRE( FILE= 'DATA_1D_PTS_NETCDF', EXIST=netcdf_extend )1145 INQUIRE( FILE=filename, EXIST=netcdf_extend ) 1131 1146 1132 1147 IF ( netcdf_extend ) THEN 1133 1148 ! 1134 1149 !-- Open an existing NetCDF file for output 1135 nc_stat = NF90_OPEN( 'DATA_1D_PTS_NETCDF', NF90_WRITE, id_set_pts )1150 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_pts ) 1136 1151 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 393 ) 1137 1152 ! … … 1146 1161 nc_stat = NF90_CLOSE( id_set_pts ) 1147 1162 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 394 ) 1148 CALL local_system( 'rm DATA_1D_PTS_NETCDF')1163 CALL local_system( 'rm ' // TRIM( filename ) ) 1149 1164 ENDIF 1150 1165 … … 1156 1171 IF ( netcdf_64bit ) THEN 1157 1172 #if defined( __netcdf_64bit ) 1158 nc_stat = NF90_CREATE( 'DATA_1D_PTS_NETCDF',&1173 nc_stat = NF90_CREATE( filename, & 1159 1174 OR( NF90_NOCLOBBER, NF90_64BIT_OFFSET ),& 1160 1175 id_set_pts ) … … 1162 1177 IF ( myid == 0 ) PRINT*, '+++ WARNING: NetCDF: no 64-bit ', & 1163 1178 'offset allowed on this machine' 1164 nc_stat = NF90_CREATE( 'DATA_1D_PTS_NETCDF', NF90_NOCLOBBER, & 1165 id_set_pts ) 1179 nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_pts ) 1166 1180 #endif 1167 1181 ELSE 1168 nc_stat = NF90_CREATE( 'DATA_1D_PTS_NETCDF', NF90_NOCLOBBER, & 1169 id_set_pts ) 1182 nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_pts ) 1170 1183 ENDIF 1171 1184 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 395 )
Note: See TracChangeset
for help on using the changeset viewer.