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

Timestamp:

Nov 7, 2013 8:14:30 AM (10 years ago)

Author:

heinze

Message:

bugfix: calculate dtm and dtp also in vector version

File:

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

palm/trunk/SOURCE/nudging.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! bugfix: calculate dtm and dtp also in vector version
 !
 ! Former revisions:
@@ -198 +198 @@
 
 
+       t = 1
+       DO WHILE ( time > timenudge(t) )
+         t = t+1
+       ENDDO
+       IF ( time /= timenudge(1) ) THEN
+         t = t-1
+       ENDIF
+
+       dtm = ( time - timenudge(t) ) / ( timenudge(t+1) - timenudge(t) )
+       dtp = ( timenudge(t+1) - time ) / ( timenudge(t+1) - timenudge(t) )
+
        SELECT CASE ( prog_var )