Changeset 231 for palm/trunk

Timestamp:

Feb 8, 2009 10:51:43 AM (16 years ago)

Author:

raasch

Message:

type change in DATA statement (eqn_state_seawater)

Location:

palm/trunk/SOURCE

Files:

• CURRENT_MODIFICATIONS (modified) (1 diff)
• eqn_state_seawater.f90 (modified) (2 diffs)

palm/trunk/SOURCE/CURRENT_MODIFICATIONS

@@ -6 +6 @@
 -------
 
-Output of messages replaced by message handling routine 
+Output of messages replaced by message handling routine.
+First constant in array den also defined as type double. (eqn_state_seawater)
 
-advec_particles, sort_particles
+advec_particles, eqn_state_seawater, sort_particles
+
 
 Errors:

palm/trunk/SOURCE/eqn_state_seawater.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! First constant in array den also defined as type double
 !
 ! Former revisions:
@@ -37 +37 @@
 
     REAL, DIMENSION(13), PARAMETER ::  den =                             &
-                      (/ 1.0,                    7.2815210113327091D-3,  &
+                      (/ 1.0D0,                  7.2815210113327091D-3,  &
                         -4.4787265461983921D-5,  3.3851002965802430D-7,  &
                          1.3651202389758572D-10, 1.7632126669040377D-3,  &