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/prognostic_equations.f90

    r2012 r2031  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! renamed variable rho to rho_ocean
    2323!
    2424! Former revisions:
     
    215215               nr, nr_p, nrsws, nrswst, pt, ptdf_x, ptdf_y, pt_init, pt_p,     &
    216216               prho, q, q_init, q_p, qsws, qswst, qr, qr_p, qrsws, qrswst, rdf,&
    217                rdf_sc, ref_state, rho, s, s_init, s_p, sa, sa_init, sa_p,      &
     217               rdf_sc, ref_state, rho_ocean, s, s_init, s_p, sa, sa_init, sa_p,      &
    218218               saswsb, saswst, shf, ssws, sswst, tend,                         &
    219219               te_m, tnr_m, tpt_m, tq_m, tqr_m, ts_m, tsa_m, tswst, tu_m, tv_m,&
     
    562562          IF ( .NOT. neutral )  THEN
    563563             IF ( ocean )  THEN
    564                 CALL buoyancy( i, j, rho, 3 )
     564                CALL buoyancy( i, j, rho_ocean, 3 )
    565565             ELSE
    566566                IF ( .NOT. humidity )  THEN
     
    12671267    IF ( .NOT. neutral )  THEN
    12681268       IF ( ocean )  THEN
    1269           CALL buoyancy( rho, 3 )
     1269          CALL buoyancy( rho_ocean, 3 )
    12701270       ELSE
    12711271          IF ( .NOT. humidity )  THEN
     
    22052205    IF ( .NOT. neutral )  THEN
    22062206       IF ( ocean )  THEN
    2207           CALL buoyancy( rho, 3 )
     2207          CALL buoyancy( rho_ocean, 3 )
    22082208       ELSE
    22092209          IF ( .NOT. humidity )  THEN
Note: See TracChangeset for help on using the changeset viewer.