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

    r1321 r1353  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! REAL constants provided with KIND-attribute
    2323!
    2424! Former revisions:
     
    8686!                ENDDO
    8787!             ELSE
    88 !                lad_s(:,:,i) = 0.0
    89 !                cdc(:,:,i)   = 0.0
     88!                lad_s(:,:,i) = 0.0_wp
     89!                cdc(:,:,i)   = 0.0_wp
    9090!             ENDIF
    9191!          ENDDO
Note: See TracChangeset for help on using the changeset viewer.