Changeset 4552 for palm


Ignore:
Timestamp:
Jun 2, 2020 8:33:29 PM (4 years ago)
Author:
moh.hefny
Message:

Bugfix: remove IF statement in the emissivity coupling parameter for radiation-RTM

File:
1 edited

Legend:

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

    r4535 r4552  
    2828! -----------------
    2929! $Id$
     30! Bugfix in IF statement in the emissivity coupling parameter for radiation-RTM
     31!
     32! 4535 2020-05-15 12:07:23Z raasch
    3033! bugfix for restart data format query
    3134!
     
    66416644!-    emissivity_urb weighted average of surface and PC emissivity
    66426645!-    = absorbed LW in [surfaces + plant canopy] / pinlw
    6643      IF ( pinsw /= 0.0_wp )                                                         &
    6644           emissivity_urb = (pabs_surf_lwdif + pabs_pc_lwdif) / pinlw
     6646     emissivity_urb = (pabs_surf_lwdif + pabs_pc_lwdif) / pinlw
    66456647
    66466648!-    (3) temperature
Note: See TracChangeset for help on using the changeset viewer.