Changeset 3444 for palm/trunk/SOURCE/surface_mod.f90

Timestamp:

Oct 29, 2018 10:31:52 AM (6 years ago)

Author:

schwenkel

Message:

Bugfix in surface_wrd_local for cloud and rain water flux

File:

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

palm/trunk/SOURCE/surface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Bugfix in surface_wrd_local for cloud and rain water flux
+! 
+! 3418 2018-10-24 16:07:39Z kanani
 ! -Parameters for latent heat flux in usm, usm averages (rvtils)
 ! 
@@ -2735 +2738 @@
                       ENDDO
                    ENDIF
+                   IF ( ALLOCATED( surf_def_h(l)%qcsws ) )                     &
+                      surf_h(l)%qcsws(mm(l))   = surf_def_h(l)%qcsws(m)
+                   IF ( ALLOCATED( surf_def_h(l)%qrsws ) )                     &
+                      surf_h(l)%qrsws(mm(l))   = surf_def_h(l)%qrsws(m)
                    IF ( ALLOCATED( surf_def_h(l)%ncsws ) )                     &
                       surf_h(l)%ncsws(mm(l))   = surf_def_h(l)%ncsws(m)
@@ -2794 +2801 @@
                          ENDDO 
                       ENDIF
+                      IF ( ALLOCATED( surf_lsm_h%qcsws ) )                     &
+                         surf_h(0)%qcsws(mm(0))   = surf_lsm_h%qcsws(m)
+                      IF ( ALLOCATED( surf_lsm_h%qrsws ) )                     &
+                         surf_h(0)%qrsws(mm(0))   = surf_lsm_h%qrsws(m)
                       IF ( ALLOCATED( surf_lsm_h%ncsws ) )                     &
                          surf_h(0)%ncsws(mm(0))   = surf_lsm_h%ncsws(m)
@@ -2853 +2864 @@
                          ENDDO
                       ENDIF
+                      IF ( ALLOCATED( surf_usm_h%qcsws ) )                     &
+                         surf_h(0)%qcsws(mm(0))   = surf_usm_h%qcsws(m)
+                      IF ( ALLOCATED( surf_usm_h%qrsws ) )                     &
+                         surf_h(0)%qrsws(mm(0))   = surf_usm_h%qrsws(m)
                       IF ( ALLOCATED( surf_usm_h%ncsws ) )                     &
                          surf_h(0)%ncsws(mm(0))   = surf_usm_h%ncsws(m)
@@ -2949 +2964 @@
                       ENDDO
                    ENDIF
+                   IF ( ALLOCATED( surf_def_v(l)%qcsws ) )                     &
+                      surf_v(l)%qcsws(mm(l))   = surf_def_v(l)%qcsws(m)
+                   IF ( ALLOCATED( surf_def_v(l)%qrsws ) )                     &
+                      surf_v(l)%qrsws(mm(l))   = surf_def_v(l)%qrsws(m)
                    IF ( ALLOCATED( surf_def_v(l)%ncsws ) )                     &
                       surf_v(l)%ncsws(mm(l))   = surf_def_v(l)%ncsws(m)
@@ -3013 +3032 @@
                       ENDDO
                    ENDIF
+                   IF ( ALLOCATED( surf_lsm_v(l)%qcsws ) )                     &
+                      surf_v(l)%qcsws(mm(l))   = surf_lsm_v(l)%qcsws(m)
+                   IF ( ALLOCATED( surf_lsm_v(l)%qrsws ) )                     &
+                      surf_v(l)%qrsws(mm(l))   = surf_lsm_v(l)%qrsws(m)
                    IF ( ALLOCATED( surf_lsm_v(l)%ncsws ) )                     &
                       surf_v(l)%ncsws(mm(l))   = surf_lsm_v(l)%ncsws(m)
@@ -3077 +3100 @@
                       ENDDO
                    ENDIF
+                   IF ( ALLOCATED( surf_usm_v(l)%qcsws ) )                     &
+                      surf_v(l)%qcsws(mm(l))   = surf_usm_v(l)%qcsws(m)
+                   IF ( ALLOCATED( surf_usm_v(l)%qrsws ) )                     &
+                      surf_v(l)%qrsws(mm(l))   = surf_usm_v(l)%qrsws(m)
                    IF ( ALLOCATED( surf_usm_v(l)%ncsws ) )                     &
                       surf_v(l)%ncsws(mm(l))   = surf_usm_v(l)%ncsws(m)