Ignore:
Timestamp:
Jun 4, 2007 8:07:41 AM (14 years ago)
Author:
raasch
Message:

more preliminary uncomplete changes for ocean version

File:
1 edited

Legend:

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

    r95 r96  
    44! Actual revisions:
    55! -----------------
    6 ! +sa, saswsb, saswst
     6! +rho_av, sa, sa_av, saswsb, saswst
    77!
    88! Former revisions:
     
    273273             READ ( 13 )  random_iv
    274274             READ ( 13 )  random_iy
     275          CASE ( 'rho_av' )
     276             ALLOCATE( rho_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
     277             READ ( 13 )  rho_av
    275278          CASE ( 'rif' )
    276279             READ ( 13 )  rif
     
    284287          CASE ( 'sa' )
    285288             READ ( 13 )  sa
     289          CASE ( 'sa_av' )
     290             ALLOCATE( sa_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
     291             READ ( 13 )  sa_av
    286292          CASE ( 'saswsb' )
    287293             READ ( 13 )  saswsb
Note: See TracChangeset for help on using the changeset viewer.