Changeset 1757 for palm/trunk/SOURCE/nudging.f90

Timestamp:

Feb 22, 2016 3:49:32 PM (8 years ago)

Author:

maronga

Message:

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

File:

• palm/trunk/SOURCE/nudging.f90 (modified) (3 diffs)

palm/trunk/SOURCE/nudging.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! Bugfix: allow for using higher vertical resolution in nudging file than grid
+! spacing in the LES model
 ! 
 ! Former revisions:
@@ -208 +209 @@
 
           DO  k = nzb, nzt+1
-             IF ( highheight < zu(k) )  THEN
+             DO WHILE ( highheight < zu(k) )
                 lowheight  = highheight
                 lowtnudge  = hightnudge
@@ -229 +230 @@
                    CALL message( 'nudging', 'PA0364', 1, 2, 0, 6, 0 )
                 ENDIF
-             ENDIF
+             ENDDO
 
 !