Changeset 4716 for palm/trunk/SOURCE

Timestamp:

Sep 30, 2020 10:06:37 PM (4 years ago)

Author:

pavelkrc

Message:

Partially revert LSM change (ghf at water surfaces)

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Revert change at water surfaces (previous)
+!
+! 4713 2020-09-29 12:02:05Z pavelkrc
 ! - Optimize calculation in case of calc_soil_moisture=false
 ! - Improve OMP parallelization
@@ -2045 +2048 @@
 !--    Implicit solution when the surface layer has no heat capacity,
 !--    otherwise use RK3 scheme.
-       IF ( surf%water_surface(m) )  THEN
-!
-!--       water temperature is fixed (avoid numerical inaccuracies)
-          surf_t_surface_p%var_1d(m) = surf_t_surface%var_1d(m)
-       ELSE
-          surf_t_surface_p%var_1d(m) = ( coef_1 * dt_3d * tsc(2) + c_surface_tmp * &
-                          surf_t_surface%var_1d(m) ) / ( c_surface_tmp + coef_2    &
+       surf_t_surface_p%var_1d(m) = ( coef_1 * dt_3d * tsc(2) + c_surface_tmp *&
+                          surf_t_surface%var_1d(m) ) / ( c_surface_tmp + coef_2&
                                              * dt_3d * tsc(2) )
-       ENDIF
+
 !
 !--    Add RK3 term