Changeset 3967 for palm

Timestamp:

May 9, 2019 4:04:34 PM (5 years ago)

Author:

gronemeier

Message:

Save binary data of virtual measurements within separate folder

Location:

palm/trunk

Files:

• SCRIPTS/.palm.iofiles (modified) (1 diff)
• SOURCE/check_open.f90 (modified) (2 diffs)

palm/trunk/SCRIPTS/.palm.iofiles

@@ -63 +63 @@
 SURFACE_DATA_AV_NETCDF*    out:tr   *         $base_data/$run_identifier/OUTPUT         _av_surf   nc
 #
-VIRTUAL_MEAS_BIN*          out   *            $base_data/$run_identifier/OUTPUT         _vmeas     bin
+VIRTUAL_MEAS_BIN*          out:lnpe *         $base_data/$run_identifier/OUTPUT         _vmeas
 #
 DATA_1D_FL_NETCDF*         out:tr   *         $base_data/$run_identifier/OUTPUT         _fl        nc

palm/trunk/SOURCE/check_open.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Save binary data of virtual measurements within separate folder
+! 
+! 3812 2019-03-25 07:10:12Z gronemeier
 ! Open binary surface output data within separate folder
 ! 
@@ -538 +541 @@
 !
 !--       Binary files for virtual measurement data
-          OPEN ( 27, FILE='VIRTUAL_MEAS_BIN'//TRIM( coupling_char )//myid_char,&
-                 FORM='UNFORMATTED', POSITION='APPEND' )
+          IF ( myid_char == '' )  THEN
+             OPEN ( 27, FILE='VIRTUAL_MEAS_BIN'//TRIM( coupling_char )//       &
+                             myid_char, FORM='UNFORMATTED', POSITION='APPEND' )
+          ELSE
+
+             IF ( myid == 0  .AND. .NOT. openfile(file_id)%opened_before )  THEN
+                CALL local_system( 'mkdir  VIRTUAL_MEAS_BIN' //                &
+                                   TRIM( coupling_char ) )
+             ENDIF
+#if defined( __parallel )
+!
+!--          Set a barrier in order to allow that all other processors in the 
+!--          directory created by PE0 can open their file
+             CALL MPI_BARRIER( comm2d, ierr )
+#endif
+             ioerr = 1
+             DO WHILE ( ioerr /= 0 )
+                OPEN ( 27, FILE='VIRTUAL_MEAS_BIN'//TRIM(coupling_char)//      &
+                                '/'//myid_char,                                &
+                           FORM='UNFORMATTED', IOSTAT=ioerr )
+                IF ( ioerr /= 0 )  THEN
+                   WRITE( 9, * )  '*** could not open "VIRTUAL_MEAS_BIN'//     &
+                                  TRIM(coupling_char)//'/'//myid_char//        &
+                                  '"! Trying again in 1 sec.'
+                   CALL fortran_sleep( 1 )
+                ENDIF
+             ENDDO
+
+          ENDIF
 
        CASE ( 30 )