Changeset 1949 for palm/trunk/SOURCE/land_surface_model_mod.f90

Timestamp:

Jun 17, 2016 7:19:16 AM (8 years ago)

Author:

maronga

Message:

bugfixes in output of land surface variables

File:

• palm/trunk/SOURCE/land_surface_model_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: calculation of qsws_soil_eb with precipitation = .TRUE. gave
+! qsws_soil_eb = 0 due to a typo
 ! 
 ! Former revisions:
@@ -1415 +1416 @@
 !--                Add precipitation to bare soil according to the bare soil
 !--                coverage.
-                   qsws_soil_eb(j,i) = qsws_soil_eb(j,i) * (1.0_wp             &
+                   qsws_soil_eb(j,i) = qsws_soil_eb(j,i) + (1.0_wp             &
                                        - c_veg(j,i)) * prr(k,j,i) * hyrho(k)   &
                                        * 0.001_wp * rho_l * l_v
@@ -1432 +1433 @@
                       qsws_soil_eb(j,i) = qsws_soil_eb(j,i)                    &
                                            + qsws_liq_eb(j,i)
+
                       qsws_liq_eb(j,i)  = 0.0_wp
                    ENDIF