Changeset 1801 for palm/trunk/SOURCE
- Timestamp:
- Apr 5, 2016 1:12:47 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/pmc_interface.f90
r1798 r1801 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! bugfix for r1797: zero setting of temperature within topography does not work 23 ! and has been disabled 23 24 ! 24 25 ! Former revisions: … … 3179 3180 w(nzb:nzb_w_inner(j,i),j,i) = 0.0_wp 3180 3181 e(nzb:nzb_s_inner(j,i),j,i) = 0.0_wp 3181 pt(nzb:nzb_s_inner(j,i),j,i) = 0.0_wp 3182 IF ( humidity .OR. passive_scalar ) THEN 3183 q(nzb:nzb_s_inner(j,i),j,i) = 0.0_wp 3184 ENDIF 3182 ! 3183 !-- TO_DO: zero setting of temperature within topography creates 3184 !-- wrong results 3185 ! pt(nzb:nzb_s_inner(j,i),j,i) = 0.0_wp 3186 ! IF ( humidity .OR. passive_scalar ) THEN 3187 ! q(nzb:nzb_s_inner(j,i),j,i) = 0.0_wp 3188 ! ENDIF 3185 3189 ENDDO 3186 3190 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.