Changeset 3636 for palm/trunk/SOURCE/radiation_model_mod.f90
- Timestamp:
- Dec 19, 2018 1:48:34 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/radiation_model_mod.f90
r3633 r3636 28 28 ! ----------------- 29 29 ! $Id$ 30 ! nopointer option removed 31 ! 32 ! 3633 2018-12-17 16:17:57Z schwenkel 30 33 ! Include check for rrtmg files 31 34 ! … … 4862 4865 REAL(wp) :: area_hor !< total horizontal area of domain in all processor 4863 4866 4864 #if ! defined( __nopointer ) 4867 4865 4868 IF ( plant_canopy ) THEN 4866 4869 pchf_prep(:) = r_d * exner(nzub:nzut) & 4867 4870 / (c_p * hyp(nzub:nzut) * dx*dy*dz(1)) !< equals to 1 / (rho * c_p * Vbox * T) 4868 4871 ENDIF 4869 #endif 4872 4870 4873 sun_direction = .TRUE. 4871 4874 CALL calc_zenith !< required also for diffusion radiation
Note: See TracChangeset
for help on using the changeset viewer.