Changeset 4531 for palm/trunk/SOURCE/radiation_model_mod.f90

Timestamp:

May 13, 2020 9:52:22 AM (5 years ago)

Author:

moh.hefny

Message:

update test cases and bugfix in radiation module in non-parallel case

File:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Bugfix in gather flux pabs_pc_lwdif in non_parallel case
+!
+! 4529 2020-05-12 09:14:57Z moh.hefny
 ! - added the following new features to the coupling of RTM-radiation model:
 !   1) considering the vegetation interaction with LW in the coupling
@@ -6623 +6626 @@
      pemitlw         = pemitlwl
      pabs_surf_lwdif = pabs_surf_lwdifl
-     pabs_pc_lwdif   = pabs_pc_lwdif
+     pabs_pc_lwdif   = pabs_pc_lwdifl
 #endif
 !