Changeset 1804 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Apr 5, 2016 4:30:18 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r1784 r1804 11 11 ! A PARTICULAR PURPOSE. See the GNU General Public License for more details. 12 12 ! 13 ! You should have received a copy of the GNU General Public License along with13 ! You should have received a copy of the GNU fGeneral Public License along with 14 14 ! PALM. If not, see <http://www.gnu.org/licenses/>. 15 15 ! … … 19 19 ! Current revisions: 20 20 ! ----------------- 21 ! 21 ! Removed code for parameter file check (__check) 22 22 ! 23 23 ! Former revisions: … … 208 208 IF ( openfile(file_id)%opened ) RETURN 209 209 210 #if ! defined ( __check )211 210 ! 212 211 !-- Only certain files are allowed to be re-opened … … 231 230 END SELECT 232 231 ENDIF 233 #endif234 232 235 233 ! … … 283 281 CASE ( 11 ) 284 282 285 #if defined ( __check )286 !287 !-- In case of a prior parameter file check, the p3d data is stored in288 !-- PARIN, while the p3df is stored in PARINF. This only applies to289 !-- check_namelist_files!290 IF ( check_restart == 2 ) THEN291 OPEN ( 11, FILE='PARINF'//TRIM( coupling_char ), &292 FORM='FORMATTED', STATUS='OLD' )293 ELSE294 OPEN ( 11, FILE='PARIN'//TRIM( coupling_char ), FORM='FORMATTED', &295 STATUS='OLD' )296 END IF297 #else298 299 283 OPEN ( 11, FILE='PARIN'//TRIM( coupling_char ), FORM='FORMATTED', & 300 284 STATUS='OLD' ) 301 #endif302 285 303 286 CASE ( 13 ) … … 328 311 CALL local_system( 'mkdir BINOUT' // TRIM( coupling_char ) ) 329 312 ENDIF 330 #if defined( __parallel ) && ! defined ( __check )313 #if defined( __parallel ) 331 314 ! 332 315 !-- Set a barrier in order to allow that all other processors in the … … 371 354 FORM='UNFORMATTED', POSITION='APPEND' ) 372 355 ELSE 373 #if defined( __parallel ) && ! defined ( __check )356 #if defined( __parallel ) 374 357 ! 375 358 !-- Set a barrier in order to allow that all other processors in the … … 563 546 TRIM( coupling_char ) ) 564 547 ENDIF 565 #if defined( __parallel ) && ! defined ( __check )548 #if defined( __parallel ) 566 549 ! 567 550 !-- Set a barrier in order to allow that thereafter all other … … 615 598 TRIM( coupling_char ) ) 616 599 ENDIF 617 #if defined( __parallel ) && ! defined ( __check )600 #if defined( __parallel ) 618 601 ! 619 602 !-- Set a barrier in order to allow that thereafter all other … … 673 656 CALL netcdf_handle_error( 'check_open', 21 ) 674 657 IF ( myid == 0 ) CALL local_system( 'rm ' // TRIM( filename ) ) 675 #if defined( __parallel ) && ! defined ( __check )658 #if defined( __parallel ) 676 659 ! 677 660 !-- Set a barrier in order to assure that PE0 deleted the old file … … 735 718 CALL netcdf_handle_error( 'check_open', 24 ) 736 719 IF ( myid == 0 ) CALL local_system( 'rm ' // TRIM( filename ) ) 737 #if defined( __parallel ) && ! defined ( __check )720 #if defined( __parallel ) 738 721 ! 739 722 !-- Set a barrier in order to assure that PE0 deleted the old file … … 797 780 CALL netcdf_handle_error( 'check_open', 27 ) 798 781 IF ( myid == 0 ) CALL local_system( 'rm ' // TRIM( filename ) ) 799 #if defined( __parallel ) && ! defined ( __check )782 #if defined( __parallel ) 800 783 ! 801 784 !-- Set a barrier in order to assure that PE0 deleted the old file … … 940 923 CALL netcdf_handle_error( 'check_open', 36 ) 941 924 IF ( myid == 0 ) CALL local_system( 'rm ' // TRIM( filename ) ) 942 #if defined( __parallel ) && ! defined ( __check )925 #if defined( __parallel ) 943 926 ! 944 927 !-- Set a barrier in order to assure that PE0 deleted the old file … … 1057 1040 TRIM( coupling_char ) // '/' ) 1058 1041 ENDIF 1059 #if defined( __parallel ) && ! defined ( __check )1042 #if defined( __parallel ) 1060 1043 ! 1061 1044 !-- Set a barrier in order to allow that all other processors in the
Note: See TracChangeset
for help on using the changeset viewer.