Changeset 1241 for palm/trunk/SOURCE/nudging.f90
- Timestamp:
- Oct 30, 2013 11:36:58 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/nudging.f90
r1239 r1241 161 161 ! 162 162 !-- Prevent nudging if nudging profiles exhibt too small values 163 !-- not used so far 163 164 lptnudge = ANY( ABS( ptnudge ) > 1e-8 ) 164 165 lqnudge = ANY( ABS( qnudge ) > 1e-8 ) … … 326 327 currtnudge = MAX( dt_3d, tnudge(k,t) * dtp + tnudge(k,t+1) * dtm ) 327 328 329 !IF ((myid ==0 .AND. k==2) .AND. (i==1 .AND. j==1)) THEN 330 ! PRINT*, time, dt_3d, intermediate_timestep_count, currtnudge, dtp, dtm 331 !ENDIF 332 328 333 tend(k,j,i) = tend(k,j,i) - ( hom(k,1,1,0) - & 329 334 ( unudge(k,t) * dtp + &
Note: See TracChangeset
for help on using the changeset viewer.