Changeset 231 for palm/trunk


Ignore:
Timestamp:
Feb 8, 2009 10:51:43 AM (13 years ago)
Author:
raasch
Message:

type change in DATA statement (eqn_state_seawater)

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r230 r231  
    66-------
    77
    8 Output of messages replaced by message handling routine
     8Output of messages replaced by message handling routine.
     9First constant in array den also defined as type double. (eqn_state_seawater)
    910
    10 advec_particles, sort_particles
     11advec_particles, eqn_state_seawater, sort_particles
     12
    1113
    1214Errors:
  • palm/trunk/SOURCE/eqn_state_seawater.f90

    r98 r231  
    44! Actual revisions:
    55! -----------------
    6 !
     6! First constant in array den also defined as type double
    77!
    88! Former revisions:
     
    3737
    3838    REAL, DIMENSION(13), PARAMETER ::  den =                             &
    39                       (/ 1.0                  7.2815210113327091D-3,  &
     39                      (/ 1.0D0,                  7.2815210113327091D-3,  &
    4040                        -4.4787265461983921D-5,  3.3851002965802430D-7,  &
    4141                         1.3651202389758572D-10, 1.7632126669040377D-3,  &
Note: See TracChangeset for help on using the changeset viewer.