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

    r1323 r1353  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! REAL constants provided with KIND-attribute
    2323!
    2424! Former revisions:
     
    9292!-- to store the disturbance
    9393    ALLOCATE( dist2(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    94     dist1 = 0.0
    95     dist2 = 0.0
     94    dist1 = 0.0_wp
     95    dist2 = 0.0_wp
    9696
    9797!
     
    183183       DO  i = nxlg, nxrg
    184184          DO  j = nysg, nyng
    185              dist1(nzb:nzb_uv_inner(j,i)+1,j,i) = 0.0
     185             dist1(nzb:nzb_uv_inner(j,i)+1,j,i) = 0.0_wp
    186186          ENDDO
    187187       ENDDO
Note: See TracChangeset for help on using the changeset viewer.