Ignore:
Timestamp:
Jun 29, 2017 9:28:18 AM (4 years ago)
Author:
raasch
Message:

write_binary is of type LOGICAL now, MPI2-related code removed, obsolete variables removed, sendrecv_in_background related parts removed, missing variable descriptions added

File:
1 edited

Legend:

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

    r2101 r2298  
    2121! -----------------
    2222!
    23 !
     23! 
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! -return_addres, return_username, avs_coor_file_..., avs_data_file_...,
     28! cross_ts_numbers, cross_ts_number_count
     29!
     30! 2101 2017-01-05 16:42:31Z suehring
    2731!
    2832! 2063 2016-11-10 17:14:35Z raasch
     
    135139
    136140    USE control_parameters,                                                    &
    137         ONLY:  avs_data_file, coupling_char, data_output_2d_on_each_pe, host,  &
    138                max_masks, message_string, mid, nz_do3d, openfile,              &
    139                return_addres, return_username, run_description_header, runnr
     141        ONLY:  coupling_char, data_output_2d_on_each_pe, host, max_masks,      &
     142               message_string, mid, nz_do3d, openfile, run_description_header, &
     143               runnr
    140144
    141145    USE grid_variables,                                                        &
     
    166170        ONLY:  fortran_sleep
    167171
    168     USE profil_parameter,                                                      &
    169         ONLY:  cross_ts_numbers, cross_ts_number_count
    170 
    171172
    172173    IMPLICIT NONE
     
    176177    CHARACTER (LEN=20)  ::  xtext = 'time in s'     !<
    177178    CHARACTER (LEN=30)  ::  filename                !<
    178     CHARACTER (LEN=40)  ::  avs_coor_file           !<
    179     CHARACTER (LEN=40)  ::  avs_coor_file_localname !<
    180     CHARACTER (LEN=40)  ::  avs_data_file_localname !<
    181179    CHARACTER (LEN=80)  ::  rtext                   !<
    182     CHARACTER (LEN=100) ::  avs_coor_file_catalog   !<
    183     CHARACTER (LEN=100) ::  avs_data_file_catalog   !<
    184180    CHARACTER (LEN=100) ::  batch_scp               !<
    185181    CHARACTER (LEN=100) ::  line                    !<
     
    201197    INTEGER(iwp), DIMENSION(10) ::  klist !<
    202198
    203     LOGICAL ::  avs_coor_file_found = .FALSE. !<
    204     LOGICAL ::  avs_data_file_found = .FALSE. !<
    205199    LOGICAL ::  datleg = .TRUE.               !<
    206200    LOGICAL ::  get_filenames                 !<
Note: See TracChangeset for help on using the changeset viewer.