Ignore:
Timestamp:
May 22, 2007 3:46:47 PM (14 years ago)
Author:
raasch
Message:

Preliminary update for user defined profiles

File:
1 edited

Legend:

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

    r77 r87  
    44! Actual revisions:
    55! -----------------
    6 !
     6! +max_pr_user (version 3.1), var_hom renamed pr_palm
    77!
    88! Former revisions:
     
    3232    USE arrays_3d
    3333    USE averaging
     34    USE control_parameters
    3435    USE grid_variables
    3536    USE indices
     
    3839    USE profil_parameter
    3940    USE statistics
    40     USE control_parameters
    4141
    4242    IMPLICIT NONE
     
    4444    CHARACTER (LEN=10) ::  binary_version, version_on_file
    4545    CHARACTER (LEN=30) ::  variable_chr
     46
     47    INTEGER            ::  max_pr_user_on_file
    4648   
    4749    CALL check_open( 13 )
     
    5052!-- Make version number check first
    5153    READ ( 13 )  version_on_file
    52     binary_version = '3.0'
     54    binary_version = '3.1'
    5355    IF ( TRIM( version_on_file ) /= TRIM( binary_version ) )  THEN
    5456       IF ( myid == 0 )  THEN
     
    7476    ENDIF
    7577    READ ( 13 )  nz
     78
     79    READ ( 13 )  variable_chr
     80    IF ( TRIM( variable_chr ) /= 'max_pr_user' )  THEN
     81       PRINT*, '+++ read_var_list: max_pr_user not found in data from ', &
     82                    'prior run on PE ', myid
     83       CALL local_stop
     84    ENDIF
     85    READ ( 13 )  max_pr_user_on_file
     86    IF ( max_pr_user_on_file /= max_pr_user )  THEN
     87       IF ( myid == 0 )  THEN
     88          PRINT*, '+++ read_var_list: version mismatch concerning maximum', &
     89                  ' number of user profiles'
     90          PRINT*, '                   max_pr_user on file    = "', &
     91                  max_pr_user_on_file, '"'
     92          PRINT*, '                   max_pr_user from run   = "', &
     93                  max_pr_user, '"'
     94       ENDIF
     95       CALL local_stop
     96    ENDIF
     97
    7698    READ ( 13 )  variable_chr
    7799    IF ( TRIM( variable_chr ) /= 'statistic_regions' )  THEN
     
    83105    ALLOCATE( ug(0:nz+1), u_init(0:nz+1), vg(0:nz+1), v_init(0:nz+1), &
    84106              pt_init(0:nz+1), q_init(0:nz+1), &
    85               hom(0:nz+1,2,var_hom,0:statistic_regions) )
     107              hom(0:nz+1,2,pr_palm+max_pr_user,0:statistic_regions) )
    86108
    87109!
Note: See TracChangeset for help on using the changeset viewer.