Ignore:
Timestamp:
Jun 1, 2007 3:25:22 PM (14 years ago)
Author:
raasch
Message:

preliminary uncomplete changes for ocean version

File:
1 edited

Legend:

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

    r90 r94  
    44! Actual revisions:
    55! -----------------
    6 !
     6! +ocean, sa_init, sa_surface, sa_vertical_gradient,
     7! sa_vertical_gradient_level, top_salinity_flux
    78!
    89! Former revisions:
     
    107108    READ ( 13 )  statistic_regions
    108109    ALLOCATE( ug(0:nz+1), u_init(0:nz+1), vg(0:nz+1), v_init(0:nz+1), &
    109               pt_init(0:nz+1), q_init(0:nz+1), &
     110              pt_init(0:nz+1), q_init(0:nz+1), sa_init(0:nz+1), &
    110111              hom(0:nz+1,2,pr_palm+max_pr_user,0:statistic_regions) )
    111112
     
    256257          CASE ( 'ny' )
    257258             READ ( 13 )  ny
     259          CASE ( 'ocean' )
     260             READ ( 13 )  ocean
    258261          CASE ( 'old_dt' )
    259262             READ ( 13 )  old_dt
     
    320323          CASE ( 'runnr' )
    321324             READ ( 13 )  runnr
     325          CASE ( 'sa_init' )
     326             READ ( 13 )  sa_init
     327          CASE ( 'sa_surface' )
     328             READ ( 13 )  sa_surface
     329          CASE ( 'sa_vertical_gradient' )
     330             READ ( 13 )  sa_vertical_gradient
     331          CASE ( 'sa_vertical_gradient_level' )
     332             READ ( 13 )  sa_vertical_gradient_level
    322333          CASE ( 'scalar_advec' )
    323334             READ ( 13 )  scalar_advec
     
    378389          CASE ( 'top_heatflux' )
    379390             READ ( 13 )  top_heatflux
     391          CASE ( 'top_salinityflux' )
     392             READ ( 13 )  top_salinityflux
    380393          CASE ( 'tsc' )
    381394             READ ( 13 )  tsc
Note: See TracChangeset for help on using the changeset viewer.