Changeset 1353 for palm/trunk/SOURCE/global_min_max.f90
 Timestamp:
 Apr 8, 2014 3:21:23 PM (7 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/global_min_max.f90
r1321 r1353 21 21 ! Current revisions: 22 22 !  23 ! 23 ! REAL constants provided with KINDattribute 24 24 ! 25 25 ! Former revisions: … … 191 191 ! 192 192 ! Determine the local absolut maximum 193 fmax_l(1) = 0.0 193 fmax_l(1) = 0.0_wp 194 194 fmax_ijk_l(1) = i1 195 195 fmax_ijk_l(2) = j1 … … 212 212 ! A constant offset has to be subtracted in order to handle the special 213 213 ! case i=0 correctly 214 IF ( ar(fmax_ijk_l(1),fmax_ijk_l(2),fmax_ijk_l(3)) < 0.0 ) THEN214 IF ( ar(fmax_ijk_l(1),fmax_ijk_l(2),fmax_ijk_l(3)) < 0.0_wp ) THEN 215 215 fmax_ijk_l(1) = fmax_ijk_l(1)  10 216 216 ENDIF … … 251 251 ! 252 252 ! Determine the local absolut maximum 253 fmax_l(1) = 0.0 253 fmax_l(1) = 0.0_wp 254 254 fmax_ijk_l(1) = i1 255 255 fmax_ijk_l(2) = j1 … … 276 276 ! A constant offset has to be subtracted in order to handle the special 277 277 ! case i=0 correctly 278 IF ( ar(fmax_ijk_l(1),fmax_ijk_l(2),fmax_ijk_l(3)) < 0.0 ) THEN278 IF ( ar(fmax_ijk_l(1),fmax_ijk_l(2),fmax_ijk_l(3)) < 0.0_wp ) THEN 279 279 fmax_ijk_l(1) = fmax_ijk_l(1)  10 280 280 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.