Changeset 354 for palm/trunk/SOURCE/data_output_2d.f90
- Timestamp:
- Jul 13, 2009 1:14:25 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_2d.f90
r343 r354 375 375 IF ( mode == 'xy' ) level_z = zu 376 376 377 CASE ( 'qsws*_xy' ) ! 2d-array 378 IF ( av == 0 ) THEN 379 DO i = nxl-1, nxr+1 380 DO j = nys-1, nyn+1 381 local_pf(i,j,nzb+1) = qsws(j,i) 382 ENDDO 383 ENDDO 384 ELSE 385 DO i = nxl-1, nxr+1 386 DO j = nys-1, nyn+1 387 local_pf(i,j,nzb+1) = qsws_av(j,i) 388 ENDDO 389 ENDDO 390 ENDIF 391 resorted = .TRUE. 392 two_d = .TRUE. 393 level_z(nzb+1) = zu(nzb+1) 394 377 395 CASE ( 'qv_xy', 'qv_xz', 'qv_yz' ) 378 396 IF ( av == 0 ) THEN … … 410 428 to_be_resorted => sa_av 411 429 ENDIF 430 431 CASE ( 'shf*_xy' ) ! 2d-array 432 IF ( av == 0 ) THEN 433 DO i = nxl-1, nxr+1 434 DO j = nys-1, nyn+1 435 local_pf(i,j,nzb+1) = shf(j,i) 436 ENDDO 437 ENDDO 438 ELSE 439 DO i = nxl-1, nxr+1 440 DO j = nys-1, nyn+1 441 local_pf(i,j,nzb+1) = shf_av(j,i) 442 ENDDO 443 ENDDO 444 ENDIF 445 resorted = .TRUE. 446 two_d = .TRUE. 447 level_z(nzb+1) = zu(nzb+1) 412 448 413 449 CASE ( 't*_xy' ) ! 2d-array
Note: See TracChangeset
for help on using the changeset viewer.