Ignore:
Timestamp:
Feb 22, 2016 3:49:32 PM (6 years ago)
Author:
maronga
Message:

some changes in land surface model, radiation model, nudging and some minor updates

File:
1 edited

Legend:

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

    r1683 r1757  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Bugfix: allow for using higher vertical resolution in nudging file than grid
     22! spacing in the LES model
    2223!
    2324! Former revisions:
     
    208209
    209210          DO  k = nzb, nzt+1
    210              IF ( highheight < zu(k) )  THEN
     211             DO WHILE ( highheight < zu(k) )
    211212                lowheight  = highheight
    212213                lowtnudge  = hightnudge
     
    229230                   CALL message( 'nudging', 'PA0364', 1, 2, 0, 6, 0 )
    230231                ENDIF
    231              ENDIF
     232             ENDDO
    232233
    233234!
Note: See TracChangeset for help on using the changeset viewer.