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

Timestamp:

Mar 11, 2020 2:20:43 PM (4 years ago)

Author:

raasch

Message:

ghost point exchange modularized, bugfix for wrong 2d-exchange

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! use statement for exchange horiz added
+! 
+! 4452 2020-03-10 20:15:32Z suehring
 ! Bugfix in calc_albedo
 !
@@ -3994 +3997 @@
 
 #if defined ( __rrtmg )
+       USE exchange_horiz_mod,                                                 &
+           ONLY:  exchange_horiz
+
        USE indices,                                                            &
            ONLY:  nbgp