Ignore:
Timestamp:
Oct 30, 2013 11:36:58 AM (10 years ago)
Author:
heinze
Message:

Nudging and large scale forcing from external file implemented

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/nudging.f90

    r1239 r1241  
    161161!
    162162!--    Prevent nudging if nudging profiles exhibt too small values
     163!--    not used so far
    163164       lptnudge  = ANY( ABS( ptnudge ) > 1e-8 )
    164165       lqnudge   = ANY( ABS( qnudge ) > 1e-8 )
     
    326327                currtnudge = MAX( dt_3d, tnudge(k,t) * dtp + tnudge(k,t+1) * dtm )
    327328
     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
    328333                tend(k,j,i) = tend(k,j,i) - ( hom(k,1,1,0) - &
    329334                               ( unudge(k,t) * dtp + &
Note: See TracChangeset for help on using the changeset viewer.