Changeset 2572 for palm/trunk

Timestamp:

Oct 20, 2017 3:38:29 PM (7 years ago)

Author:

scharf

Message:

bugfixes in lsm_last_actions

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! bugfixes in last_actions
 ! 
 ! Former revisions:
@@ -4279 +4279 @@
        ENDIF
        IF ( ALLOCATED( ghf_av ) )  THEN
-          WRITE ( 14 )  'ghf_av           ';  WRITE ( 14 )  ghf_av
+          WRITE ( 14 )  'ghf_av              ';  WRITE ( 14 )  ghf_av
        ENDIF
        IF ( ALLOCATED( lai_av ) )  THEN
           WRITE ( 14 )  'lai_av              ';  WRITE ( 14 )  lai_av
        ENDIF
-       WRITE ( 14 )     'm_liq            ';  WRITE ( 14 )  m_liq_h%var_1d
+       WRITE ( 14 )     'm_liq               ';  WRITE ( 14 )  m_liq_h%var_1d
        IF ( ALLOCATED( m_liq_av ) )  THEN
-          WRITE ( 14 )  'm_liq_av         ';  WRITE ( 14 )  m_liq_av
+          WRITE ( 14 )  'm_liq_av            ';  WRITE ( 14 )  m_liq_av
        ENDIF
        WRITE ( 14 )     'm_soil              ';  WRITE ( 14 )  m_soil_h%var_2d
@@ -4293 +4293 @@
        ENDIF
        IF ( ALLOCATED( qsws_liq_av ) )  THEN
-          WRITE ( 14 )  'qsws_liq_av      ';  WRITE ( 14 )  qsws_liq_av
+          WRITE ( 14 )  'qsws_liq_av         ';  WRITE ( 14 )  qsws_liq_av
        ENDIF  
        IF ( ALLOCATED( qsws_soil_av ) )  THEN
-          WRITE ( 14 )  'qsws_soil_av     ';  WRITE ( 14 )  qsws_soil_av
+          WRITE ( 14 )  'qsws_soil_av        ';  WRITE ( 14 )  qsws_soil_av
        ENDIF 
        IF ( ALLOCATED( qsws_veg_av ) )  THEN
-          WRITE ( 14 )  'qsws_veg_av      ';  WRITE ( 14 )  qsws_veg_av
+          WRITE ( 14 )  'qsws_veg_av         ';  WRITE ( 14 )  qsws_veg_av
        ENDIF 
        WRITE ( 14 )     't_soil              ';  WRITE ( 14 )  t_soil_h%var_2d