Changeset 3421 for palm/trunk/SOURCE/sum_up_3d_data.f90
- Timestamp:
- Oct 24, 2018 6:39:32 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/sum_up_3d_data.f90
r3337 r3421 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Renamed output variables 28 ! 29 ! 3337 2018-10-12 15:17:09Z kanani 27 30 ! (from branch resler) 28 31 ! Add biometeorology, … … 331 334 e_av = 0.0_wp 332 335 333 CASE ( ' lpt' )336 CASE ( 'thetal' ) 334 337 IF ( .NOT. ALLOCATED( lpt_av ) ) THEN 335 338 ALLOCATE( lpt_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ) … … 367 370 pr_av = 0.0_wp 368 371 369 CASE ( ' pt' )372 CASE ( 'theta' ) 370 373 IF ( .NOT. ALLOCATED( pt_av ) ) THEN 371 374 ALLOCATE( pt_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ) … … 457 460 u_av = 0.0_wp 458 461 459 CASE ( 'u *' )462 CASE ( 'us*' ) 460 463 IF ( .NOT. ALLOCATED( us_av ) ) THEN 461 464 ALLOCATE( us_av(nysg:nyng,nxlg:nxrg) ) … … 469 472 v_av = 0.0_wp 470 473 471 CASE ( ' vpt' )474 CASE ( 'thetav' ) 472 475 IF ( .NOT. ALLOCATED( vpt_av ) ) THEN 473 476 ALLOCATE( vpt_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ) … … 609 612 ENDIF 610 613 611 CASE ( ' lpt' )614 CASE ( 'thetal' ) 612 615 IF ( ALLOCATED( lpt_av ) ) THEN 613 616 DO i = nxlg, nxrg … … 712 715 ENDIF 713 716 714 CASE ( ' pt' )717 CASE ( 'theta' ) 715 718 IF ( ALLOCATED( pt_av ) ) THEN 716 719 IF ( .NOT. bulk_cloud_model ) THEN … … 1005 1008 ENDIF 1006 1009 1007 CASE ( 'u *' )1010 CASE ( 'us*' ) 1008 1011 IF ( ALLOCATED( us_av ) ) THEN 1009 1012 DO i = nxl, nxr … … 1044 1047 ENDIF 1045 1048 1046 CASE ( ' vpt' )1049 CASE ( 'thetav' ) 1047 1050 IF ( ALLOCATED( vpt_av ) ) THEN 1048 1051 DO i = nxlg, nxrg
Note: See TracChangeset
for help on using the changeset viewer.