Changeset 1695 for palm/trunk/SOURCE/land_surface_model.f90

Timestamp:

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

Author:

maronga

Message:

relicts of rif removed

File:

• palm/trunk/SOURCE/land_surface_model.f90 (modified) (3 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