Ignore:
Timestamp:
Oct 21, 2016 3:11:58 PM (5 years ago)
Author:
knoop
Message:

Renamed variable rho to rho_ocean, rho_init to rho_ocean_init and rho_av to rho_ocean_av

File:
1 edited

Legend:

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

    r2025 r2031  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! renamed variable rho to rho_ocean and rho_av to rho_ocean_av
    2323!
    2424! Former revisions:
     
    130130    USE arrays_3d,                                                             &
    131131        ONLY:  dzw, e, nr, ol, p, pt, precipitation_rate, q, qc, ql, ql_c,     &
    132                ql_v, qr, qsws, rho, s, sa, shf, ssws, ts, u, us, v, vpt, w, z0,&
     132               ql_v, qr, qsws, rho_ocean, s, sa, shf, ssws, ts, u, us, v, vpt, w, z0,&
    133133               z0h, z0q
    134134
     
    136136        ONLY:  e_av, lpt_av, lwp_av, nr_av, ol_av, p_av, pc_av, pr_av, prr_av, &
    137137               precipitation_rate_av, pt_av, q_av, qc_av, ql_av, ql_c_av,      &
    138                ql_v_av, ql_vp_av, qr_av, qsws_av, qv_av, rho_av, s_av, sa_av,  &
     138               ql_v_av, ql_vp_av, qr_av, qsws_av, qv_av, rho_ocean_av, s_av, sa_av,  &
    139139               shf_av, ssws_av, ts_av, u_av, us_av, v_av, vpt_av, w_av, z0_av, &
    140140               z0h_av, z0q_av
     
    323323                qv_av = 0.0_wp
    324324
    325              CASE ( 'rho' )
    326                 IF ( .NOT. ALLOCATED( rho_av ) )  THEN
    327                    ALLOCATE( rho_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    328                 ENDIF
    329                 rho_av = 0.0_wp
     325             CASE ( 'rho_ocean' )
     326                IF ( .NOT. ALLOCATED( rho_ocean_av ) )  THEN
     327                   ALLOCATE( rho_ocean_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     328                ENDIF
     329                rho_ocean_av = 0.0_wp
    330330
    331331             CASE ( 's' )
     
    657657             ENDDO
    658658
    659           CASE ( 'rho' )
    660              DO  i = nxlg, nxrg
    661                 DO  j = nysg, nyng
    662                    DO  k = nzb, nzt+1
    663                       rho_av(k,j,i) = rho_av(k,j,i) + rho(k,j,i)
     659          CASE ( 'rho_ocean' )
     660             DO  i = nxlg, nxrg
     661                DO  j = nysg, nyng
     662                   DO  k = nzb, nzt+1
     663                      rho_ocean_av(k,j,i) = rho_ocean_av(k,j,i) + rho_ocean(k,j,i)
    664664                   ENDDO
    665665                ENDDO
Note: See TracChangeset for help on using the changeset viewer.