Changeset 1695 for palm/trunk

Timestamp:

Oct 27, 2015 10:03:11 AM (9 years ago)

Author:

maronga

Message:

relicts of rif removed

Location:

palm/trunk/SOURCE

Files:

• land_surface_model.f90 (modified) (3 diffs)
• modules.f90 (modified) (2 diffs)

palm/trunk/SOURCE/land_surface_model.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Replaced rif with ol
 ! 
 ! Former revisions:
@@ -93 +93 @@
  
     USE arrays_3d,                                                             &
-        ONLY:  hyp, pt, pt_p, q, q_p, ql, qsws, rif, shf, ts, us, vpt, z0, z0h
+        ONLY:  hyp, ol, pt, pt_p, q, q_p, ql, qsws, shf, ts, us, vpt, z0, z0h
 
     USE cloud_parameters,                                                      &
@@ -970 +970 @@
 !
 !--          Set lambda_surface according to stratification
-             IF ( rif(j,i) >= 0.0_wp )  THEN
+             IF ( ol(j,i) >= 0.0_wp )  THEN
                 lambda_surface = lambda_surface_s(j,i)
              ELSE

palm/trunk/SOURCE/modules.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! Removed rif (forgotten in last revision)
 ! 
 ! Former revisions:
@@ -360 +360 @@
           ol,                                                                  & !< Obukhov length
           ptnudge, pt_slope_ref,                                               &
-          qnudge, qs, qsws, qswst, qswst_remote, qrs, qrsws, qrswst, rif,      &
+          qnudge, qs, qsws, qswst, qswst_remote, qrs, qrsws, qrswst,           &
           saswsb, saswst, shf, tnudge, td_lsa_lpt, td_lsa_q, td_sub_lpt,       &
           td_sub_q, total_2d_a, total_2d_o, ts, tswst, ug_vert, unudge, us,    &