Ignore:
Timestamp:
Oct 24, 2018 6:39:32 PM (3 years ago)
Author:
gronemeier
Message:

new surface-data output; renamed output variables (pt to theta, rho_air to rho, rho_ocean to rho_sea_water)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/sum_up_3d_data.f90

    r3337 r3421  
    2525! -----------------
    2626! $Id$
     27! Renamed output variables
     28!
     29! 3337 2018-10-12 15:17:09Z kanani
    2730! (from branch resler)
    2831! Add biometeorology,
     
    331334                e_av = 0.0_wp
    332335
    333              CASE ( 'lpt' )
     336             CASE ( 'thetal' )
    334337                IF ( .NOT. ALLOCATED( lpt_av ) )  THEN
    335338                   ALLOCATE( lpt_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     
    367370                pr_av = 0.0_wp
    368371
    369              CASE ( 'pt' )
     372             CASE ( 'theta' )
    370373                IF ( .NOT. ALLOCATED( pt_av ) )  THEN
    371374                   ALLOCATE( pt_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     
    457460                u_av = 0.0_wp
    458461
    459              CASE ( 'u*' )
     462             CASE ( 'us*' )
    460463                IF ( .NOT. ALLOCATED( us_av ) )  THEN
    461464                   ALLOCATE( us_av(nysg:nyng,nxlg:nxrg) )
     
    469472                v_av = 0.0_wp
    470473
    471              CASE ( 'vpt' )
     474             CASE ( 'thetav' )
    472475                IF ( .NOT. ALLOCATED( vpt_av ) )  THEN
    473476                   ALLOCATE( vpt_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     
    609612             ENDIF
    610613
    611           CASE ( 'lpt' )
     614          CASE ( 'thetal' )
    612615             IF ( ALLOCATED( lpt_av ) ) THEN
    613616                DO  i = nxlg, nxrg
     
    712715             ENDIF
    713716
    714           CASE ( 'pt' )
     717          CASE ( 'theta' )
    715718             IF ( ALLOCATED( pt_av ) ) THEN
    716719                IF ( .NOT. bulk_cloud_model ) THEN
     
    10051008             ENDIF
    10061009
    1007           CASE ( 'u*' )
     1010          CASE ( 'us*' )
    10081011             IF ( ALLOCATED( us_av ) ) THEN   
    10091012                DO  i = nxl, nxr
     
    10441047             ENDIF
    10451048
    1046           CASE ( 'vpt' )
     1049          CASE ( 'thetav' )
    10471050             IF ( ALLOCATED( vpt_av ) ) THEN
    10481051                DO  i = nxlg, nxrg
Note: See TracChangeset for help on using the changeset viewer.