Changeset 2378 for palm


Ignore:
Timestamp:
Aug 31, 2017 1:57:27 PM (7 years ago)
Author:
suehring
Message:

Bugfix in write restart data

File:
1 edited

Legend:

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

    r2339 r2378  
    2525! -----------------
    2626! $Id$
     27! Bugfix in write restart data
     28!
     29! 2339 2017-08-07 13:55:26Z gronemeier
    2730! corrected timestamp in header
    2831!
     
    17931796                      surf_h(l)%qsws(mm(l))    = surf_def_h(l)%qsws(m)
    17941797                   IF ( ALLOCATED( surf_def_h(l)%ssws ) )                      &
    1795                       surf_h(l)%qsws(mm(l))    = surf_def_h(l)%ssws(m)
     1798                      surf_h(l)%ssws(mm(l))    = surf_def_h(l)%ssws(m)
    17961799                   IF ( ALLOCATED( surf_def_h(l)%ncsws ) )                     &
    17971800                      surf_h(l)%ncsws(mm(l))   = surf_def_h(l)%ncsws(m)
     
    18361839                         surf_h(0)%qsws(mm(0))    = surf_lsm_h%qsws(m)
    18371840                      IF ( ALLOCATED( surf_lsm_h%ssws ) )                      &
    1838                          surf_h(0)%qsws(mm(0))    = surf_lsm_h%ssws(m)
     1841                         surf_h(0)%ssws(mm(0))    = surf_lsm_h%ssws(m)
    18391842                      IF ( ALLOCATED( surf_lsm_h%ncsws ) )                     &
    18401843                         surf_h(0)%ncsws(mm(0))   = surf_lsm_h%ncsws(m)
     
    18791882                         surf_h(0)%qsws(mm(0))    = surf_usm_h%qsws(m)
    18801883                      IF ( ALLOCATED( surf_usm_h%ssws ) )                      &
    1881                          surf_h(0)%qsws(mm(0))    = surf_usm_h%ssws(m)
     1884                         surf_h(0)%ssws(mm(0))    = surf_usm_h%ssws(m)
    18821885                      IF ( ALLOCATED( surf_usm_h%ncsws ) )                     &
    18831886                         surf_h(0)%ncsws(mm(0))   = surf_usm_h%ncsws(m)
     
    19421945                      surf_v(l)%qsws(mm(l))    = surf_def_v(l)%qsws(m)
    19431946                   IF ( ALLOCATED( surf_def_v(l)%ssws ) )                      &
    1944                       surf_v(l)%qsws(mm(l))    = surf_def_v(l)%ssws(m)
     1947                      surf_v(l)%ssws(mm(l))    = surf_def_v(l)%ssws(m)
    19451948                   IF ( ALLOCATED( surf_def_v(l)%ncsws ) )                     &
    19461949                      surf_v(l)%ncsws(mm(l))   = surf_def_v(l)%ncsws(m)
     
    19901993                      surf_v(l)%qsws(mm(l))    = surf_lsm_v(l)%qsws(m)
    19911994                   IF ( ALLOCATED( surf_lsm_v(l)%ssws ) )                      &
    1992                       surf_v(l)%qsws(mm(l))    = surf_lsm_v(l)%ssws(m)
     1995                      surf_v(l)%ssws(mm(l))    = surf_lsm_v(l)%ssws(m)
    19931996                   IF ( ALLOCATED( surf_lsm_v(l)%ncsws ) )                     &
    19941997                      surf_v(l)%ncsws(mm(l))   = surf_lsm_v(l)%ncsws(m)
     
    20382041                      surf_v(l)%qsws(mm(l))    = surf_usm_v(l)%qsws(m)
    20392042                   IF ( ALLOCATED( surf_usm_v(l)%ssws ) )                      &
    2040                       surf_v(l)%qsws(mm(l))    = surf_usm_v(l)%ssws(m)
     2043                      surf_v(l)%ssws(mm(l))    = surf_usm_v(l)%ssws(m)
    20412044                   IF ( ALLOCATED( surf_usm_v(l)%ncsws ) )                     &
    20422045                      surf_v(l)%ncsws(mm(l))   = surf_usm_v(l)%ncsws(m)
Note: See TracChangeset for help on using the changeset viewer.