Ignore:
Timestamp:
Mar 20, 2014 4:38:49 PM (7 years ago)
Author:
raasch
Message:

REAL functions and a lot of REAL constants provided with KIND-attribute,
some small bugfixes

File:
1 edited

Legend:

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

    r1321 r1322  
    2121! Current revisions:
    2222! -----------------
    23 !
     23! REAL constants defined as wp-kind
    2424!
    2525! Former revisions:
     
    11931193          dptdz(k) = ( hom(k,1,4,sr) - hom(k-1,1,4,sr) ) * ddzu(k)
    11941194       ENDDO
    1195        dptdz_threshold = 0.2 / 100.0
     1195       dptdz_threshold = 0.2_wp / 100.0_wp
    11961196
    11971197       IF ( ocean )  THEN
     
    28592859          dptdz(k) = ( hom(k,1,4,sr) - hom(k-1,1,4,sr) ) * ddzu(k)
    28602860       ENDDO
    2861        dptdz_threshold = 0.2 / 100.0
     2861       dptdz_threshold = 0.2_wp / 100.0_wp
    28622862
    28632863       IF ( ocean )  THEN
Note: See TracChangeset for help on using the changeset viewer.