Changeset 3715 for palm


Ignore:
Timestamp:
Feb 4, 2019 5:34:55 PM (3 years ago)
Author:
suehring
Message:

Revise check for saturation moisture

File:
1 edited

Legend:

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

    r3710 r3715  
    2525! -----------------
    2626! $Id$
     27! Revise check for saturation moisture
     28!
     29! 3710 2019-01-30 18:11:19Z suehring
    2730! Check if soil-, water-, pavement- and vegetation types are set within a valid
    2831! range.
     
    45434546                  surf_lsm_h%pavement_surface(m) )  THEN
    45444547                DO  k = nzb_soil, nzt_soil
    4545                    IF ( m_soil_h%var_2d(k,m) >= surf_lsm_h%m_sat(k,m) )  THEN
     4548                   IF ( m_soil_h%var_2d(k,m) > surf_lsm_h%m_sat(k,m) )  THEN
    45464549                      WRITE( message_string, * ) 'soil moisture is higher '//  &
    45474550                            'than its saturation value at (k,j,i) ', k,        &
     
    45574560                     surf_lsm_v(l)%pavement_surface(m) )  THEN
    45584561                   DO  k = nzb_soil, nzt_soil
    4559                       IF ( m_soil_v(l)%var_2d(k,m) >= surf_lsm_v(l)%m_sat(k,m) )  &
     4562                      IF ( m_soil_v(l)%var_2d(k,m) > surf_lsm_v(l)%m_sat(k,m) )  &
    45604563                      THEN
    45614564                         WRITE( message_string, * )                               &
Note: See TracChangeset for help on using the changeset viewer.