Ignore:
Timestamp:
Jan 17, 2008 1:08:34 PM (14 years ago)
Author:
raasch
Message:

further updates for turbulent inflow: PE-grid change for restart is working

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/read_var_list.f90

    r145 r146  
    44! Actual revisions:
    55! -----------------
    6 ! After reading the global variables, unit 13 is closed for all PEs except PE0
    76! +numprocs_previous_run, hor_index_bounds_previous_run,
    87! -cross_ts_*, npex, npey,
    98! hom_sum, volume_flow_area, volume_flow_initial moved from
    10 ! read_3d_binary to here
     9! read_3d_binary to here,
     10! routine skip_var_list added at the end
    1111!
    1212! Former revisions:
     
    9797    READ ( 13 )  numprocs_previous_run
    9898
    99     ALLOCATE( hor_index_bounds_previous_run(4,0:numprocs_previous_run-1) )
     99    IF ( .NOT. ALLOCATED( hor_index_bounds_previous_run ) )  THEN
     100       ALLOCATE( hor_index_bounds_previous_run(4,0:numprocs_previous_run-1) )
     101    ENDIF
    100102
    101103    READ ( 13 )  variable_chr
     
    145147    ENDIF
    146148    READ ( 13 )  statistic_regions
    147     ALLOCATE( ug(0:nz+1), u_init(0:nz+1), vg(0:nz+1), v_init(0:nz+1), &
    148               pt_init(0:nz+1), q_init(0:nz+1), sa_init(0:nz+1),       &
    149               hom(0:nz+1,2,pr_palm+max_pr_user,0:statistic_regions),  &
    150               hom_sum(0:nz+1,pr_palm+max_pr_user,0:statistic_regions) )
     149    IF ( .NOT. ALLOCATED( ug ) )  THEN
     150       ALLOCATE( ug(0:nz+1), u_init(0:nz+1), vg(0:nz+1), v_init(0:nz+1), &
     151                 pt_init(0:nz+1), q_init(0:nz+1), sa_init(0:nz+1),       &
     152                 hom(0:nz+1,2,pr_palm+max_pr_user,0:statistic_regions),  &
     153                 hom_sum(0:nz+1,pr_palm+max_pr_user,0:statistic_regions) )
     154    ENDIF
    151155
    152156!
     
    533537    ENDDO
    534538
    535     IF ( myid /= 0 )  CALL close_file( 13 )
    536 
    537539
    538540 END SUBROUTINE read_var_list
     541
     542
     543
     544 SUBROUTINE skip_var_list
     545
     546!------------------------------------------------------------------------------!
     547! Description:
     548! ------------
     549! Skipping the global control variables from restart-file (binary format)
     550!------------------------------------------------------------------------------!
     551
     552    CHARACTER (LEN=10) ::  version_on_file
     553    CHARACTER (LEN=30) ::  variable_chr
     554
     555    INTEGER ::  idum
     556
     557
     558    READ ( 13 )  version_on_file
     559
     560    READ ( 13 )  variable_chr
     561
     562    DO  WHILE ( TRIM( variable_chr ) /= '*** end ***' )
     563
     564       READ ( 13 )  idum
     565       READ ( 13 )  variable_chr
     566
     567    ENDDO
     568
     569
     570 END SUBROUTINE skip_var_list
Note: See TracChangeset for help on using the changeset viewer.