Changeset 143 for palm/trunk/SOURCE/read_3d_binary.f90
 Timestamp:
 Dec 28, 2007 9:44:53 AM (14 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/read_3d_binary.f90
r110 r143 4 4 ! Actual revisions: 5 5 !  6 ! 6 ! Restart file has to be reopened on all PEs except PE0 7 ! dopr_time_count, 8 ! hom_sum moved, volume_flow_area, volume_flow_initial moved to read_var_list, 9 ! reading of old profil parameters (cross_..., dopr_crossindex, profile_***) 10 ! removed 7 11 ! 8 12 ! Former revisions: … … 54 58 CHARACTER (LEN=10) :: binary_version, version_on_file 55 59 CHARACTER (LEN=20) :: field_chr 56 CHARACTER (LEN=10), DIMENSION(:), ALLOCATABLE :: chdum1057 CHARACTER (LEN=40), DIMENSION(:), ALLOCATABLE :: chdum4058 CHARACTER (LEN=100), DIMENSION(:), ALLOCATABLE :: chdum10059 60 60 61 INTEGER :: idum1, myid_on_file, numprocs_on_file, nxl_on_file, & 61 62 nxr_on_file, nyn_on_file, nys_on_file, nzb_on_file, nzt_on_file 62 63 63 INTEGER, DIMENSION(:), ALLOCATABLE :: idum64 65 REAL, DIMENSION(:), ALLOCATABLE :: rdum66 67 64 ! 68 65 ! Read data from previous model run. unit 13 already opened in parin 69 66 CALL cpu_log( log_point_s(14), 'read_3d_binary', 'start' ) 67 68 ! 69 ! Restart file has to be reopened on all PEs except PE0 70 CALL check_open( 13 ) 70 71 71 72 ! … … 173 174 CALL local_stop 174 175 ENDIF 175 176 !177 ! Local arrays that may be required for possible temporary information178 ! storage in the following179 ALLOCATE( chdum10(crmax), chdum40(crmax), chdum100(crmax), &180 idum(100*crmax), rdum(100*crmax) )181 176 182 177 ! … … 304 299 CASE ( 'shf_m' ) 305 300 READ ( 13 ) shf_m 306 CASE ( 'tswst' )307 READ ( 13 ) tswst308 CASE ( 'tswst_m' )309 READ ( 13 ) tswst_m310 301 CASE ( 'spectrum_x' ) 311 302 READ ( 13 ) spectrum_x … … 317 308 ALLOCATE( ts_av(nys1:nyn+1,nxl1:nxr+1) ) 318 309 READ ( 13 ) ts_av 310 CASE ( 'tswst' ) 311 READ ( 13 ) tswst 312 CASE ( 'tswst_m' ) 313 READ ( 13 ) tswst_m 319 314 CASE ( 'u' ) 320 315 READ ( 13 ) u … … 347 342 CASE ( 'v' ) 348 343 READ ( 13 ) v 349 CASE ( 'volume_flow_area' )350 READ ( 13 ) volume_flow_area351 CASE ( 'volume_flow_initial' )352 READ ( 13 ) volume_flow_initial353 344 CASE ( 'v_av' ) 354 345 ALLOCATE( v_av(nzb:nzt+1,nys1:nyn+1,nxl1:nxr+1) ) … … 400 391 READ ( 13 ) z0_av 401 392 402 CASE ( 'cross_linecolors' )403 IF ( use_prior_plot1d_parameters ) THEN404 READ ( 13 ) cross_linecolors405 ELSE406 READ ( 13 ) idum407 ENDIF408 CASE ( 'cross_linestyles' )409 IF ( use_prior_plot1d_parameters ) THEN410 READ ( 13 ) cross_linestyles411 ELSE412 READ ( 13 ) idum413 ENDIF414 CASE ( 'cross_normalized_x' )415 IF ( use_prior_plot1d_parameters ) THEN416 READ ( 13 ) cross_normalized_x417 ELSE418 READ ( 13 ) chdum10419 ENDIF420 CASE ( 'cross_normalized_y' )421 IF ( use_prior_plot1d_parameters ) THEN422 READ ( 13 ) cross_normalized_y423 ELSE424 READ ( 13 ) chdum10425 ENDIF426 CASE ( 'cross_normx_factor' )427 IF ( use_prior_plot1d_parameters ) THEN428 READ ( 13 ) cross_normx_factor429 ELSE430 READ ( 13 ) rdum431 ENDIF432 CASE ( 'cross_normy_factor' )433 IF ( use_prior_plot1d_parameters ) THEN434 READ ( 13 ) cross_normy_factor435 ELSE436 READ ( 13 ) rdum437 ENDIF438 CASE ( 'cross_profiles' )439 IF ( use_prior_plot1d_parameters ) THEN440 READ ( 13 ) cross_profiles441 ELSE442 READ ( 13 ) chdum100443 ENDIF444 CASE ( 'cross_profile_n_coun' )445 IF ( use_prior_plot1d_parameters ) THEN446 READ ( 13 ) cross_profile_number_count447 ELSE448 READ ( 13 ) idum(1:crmax)449 ENDIF450 CASE ( 'cross_profile_number' )451 IF ( use_prior_plot1d_parameters ) THEN452 READ ( 13 ) cross_profile_numbers453 ELSE454 READ ( 13 ) idum455 ENDIF456 CASE ( 'cross_uxmax' )457 IF ( use_prior_plot1d_parameters ) THEN458 READ ( 13 ) cross_uxmax459 ELSE460 READ ( 13 ) rdum(1:crmax)461 ENDIF462 CASE ( 'cross_uxmax_computed' )463 IF ( use_prior_plot1d_parameters ) THEN464 READ ( 13 ) cross_uxmax_computed465 ELSE466 READ ( 13 ) rdum(1:crmax)467 ENDIF468 CASE ( 'cross_uxmax_normaliz' )469 IF ( use_prior_plot1d_parameters ) THEN470 READ ( 13 ) cross_uxmax_normalized471 ELSE472 READ ( 13 ) rdum(1:crmax)473 ENDIF474 CASE ( 'cross_uxmax_norm_com' )475 IF ( use_prior_plot1d_parameters ) THEN476 READ ( 13 ) cross_uxmax_normalized_computed477 ELSE478 READ ( 13 ) rdum(1:crmax)479 ENDIF480 CASE ( 'cross_uxmin' )481 IF ( use_prior_plot1d_parameters ) THEN482 READ ( 13 ) cross_uxmin483 ELSE484 READ ( 13 ) rdum(1:crmax)485 ENDIF486 CASE ( 'cross_uxmin_computed' )487 IF ( use_prior_plot1d_parameters ) THEN488 READ ( 13 ) cross_uxmin_computed489 ELSE490 READ ( 13 ) rdum(1:crmax)491 ENDIF492 CASE ( 'cross_uxmin_normaliz' )493 IF ( use_prior_plot1d_parameters ) THEN494 READ ( 13 ) cross_uxmin_normalized495 ELSE496 READ ( 13 ) rdum(1:crmax)497 ENDIF498 CASE ( 'cross_uxmin_norm_com' )499 IF ( use_prior_plot1d_parameters ) THEN500 READ ( 13 ) cross_uxmin_normalized_computed501 ELSE502 READ ( 13 ) rdum(1:crmax)503 ENDIF504 CASE ( 'cross_uymax' )505 IF ( use_prior_plot1d_parameters ) THEN506 READ ( 13 ) cross_uymax507 ELSE508 READ ( 13 ) rdum(1:crmax)509 ENDIF510 CASE ( 'cross_uymin' )511 IF ( use_prior_plot1d_parameters ) THEN512 READ ( 13 ) cross_uymin513 ELSE514 READ ( 13 ) rdum(1:crmax)515 ENDIF516 CASE ( 'cross_xtext' )517 IF ( use_prior_plot1d_parameters ) THEN518 READ ( 13 ) cross_xtext519 ELSE520 READ ( 13 ) chdum40521 ENDIF522 CASE ( 'dopr_crossindex' )523 IF ( use_prior_plot1d_parameters ) THEN524 READ ( 13 ) dopr_crossindex525 ELSE526 READ ( 13 ) idum(1:100)527 ENDIF528 CASE ( 'dopr_time_count' )529 IF ( use_prior_plot1d_parameters ) THEN530 READ ( 13 ) dopr_time_count531 ELSE532 READ ( 13 ) idum1533 ENDIF534 CASE ( 'hom_sum' )535 READ ( 13 ) hom_sum536 CASE ( 'profile_columns' )537 IF ( use_prior_plot1d_parameters ) THEN538 READ ( 13 ) profile_columns539 ELSE540 READ ( 13 ) idum1541 ENDIF542 CASE ( 'profile_number' )543 IF ( use_prior_plot1d_parameters ) THEN544 READ ( 13 ) profile_number545 ELSE546 READ ( 13 ) idum1547 ENDIF548 CASE ( 'profile_rows' )549 IF ( use_prior_plot1d_parameters ) THEN550 READ ( 13 ) profile_rows551 ELSE552 READ ( 13 ) idum1553 ENDIF554 555 393 CASE DEFAULT 556 394 PRINT*, '+++ init_3d_model: unknown field named "', & … … 566 404 ENDDO 567 405 568 DEALLOCATE( chdum10, chdum40, chdum100, idum, rdum )569 570 406 ! 571 407 ! End of time measuring for reading binary data
Note: See TracChangeset
for help on using the changeset viewer.