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

    r1321 r1353  
    2121! Current revisions:
    2222! ------------------
    23 !
     23! REAL constants provided with KIND-attribute
    2424!
    2525! Former revisions:
     
    191191!
    192192!--    Determine the local absolut maximum
    193        fmax_l(1)     = 0.0
     193       fmax_l(1)     = 0.0_wp
    194194       fmax_ijk_l(1) =  i1
    195195       fmax_ijk_l(2) =  j1
     
    212212!--    A constant offset has to be subtracted in order to handle the special
    213213!--    case i=0 correctly
    214        IF ( ar(fmax_ijk_l(1),fmax_ijk_l(2),fmax_ijk_l(3)) < 0.0 )  THEN
     214       IF ( ar(fmax_ijk_l(1),fmax_ijk_l(2),fmax_ijk_l(3)) < 0.0_wp )  THEN
    215215          fmax_ijk_l(1) = -fmax_ijk_l(1) - 10
    216216       ENDIF
     
    251251!
    252252!--    Determine the local absolut maximum
    253        fmax_l(1)     = 0.0
     253       fmax_l(1)     = 0.0_wp
    254254       fmax_ijk_l(1) =  i1
    255255       fmax_ijk_l(2) =  j1
     
    276276!--    A constant offset has to be subtracted in order to handle the special
    277277!--    case i=0 correctly
    278        IF ( ar(fmax_ijk_l(1),fmax_ijk_l(2),fmax_ijk_l(3)) < 0.0 )  THEN
     278       IF ( ar(fmax_ijk_l(1),fmax_ijk_l(2),fmax_ijk_l(3)) < 0.0_wp )  THEN
    279279          fmax_ijk_l(1) = -fmax_ijk_l(1) - 10
    280280       ENDIF
Note: See TracChangeset for help on using the changeset viewer.