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

Timestamp:

Dec 19, 2018 1:48:34 PM (5 years ago)

Author:

raasch

Message:

nopointer option removed

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! nopointer option removed
+! 
+! 3633 2018-12-17 16:17:57Z schwenkel
 ! Include check for rrtmg files
 ! 
@@ -4862 +4865 @@
      REAL(wp)                          :: area_hor           !< total horizontal area of domain in all processor
 
-#if ! defined( __nopointer )
+
      IF ( plant_canopy )  THEN
          pchf_prep(:) = r_d * exner(nzub:nzut)                                 &
                      / (c_p * hyp(nzub:nzut) * dx*dy*dz(1)) !< equals to 1 / (rho * c_p * Vbox * T)
      ENDIF
-#endif
+
      sun_direction = .TRUE.
      CALL calc_zenith  !< required also for diffusion radiation