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

Timestamp:

Oct 24, 2018 6:39:32 PM (6 years ago)

Author:

gronemeier

Message:

new surface-data output; renamed output variables (pt to theta, rho_air to rho, rho_ocean to rho_sea_water)

File:

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

palm/trunk/SOURCE/check_open.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Open files for surface data
+! 
+! 3399 2018-10-22 20:13:45Z gronemeier
 ! unused variables and format statements removed
 ! 
@@ -455 +458 @@
 
           ENDIF
+          
+       CASE ( 25 )
+!
+!--       Binary files for surface data
+          OPEN ( 25, FILE='SURFACE_DATA_BIN'//TRIM( coupling_char )//myid_char,  &
+                 FORM='UNFORMATTED', POSITION='APPEND' )
+
+       CASE ( 26 )
+!
+!--       Binary files for averaged surface data
+          OPEN ( 26, FILE='SURFACE_DATA_AV_BIN'//TRIM( coupling_char )//myid_char,  &
+                 FORM='UNFORMATTED', POSITION='APPEND' )
+       
 
        CASE ( 30 )
@@ -1131 +1147 @@
           ENDIF
 
+
 !
 !--    nc-file for virtual flight measurements