Changeset 807 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Jan 25, 2012 11:53:51 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r766 r807 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! New cpp directive "__check" implemented which is used by check_namelist_files 7 ! 7 8 ! 8 9 ! Former revisions: … … 116 117 IF ( openfile(file_id)%opened ) RETURN 117 118 119 #if .NOT. defined ( __check ) 118 120 ! 119 121 !-- Only certain files are allowed to be re-opened … … 138 140 END SELECT 139 141 ENDIF 142 #endif 140 143 141 144 ! … … 189 192 CASE ( 11 ) 190 193 194 #if defined ( __check ) 195 ! 196 !-- In case of a prior parameter file check, the p3d data is stored in 197 !-- PARIN, while the p3df is stored in PARINF. This only applies to 198 !-- check_namelist_files! 199 IF ( check_restart == 2 ) THEN 200 OPEN ( 11, FILE='PARINF'//coupling_char, FORM='FORMATTED', & 201 STATUS='OLD' ) 202 ELSE 203 OPEN ( 11, FILE='PARIN'//coupling_char, FORM='FORMATTED', & 204 STATUS='OLD' ) 205 END IF 206 #else 207 191 208 OPEN ( 11, FILE='PARIN'//coupling_char, FORM='FORMATTED', & 192 209 STATUS='OLD' ) 210 #endif 193 211 194 212 CASE ( 13 ) … … 219 237 CALL local_system( 'mkdir BINOUT' // coupling_char ) 220 238 ENDIF 221 #if defined( __parallel ) 239 #if defined( __parallel ) .AND. .NOT. defined ( __check ) 222 240 ! 223 241 !-- Set a barrier in order to allow that all other processors in the … … 258 276 FORM='UNFORMATTED', POSITION='APPEND' ) 259 277 ELSE 260 #if defined( __parallel ) 278 #if defined( __parallel ) .AND. .NOT. defined ( __check ) 261 279 ! 262 280 !-- Set a barrier in order to allow that all other processors in the … … 639 657 CALL local_system( 'mkdir PARTICLE_INFOS' // coupling_char ) 640 658 ENDIF 641 #if defined( __parallel ) 659 #if defined( __parallel ) .AND. .NOT. defined ( __check ) 642 660 ! 643 661 !-- Set a barrier in order to allow that thereafter all other … … 688 706 CALL local_system( 'mkdir PARTICLE_DATA' // coupling_char ) 689 707 ENDIF 690 #if defined( __parallel ) 708 #if defined( __parallel ) .AND. .NOT. defined ( __check ) 691 709 ! 692 710 !-- Set a barrier in order to allow that thereafter all other … … 1291 1309 TRIM( coupling_char ) // '/' ) 1292 1310 ENDIF 1293 #if defined( __parallel ) 1294 ! 1311 #if defined( __parallel ) .AND. .NOT. defined ( __check ) 1312 ! 1295 1313 !-- Set a barrier in order to allow that all other processors in the 1296 1314 !-- directory created by PE0 can open their file
Note: See TracChangeset
for help on using the changeset viewer.