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

Timestamp:

May 31, 2017 10:34:53 AM (7 years ago)

Author:

suehring

Message:

Bugfixes in Makefile and land_surface_model_mod

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in write restart data
+! 
+! 2233 2017-05-30 18:08:54Z suehring
 !
 ! 2232 2017-05-30 17:47:52Z suehring
@@ -167 +170 @@
 !> DALES and UCLA-LES models.
 !>
+!> @todo Restart data for vertical natural land-surfaces
 !> @todo Extensive verification energy-balance solver for vertical surfaces, 
 !>       e.g. parametrization of r_a
@@ -3772 +3776 @@
           WRITE ( 14 )  'lai_av              ';  WRITE ( 14 )  lai_av
        ENDIF
-       WRITE ( 14 )     'm_liq_eb            ';  WRITE ( 14 )  m_liq_eb_h
+       WRITE ( 14 )     'm_liq_eb            ';  WRITE ( 14 )  m_liq_eb_h%var_1d
        IF ( ALLOCATED( m_liq_eb_av ) )  THEN
           WRITE ( 14 )  'm_liq_eb_av         ';  WRITE ( 14 )  m_liq_eb_av
        ENDIF
-       WRITE ( 14 )     'm_soil              ';  WRITE ( 14 )  m_soil_h
+       WRITE ( 14 )     'm_soil              ';  WRITE ( 14 )  m_soil_h%var_2d
        IF ( ALLOCATED( m_soil_av ) )  THEN
           WRITE ( 14 )  'm_soil_av           ';  WRITE ( 14 )  m_soil_av
@@ -3795 +3799 @@
           WRITE ( 14 )  'shf_eb_av           ';  WRITE ( 14 )  shf_eb_av
        ENDIF
-       WRITE ( 14 )     't_soil              ';  WRITE ( 14 )  t_soil_h
+       WRITE ( 14 )     't_soil              ';  WRITE ( 14 )  t_soil_h%var_2d
        IF ( ALLOCATED( t_soil_av ) )  THEN
           WRITE ( 14 )  't_soil_av           ';  WRITE ( 14 )  t_soil_av