Changeset 1695 for palm/trunk


Ignore:
Timestamp:
Oct 27, 2015 10:03:11 AM (9 years ago)
Author:
maronga
Message:

relicts of rif removed

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r1692 r1695  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Replaced rif with ol
    2222!
    2323! Former revisions:
     
    9393 
    9494    USE arrays_3d,                                                             &
    95         ONLY:  hyp, pt, pt_p, q, q_p, ql, qsws, rif, shf, ts, us, vpt, z0, z0h
     95        ONLY:  hyp, ol, pt, pt_p, q, q_p, ql, qsws, shf, ts, us, vpt, z0, z0h
    9696
    9797    USE cloud_parameters,                                                      &
     
    970970!
    971971!--          Set lambda_surface according to stratification
    972              IF ( rif(j,i) >= 0.0_wp )  THEN
     972             IF ( ol(j,i) >= 0.0_wp )  THEN
    973973                lambda_surface = lambda_surface_s(j,i)
    974974             ELSE
  • palm/trunk/SOURCE/modules.f90

    r1694 r1695  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Removed rif (forgotten in last revision)
    2222!
    2323! Former revisions:
     
    360360          ol,                                                                  & !< Obukhov length
    361361          ptnudge, pt_slope_ref,                                               &
    362           qnudge, qs, qsws, qswst, qswst_remote, qrs, qrsws, qrswst, rif,      &
     362          qnudge, qs, qsws, qswst, qswst_remote, qrs, qrsws, qrswst,           &
    363363          saswsb, saswst, shf, tnudge, td_lsa_lpt, td_lsa_q, td_sub_lpt,       &
    364364          td_sub_q, total_2d_a, total_2d_o, ts, tswst, ug_vert, unudge, us,    &
Note: See TracChangeset for help on using the changeset viewer.