Changeset 1353 for palm/trunk/SOURCE/advec_s_up.f90
- Timestamp:
- Apr 8, 2014 3:21:23 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/advec_s_up.f90
r1321 r1353 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! REAL constants provided with KIND-attribute 23 23 ! 24 24 ! Former revisions: … … 106 106 ! 107 107 !-- x-direction 108 ukomp = 0.5 * ( u(k,j,i) + u(k,j,i+1) ) - u_gtrans109 IF ( ukomp > 0.0 ) THEN108 ukomp = 0.5_wp * ( u(k,j,i) + u(k,j,i+1) ) - u_gtrans 109 IF ( ukomp > 0.0_wp ) THEN 110 110 tend(k,j,i) = tend(k,j,i) - ukomp * & 111 111 ( sk(k,j,i) - sk(k,j,i-1) ) * ddx … … 116 116 ! 117 117 !-- y-direction 118 vkomp = 0.5 * ( v(k,j,i) + v(k,j+1,i) ) - v_gtrans119 IF ( vkomp > 0.0 ) THEN118 vkomp = 0.5_wp * ( v(k,j,i) + v(k,j+1,i) ) - v_gtrans 119 IF ( vkomp > 0.0_wp ) THEN 120 120 tend(k,j,i) = tend(k,j,i) - vkomp * & 121 121 ( sk(k,j,i) - sk(k,j-1,i) ) * ddy … … 126 126 ! 127 127 !-- z-direction 128 wkomp = 0.5 * ( w(k,j,i) + w(k-1,j,i) )129 IF ( wkomp > 0.0 ) THEN128 wkomp = 0.5_wp * ( w(k,j,i) + w(k-1,j,i) ) 129 IF ( wkomp > 0.0_wp ) THEN 130 130 tend(k,j,i) = tend(k,j,i) - wkomp * & 131 131 ( sk(k,j,i) - sk(k-1,j,i) ) * ddzu(k) … … 182 182 ! 183 183 !-- x-direction 184 ukomp = 0.5 * ( u(k,j,i) + u(k,j,i+1) ) - u_gtrans185 IF ( ukomp > 0.0 ) THEN184 ukomp = 0.5_wp * ( u(k,j,i) + u(k,j,i+1) ) - u_gtrans 185 IF ( ukomp > 0.0_wp ) THEN 186 186 tend(k,j,i) = tend(k,j,i) - ukomp * & 187 187 ( sk(k,j,i) - sk(k,j,i-1) ) * ddx … … 192 192 ! 193 193 !-- y-direction 194 vkomp = 0.5 * ( v(k,j,i) + v(k,j+1,i) ) - v_gtrans195 IF ( vkomp > 0.0 ) THEN194 vkomp = 0.5_wp * ( v(k,j,i) + v(k,j+1,i) ) - v_gtrans 195 IF ( vkomp > 0.0_wp ) THEN 196 196 tend(k,j,i) = tend(k,j,i) - vkomp * & 197 197 ( sk(k,j,i) - sk(k,j-1,i) ) * ddy … … 202 202 ! 203 203 !-- z-direction 204 wkomp = 0.5 * ( w(k,j,i) + w(k-1,j,i) )205 IF ( wkomp > 0.0 ) THEN204 wkomp = 0.5_wp * ( w(k,j,i) + w(k-1,j,i) ) 205 IF ( wkomp > 0.0_wp ) THEN 206 206 tend(k,j,i) = tend(k,j,i) - wkomp * & 207 207 ( sk(k,j,i) - sk(k-1,j,i) ) * ddzu(k)
Note: See TracChangeset
for help on using the changeset viewer.