Ignore:
Timestamp:
Oct 24, 2018 6:39:32 PM (3 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:
1 edited

Legend:

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

    r3241 r3421  
    2525! -----------------
    2626! $Id$
     27! Open files for surface data
     28!
     29! 3399 2018-10-22 20:13:45Z gronemeier
    2730! unused variables and format statements removed
    2831!
     
    455458
    456459          ENDIF
     460         
     461       CASE ( 25 )
     462!
     463!--       Binary files for surface data
     464          OPEN ( 25, FILE='SURFACE_DATA_BIN'//TRIM( coupling_char )//myid_char,  &
     465                 FORM='UNFORMATTED', POSITION='APPEND' )
     466
     467       CASE ( 26 )
     468!
     469!--       Binary files for averaged surface data
     470          OPEN ( 26, FILE='SURFACE_DATA_AV_BIN'//TRIM( coupling_char )//myid_char,  &
     471                 FORM='UNFORMATTED', POSITION='APPEND' )
     472       
    457473
    458474       CASE ( 30 )
     
    11311147          ENDIF
    11321148
     1149
    11331150!
    11341151!--    nc-file for virtual flight measurements
Note: See TracChangeset for help on using the changeset viewer.