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/sor.f90

    r1321 r1353  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! REAL constants provided with KIND-attribute
    2323!
    2424! Former revisions:
     
    8888         f2(k) = ddzu(k+1) * ddzw(k)
    8989         f3(k) = ddzu(k)   * ddzw(k)
    90          f1(k) = 2.0 * ( ddx2 + ddy2 ) + f2(k) + f3(k)
     90         f1(k) = 2.0_wp * ( ddx2 + ddy2 ) + f2(k) + f3(k)
    9191    ENDDO
    9292
     
    195195          p(nzb,:,:) = p(nzb+1,:,:)
    196196       ELSE                            !       Dirichlet
    197           p(nzb,:,:) = 0.0
     197          p(nzb,:,:) = 0.0_wp
    198198       ENDIF
    199199
     
    203203          p(nzt+1,:,:) = p(nzt,:,:)
    204204       ELSE                      !  Dirichlet
    205           p(nzt+1,:,:) = 0.0
     205          p(nzt+1,:,:) = 0.0_wp
    206206       ENDIF
    207207
Note: See TracChangeset for help on using the changeset viewer.