Ignore:
Timestamp:
Jul 27, 2007 9:09:17 AM (14 years ago)
Author:
raasch
Message:

preliminary version for coupled runs

File:
1 edited

Legend:

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

    r98 r102  
    44! Actual revisions:
    55! -----------------
    6 !
     6! +uswst, uswst_m, vswst, vswst_m
    77!
    88! Former revisions:
     
    333333          CASE ( 'usws' )
    334334             READ ( 13 )  usws
     335          CASE ( 'uswst' )
     336             READ ( 13 )  uswst
    335337          CASE ( 'usws_m' )
    336338             READ ( 13 )  usws_m
     339          CASE ( 'uswst_m' )
     340             READ ( 13 )  uswst_m
    337341          CASE ( 'us_av' )
    338342             ALLOCATE( us_av(nys-1:nyn+1,nxl-1:nxr+1) )
     
    366370          CASE ( 'vsws' )
    367371             READ ( 13 )  vsws
     372          CASE ( 'vswst' )
     373             READ ( 13 )  vswst
    368374          CASE ( 'vsws_m' )
    369375             READ ( 13 )  vsws_m
     376          CASE ( 'vswst_m' )
     377             READ ( 13 )  vswst_m
    370378          CASE ( 'w' )
    371379             READ ( 13 )  w
Note: See TracChangeset for help on using the changeset viewer.