Changeset 124 for palm/trunk/SOURCE/init_ocean.f90

Timestamp:

Oct 19, 2007 3:47:46 PM (17 years ago)

Author:

raasch

Message:

further bugfixes for the ocean part

File:

• palm/trunk/SOURCE/init_ocean.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_ocean.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Bugfix: Initial density rho is calculated
 !
 ! Former revisions:
@@ -73 +73 @@
     prho_reference = prho_reference / ( zu(nzt) - zu(nzb) )
 
+!
+!-- Calculate the initial potential density, based on the initial
+!-- temperature and salinity profile
+    CALL eqn_state_seawater
+
 
  END SUBROUTINE init_ocean