Changeset 274 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Mar 26, 2009 3:11:21 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r263 r274 102 102 IF ( file_id == 14 .AND. openfile(file_id)%opened_before ) THEN 103 103 message_string = 're-open of unit ' // & 104 ' 104 '14 is not verified. Please check results!' 105 105 CALL message( 'check_open', 'PA0165', 0, 1, 0, 6, 0 ) 106 106 ENDIF … … 108 108 CASE DEFAULT 109 109 WRITE( message_string, * ) 're-opening of file-id ', file_id, & 110 110 ' is not allowed' 111 111 CALL message( 'check_open', 'PA0166', 0, 1, 0, 6, 0 ) 112 112 … … 144 144 !-- File-ids that are used temporarily in other routines 145 145 WRITE( message_string, * ) 'opening file-id ',file_id, & 146 146 ' is not allowed since it is used otherwise' 147 147 CALL message( 'check_open', 'PA0168', 0, 1, 0, 6, 0 ) 148 148 … … 405 405 IF ( .NOT. avs_coor_file_found .OR. & 406 406 .NOT. avs_data_file_found ) THEN 407 message_string= 'no filename for AVS-data-file ' // &408 'found in MRUN-config-file' // &407 message_string= 'no filename for AVS-data-file ' // & 408 'found in MRUN-config-file' // & 409 409 ' &filename in FLD-file set to "unknown"' 410 410 CALL message( 'check_open', 'PA0169', 0, 1, 0, 6, 0 ) … … 725 725 id_set_xy(av) ) 726 726 #else 727 message_string = 'NetCDF: no 64-bit offset allowed on this machine' 727 message_string = 'NetCDF: no 64-bit offset allowed ' // & 728 'on this machine' 728 729 CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 ) 729 730 … … 786 787 id_set_xz(av) ) 787 788 #else 788 message_string = 'NetCDF: no 64-bit offset allowed on this machine' 789 message_string = 'NetCDF: no 64-bit offset allowed ' // & 790 'on this machine' 789 791 CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 ) 790 792 … … 847 849 id_set_yz(av) ) 848 850 #else 849 message_string = 'NetCDF: no 64-bit offset allowed on this machine' 851 message_string = 'NetCDF: no 64-bit offset allowed ' // & 852 'on this machine' 850 853 CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 ) 851 854 … … 902 905 id_set_pr ) 903 906 #else 904 message_string = 'NetCDF: no 64-bit offset allowed on this machine' 907 message_string = 'NetCDF: no 64-bit offset allowed ' // & 908 'on this machine' 905 909 CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 ) 906 910 … … 957 961 id_set_ts ) 958 962 #else 959 message_string = 'NetCDF: no 64-bit offset allowed on this machine' 963 message_string = 'NetCDF: no 64-bit offset allowed ' // & 964 'on this machine' 960 965 CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 ) 961 966 … … 1019 1024 id_set_3d(av) ) 1020 1025 #else 1021 message_string = 'NetCDF: no 64-bit offset allowed on this machine' 1026 message_string = 'NetCDF: no 64-bit offset allowed ' // & 1027 'on this machine' 1022 1028 CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 ) 1023 1029 … … 1076 1082 id_set_sp ) 1077 1083 #else 1078 message_string = 'NetCDF: no 64-bit offset allowed on this machine' 1084 message_string = 'NetCDF: no 64-bit offset allowed ' // & 1085 'on this machine' 1079 1086 CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 ) 1080 1087 … … 1152 1159 id_set_prt ) 1153 1160 #else 1154 message_string = 'NetCDF: no 64-bit offset allowed on this machine' 1161 message_string = 'NetCDF: no 64-bit offset allowed ' // & 1162 'on this machine' 1155 1163 CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 ) 1156 1164 … … 1208 1216 id_set_pts ) 1209 1217 #else 1210 message_string = 'NetCDF: no 64-bit offset allowed on this machine' 1218 message_string = 'NetCDF: no 64-bit offset allowed ' // & 1219 'on this machine' 1211 1220 CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 ) 1212 1221
Note: See TracChangeset
for help on using the changeset viewer.