Ignore:
Timestamp:
Feb 23, 2007 4:53:48 AM (15 years ago)
Author:
raasch
Message:

preliminary version of modified boundary conditions at top

File:
1 edited

Legend:

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

    r4 r19  
    44! Actual revisions:
    55! -----------------
    6 !
     6! +qswst, qswst_m, tswst, tswst_m
    77!
    88! Former revisions:
     
    249249          CASE ( 'qsws_m' )
    250250             READ ( 13 )  qsws_m
     251          CASE ( 'qswst' )
     252             READ ( 13 )  qswst
     253          CASE ( 'qswst_m' )
     254             READ ( 13 )  qswst_m
    251255          CASE ( 'qv_av' )
    252256             ALLOCATE( qv_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
     
    266270          CASE ( 'shf_m' )
    267271             READ ( 13 )  shf_m
     272          CASE ( 'tswst' )
     273             READ ( 13 )  tswst
     274          CASE ( 'tswst_m' )
     275             READ ( 13 )  tswst_m
    268276          CASE ( 'spectrum_x' )
    269277             READ ( 13 )  spectrum_x
Note: See TracChangeset for help on using the changeset viewer.