Changeset 2378 for palm

Timestamp:

Aug 31, 2017 1:57:27 PM (7 years ago)

Author:

suehring

Message:

Bugfix in write restart data

File:

• palm/trunk/SOURCE/surface_mod.f90 (modified) (7 diffs)

palm/trunk/SOURCE/surface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in write restart data
+! 
+! 2339 2017-08-07 13:55:26Z gronemeier
 ! corrected timestamp in header
 ! 
@@ -1793 +1796 @@
                       surf_h(l)%qsws(mm(l))    = surf_def_h(l)%qsws(m)
                    IF ( ALLOCATED( surf_def_h(l)%ssws ) )                      &
-                      surf_h(l)%qsws(mm(l))    = surf_def_h(l)%ssws(m)
+                      surf_h(l)%ssws(mm(l))    = surf_def_h(l)%ssws(m)
                    IF ( ALLOCATED( surf_def_h(l)%ncsws ) )                     &
                       surf_h(l)%ncsws(mm(l))   = surf_def_h(l)%ncsws(m)
@@ -1836 +1839 @@
                          surf_h(0)%qsws(mm(0))    = surf_lsm_h%qsws(m)
                       IF ( ALLOCATED( surf_lsm_h%ssws ) )                      &
-                         surf_h(0)%qsws(mm(0))    = surf_lsm_h%ssws(m)
+                         surf_h(0)%ssws(mm(0))    = surf_lsm_h%ssws(m)
                       IF ( ALLOCATED( surf_lsm_h%ncsws ) )                     &
                          surf_h(0)%ncsws(mm(0))   = surf_lsm_h%ncsws(m)
@@ -1879 +1882 @@
                          surf_h(0)%qsws(mm(0))    = surf_usm_h%qsws(m)
                       IF ( ALLOCATED( surf_usm_h%ssws ) )                      &
-                         surf_h(0)%qsws(mm(0))    = surf_usm_h%ssws(m)
+                         surf_h(0)%ssws(mm(0))    = surf_usm_h%ssws(m)
                       IF ( ALLOCATED( surf_usm_h%ncsws ) )                     &
                          surf_h(0)%ncsws(mm(0))   = surf_usm_h%ncsws(m)
@@ -1942 +1945 @@
                       surf_v(l)%qsws(mm(l))    = surf_def_v(l)%qsws(m)
                    IF ( ALLOCATED( surf_def_v(l)%ssws ) )                      &
-                      surf_v(l)%qsws(mm(l))    = surf_def_v(l)%ssws(m)
+                      surf_v(l)%ssws(mm(l))    = surf_def_v(l)%ssws(m)
                    IF ( ALLOCATED( surf_def_v(l)%ncsws ) )                     &
                       surf_v(l)%ncsws(mm(l))   = surf_def_v(l)%ncsws(m)
@@ -1990 +1993 @@
                       surf_v(l)%qsws(mm(l))    = surf_lsm_v(l)%qsws(m)
                    IF ( ALLOCATED( surf_lsm_v(l)%ssws ) )                      &
-                      surf_v(l)%qsws(mm(l))    = surf_lsm_v(l)%ssws(m)
+                      surf_v(l)%ssws(mm(l))    = surf_lsm_v(l)%ssws(m)
                    IF ( ALLOCATED( surf_lsm_v(l)%ncsws ) )                     &
                       surf_v(l)%ncsws(mm(l))   = surf_lsm_v(l)%ncsws(m)
@@ -2038 +2041 @@
                       surf_v(l)%qsws(mm(l))    = surf_usm_v(l)%qsws(m)
                    IF ( ALLOCATED( surf_usm_v(l)%ssws ) )                      &
-                      surf_v(l)%qsws(mm(l))    = surf_usm_v(l)%ssws(m)
+                      surf_v(l)%ssws(mm(l))    = surf_usm_v(l)%ssws(m)
                    IF ( ALLOCATED( surf_usm_v(l)%ncsws ) )                     &
                       surf_v(l)%ncsws(mm(l))   = surf_usm_v(l)%ncsws(m)