Changeset 1353 for palm/trunk/SOURCE/coriolis.f90
- Timestamp:
- Apr 8, 2014 3:21:23 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/coriolis.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 DO j = nys, nyn 107 107 DO k = nzb_u_inner(j,i)+1, nzt 108 tend(k,j,i) = tend(k,j,i) + f * ( 0.25 *&108 tend(k,j,i) = tend(k,j,i) + f * ( 0.25_wp * & 109 109 ( v(k,j,i-1) + v(k,j,i) + v(k,j+1,i-1) + & 110 110 v(k,j+1,i) ) - vg(k) ) & 111 - fs * ( 0.25 *&111 - fs * ( 0.25_wp * & 112 112 ( w(k-1,j,i-1) + w(k-1,j,i) + w(k,j,i-1) + & 113 113 w(k,j,i) ) & … … 123 123 DO j = nysv, nyn 124 124 DO k = nzb_v_inner(j,i)+1, nzt 125 tend(k,j,i) = tend(k,j,i) - f * ( 0.25 *&125 tend(k,j,i) = tend(k,j,i) - f * ( 0.25_wp * & 126 126 ( u(k,j-1,i) + u(k,j,i) + u(k,j-1,i+1) + & 127 127 u(k,j,i+1) ) - ug(k) ) … … 136 136 DO j = nys, nyn 137 137 DO k = nzb_w_inner(j,i)+1, nzt 138 tend(k,j,i) = tend(k,j,i) + fs * 0.25 *&138 tend(k,j,i) = tend(k,j,i) + fs * 0.25_wp * & 139 139 ( u(k,j,i) + u(k+1,j,i) + u(k,j,i+1) + & 140 140 u(k+1,j,i+1) ) … … 190 190 DO k = 1, nzt 191 191 IF ( k > nzb_u_inner(j,i) ) THEN 192 tend(k,j,i) = tend(k,j,i) + f * ( 0.25 *&192 tend(k,j,i) = tend(k,j,i) + f * ( 0.25_wp * & 193 193 ( v(k,j,i-1) + v(k,j,i) + v(k,j+1,i-1) + & 194 194 v(k,j+1,i) ) - vg(k) ) & 195 - fs * ( 0.25 *&195 - fs * ( 0.25_wp * & 196 196 ( w(k-1,j,i-1) + w(k-1,j,i) + w(k,j,i-1) & 197 197 + w(k,j,i) ) & … … 211 211 DO k = 1, nzt 212 212 IF ( k > nzb_v_inner(j,i) ) THEN 213 tend(k,j,i) = tend(k,j,i) - f * ( 0.25 *&213 tend(k,j,i) = tend(k,j,i) - f * ( 0.25_wp * & 214 214 ( u(k,j-1,i) + u(k,j,i) + u(k,j-1,i+1) + & 215 215 u(k,j,i+1) ) - ug(k) ) … … 228 228 DO k = 1, nzt 229 229 IF ( k > nzb_w_inner(j,i) ) THEN 230 tend(k,j,i) = tend(k,j,i) + fs * 0.25 *&230 tend(k,j,i) = tend(k,j,i) + fs * 0.25_wp * & 231 231 ( u(k,j,i) + u(k+1,j,i) + u(k,j,i+1) + & 232 232 u(k+1,j,i+1) ) … … 278 278 CASE ( 1 ) 279 279 DO k = nzb_u_inner(j,i)+1, nzt 280 tend(k,j,i) = tend(k,j,i) + f * ( 0.25 *&280 tend(k,j,i) = tend(k,j,i) + f * ( 0.25_wp * & 281 281 ( v(k,j,i-1) + v(k,j,i) + v(k,j+1,i-1) + & 282 282 v(k,j+1,i) ) - vg(k) ) & 283 - fs * ( 0.25 *&283 - fs * ( 0.25_wp * & 284 284 ( w(k-1,j,i-1) + w(k-1,j,i) + w(k,j,i-1) + & 285 285 w(k,j,i) ) ) … … 290 290 CASE ( 2 ) 291 291 DO k = nzb_v_inner(j,i)+1, nzt 292 tend(k,j,i) = tend(k,j,i) - f * ( 0.25 *&292 tend(k,j,i) = tend(k,j,i) - f * ( 0.25_wp * & 293 293 ( u(k,j-1,i) + u(k,j,i) + u(k,j-1,i+1) + & 294 294 u(k,j,i+1) ) - ug(k) ) … … 299 299 CASE ( 3 ) 300 300 DO k = nzb_w_inner(j,i)+1, nzt 301 tend(k,j,i) = tend(k,j,i) + fs * 0.25 *&301 tend(k,j,i) = tend(k,j,i) + fs * 0.25_wp * & 302 302 ( u(k,j,i) + u(k+1,j,i) + u(k,j,i+1) + & 303 303 u(k+1,j,i+1) )
Note: See TracChangeset
for help on using the changeset viewer.