Ignore:
Timestamp:
Apr 8, 2014 3:21:23 PM (7 years ago)
Author:
heinze
Message:

REAL constants provided with KIND-attribute

File:
1 edited

Legend:

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

    r1321 r1353  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! REAL constants provided with KIND-attribute
    2323!
    2424! Former revisions:
     
    6868
    6969    IF ( .NOT. cloud_physics  .AND.  .NOT. cloud_droplets )  THEN
    70        vpt = pt * ( 1.0 + 0.61 * q )
     70       vpt = pt * ( 1.0_wp + 0.61_wp * q )
    7171    ELSE IF (cloud_physics)  THEN
    7272       DO  k = nzb, nzt+1
    7373          vpt(k,:,:) = ( pt(k,:,:) + pt_d_t(k) * l_d_cp * ql(k,:,:) ) *        &
    74                        ( 1.0 + 0.61 * q(k,:,:) - 1.61 * ql(k,:,:) )
     74                       ( 1.0_wp + 0.61_wp * q(k,:,:) - 1.61_wp * ql(k,:,:) )
    7575       ENDDO
    7676    ELSE
    77        vpt = pt * ( 1.0 + 0.61 * q - ql )
     77       vpt = pt * ( 1.0_wp + 0.61_wp * q - ql )
    7878    ENDIF
    7979
Note: See TracChangeset for help on using the changeset viewer.