Changeset 675

Timestamp:

Jan 19, 2011 10:56:55 AM (13 years ago)

Author:

suehring

Message:

Bugfix removed while copying p.

File:

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

palm/trunk/SOURCE/pres.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
+! Removed bugfix while copying tend.
 !
 ! Former revisions:
@@ -523 +524 @@
                    p(k,j,i) = tend(k,j,i)                                     &
                             * weight_substep(intermediate_timestep_count)
-                   p(k,j,i) = tend(k,j,i)                                     &
-                            * weight_substep(intermediate_timestep_count)
                 ENDDO
              ENDDO
@@ -536 +535 @@
              DO  j = nysg, nyng
                 DO  k = nzb, nzt+1
-                   p(k,j,i) = p(k,j,i) + tend(k,j,i)                          &
-                            * weight_substep(intermediate_timestep_count)
                    p(k,j,i) = p(k,j,i) + tend(k,j,i)                          &
                             * weight_substep(intermediate_timestep_count)