Ignore:
Timestamp:
Oct 19, 2007 3:47:46 PM (14 years ago)
Author:
raasch
Message:

further bugfixes for the ocean part

File:
1 edited

Legend:

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

    r98 r124  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Bugfix: Initial density rho is calculated
    77!
    88! Former revisions:
     
    7373    prho_reference = prho_reference / ( zu(nzt) - zu(nzb) )
    7474
     75!
     76!-- Calculate the initial potential density, based on the initial
     77!-- temperature and salinity profile
     78    CALL eqn_state_seawater
     79
    7580
    7681 END SUBROUTINE init_ocean
Note: See TracChangeset for help on using the changeset viewer.