Changeset 2298 for palm/trunk/SOURCE/check_open.f90

Timestamp:

Jun 29, 2017 9:28:18 AM (7 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:

• palm/trunk/SOURCE/check_open.f90 (modified) (5 diffs)

palm/trunk/SOURCE/check_open.f90

@@ -21 +21 @@
 ! -----------------
 ! 
-!
+! 
 ! Former revisions:
 ! -----------------
 ! $Id$
+! -return_addres, return_username, avs_coor_file_..., avs_data_file_...,
+! cross_ts_numbers, cross_ts_number_count
+!
+! 2101 2017-01-05 16:42:31Z suehring
 !
 ! 2063 2016-11-10 17:14:35Z raasch
@@ -135 +139 @@
 
     USE control_parameters,                                                    &
-        ONLY:  avs_data_file, coupling_char, data_output_2d_on_each_pe, host,  &
-               max_masks, message_string, mid, nz_do3d, openfile,              &
-               return_addres, return_username, run_description_header, runnr
+        ONLY:  coupling_char, data_output_2d_on_each_pe, host, max_masks,      &
+               message_string, mid, nz_do3d, openfile, run_description_header, &
+               runnr
 
     USE grid_variables,                                                        &
@@ -166 +170 @@
         ONLY:  fortran_sleep
 
-    USE profil_parameter,                                                      &
-        ONLY:  cross_ts_numbers, cross_ts_number_count
-
 
     IMPLICIT NONE
@@ -176 +177 @@
     CHARACTER (LEN=20)  ::  xtext = 'time in s'     !<
     CHARACTER (LEN=30)  ::  filename                !<
-    CHARACTER (LEN=40)  ::  avs_coor_file           !<
-    CHARACTER (LEN=40)  ::  avs_coor_file_localname !<
-    CHARACTER (LEN=40)  ::  avs_data_file_localname !<
     CHARACTER (LEN=80)  ::  rtext                   !<
-    CHARACTER (LEN=100) ::  avs_coor_file_catalog   !<
-    CHARACTER (LEN=100) ::  avs_data_file_catalog   !<
     CHARACTER (LEN=100) ::  batch_scp               !<
     CHARACTER (LEN=100) ::  line                    !<
@@ -201 +197 @@
     INTEGER(iwp), DIMENSION(10) ::  klist !<
 
-    LOGICAL ::  avs_coor_file_found = .FALSE. !<
-    LOGICAL ::  avs_data_file_found = .FALSE. !<
     LOGICAL ::  datleg = .TRUE.               !<
     LOGICAL ::  get_filenames                 !<