Changeset 1268 for palm

Timestamp:

Dec 12, 2013 9:47:53 AM (11 years ago)

Author:

heinze

Message:

bugfix: argument of calc_mean_profile corrected

File:

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

palm/trunk/SOURCE/nudging.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! bugfix: argument of calc_mean_profile corrected
 !
 ! Former revisions:
@@ -254 +254 @@
           CASE ( 'pt' )
 
-             CALL calc_mean_profile( v, 4, 'nudging' )
+             CALL calc_mean_profile( pt, 4, 'nudging' )
 
              DO  i = nxl, nxr
@@ -273 +273 @@
           CASE ( 'q' )
 
-             CALL calc_mean_profile( v, 41, 'nudging' )
+             CALL calc_mean_profile( q, 41, 'nudging' )
 
              DO  i = nxl, nxr