Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/surface_mod.f90

    r3418 r3444  
    2626! -----------------
    2727! $Id$
     28! Bugfix in surface_wrd_local for cloud and rain water flux
     29!
     30! 3418 2018-10-24 16:07:39Z kanani
    2831! -Parameters for latent heat flux in usm, usm averages (rvtils)
    2932!
     
    27352738                      ENDDO
    27362739                   ENDIF
     2740                   IF ( ALLOCATED( surf_def_h(l)%qcsws ) )                     &
     2741                      surf_h(l)%qcsws(mm(l))   = surf_def_h(l)%qcsws(m)
     2742                   IF ( ALLOCATED( surf_def_h(l)%qrsws ) )                     &
     2743                      surf_h(l)%qrsws(mm(l))   = surf_def_h(l)%qrsws(m)
    27372744                   IF ( ALLOCATED( surf_def_h(l)%ncsws ) )                     &
    27382745                      surf_h(l)%ncsws(mm(l))   = surf_def_h(l)%ncsws(m)
     
    27942801                         ENDDO
    27952802                      ENDIF
     2803                      IF ( ALLOCATED( surf_lsm_h%qcsws ) )                     &
     2804                         surf_h(0)%qcsws(mm(0))   = surf_lsm_h%qcsws(m)
     2805                      IF ( ALLOCATED( surf_lsm_h%qrsws ) )                     &
     2806                         surf_h(0)%qrsws(mm(0))   = surf_lsm_h%qrsws(m)
    27962807                      IF ( ALLOCATED( surf_lsm_h%ncsws ) )                     &
    27972808                         surf_h(0)%ncsws(mm(0))   = surf_lsm_h%ncsws(m)
     
    28532864                         ENDDO
    28542865                      ENDIF
     2866                      IF ( ALLOCATED( surf_usm_h%qcsws ) )                     &
     2867                         surf_h(0)%qcsws(mm(0))   = surf_usm_h%qcsws(m)
     2868                      IF ( ALLOCATED( surf_usm_h%qrsws ) )                     &
     2869                         surf_h(0)%qrsws(mm(0))   = surf_usm_h%qrsws(m)
    28552870                      IF ( ALLOCATED( surf_usm_h%ncsws ) )                     &
    28562871                         surf_h(0)%ncsws(mm(0))   = surf_usm_h%ncsws(m)
     
    29492964                      ENDDO
    29502965                   ENDIF
     2966                   IF ( ALLOCATED( surf_def_v(l)%qcsws ) )                     &
     2967                      surf_v(l)%qcsws(mm(l))   = surf_def_v(l)%qcsws(m)
     2968                   IF ( ALLOCATED( surf_def_v(l)%qrsws ) )                     &
     2969                      surf_v(l)%qrsws(mm(l))   = surf_def_v(l)%qrsws(m)
    29512970                   IF ( ALLOCATED( surf_def_v(l)%ncsws ) )                     &
    29522971                      surf_v(l)%ncsws(mm(l))   = surf_def_v(l)%ncsws(m)
     
    30133032                      ENDDO
    30143033                   ENDIF
     3034                   IF ( ALLOCATED( surf_lsm_v(l)%qcsws ) )                     &
     3035                      surf_v(l)%qcsws(mm(l))   = surf_lsm_v(l)%qcsws(m)
     3036                   IF ( ALLOCATED( surf_lsm_v(l)%qrsws ) )                     &
     3037                      surf_v(l)%qrsws(mm(l))   = surf_lsm_v(l)%qrsws(m)
    30153038                   IF ( ALLOCATED( surf_lsm_v(l)%ncsws ) )                     &
    30163039                      surf_v(l)%ncsws(mm(l))   = surf_lsm_v(l)%ncsws(m)
     
    30773100                      ENDDO
    30783101                   ENDIF
     3102                   IF ( ALLOCATED( surf_usm_v(l)%qcsws ) )                     &
     3103                      surf_v(l)%qcsws(mm(l))   = surf_usm_v(l)%qcsws(m)
     3104                   IF ( ALLOCATED( surf_usm_v(l)%qrsws ) )                     &
     3105                      surf_v(l)%qrsws(mm(l))   = surf_usm_v(l)%qrsws(m)
    30793106                   IF ( ALLOCATED( surf_usm_v(l)%ncsws ) )                     &
    30803107                      surf_v(l)%ncsws(mm(l))   = surf_usm_v(l)%ncsws(m)
Note: See TracChangeset for help on using the changeset viewer.