Changeset 675 for palm


Ignore:
Timestamp:
Jan 19, 2011 10:56:55 AM (14 years ago)
Author:
suehring
Message:

Bugfix removed while copying p.

File:
1 edited

Legend:

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

    r674 r675  
    44! Current revisions:
    55! -----------------
     6! Removed bugfix while copying tend.
    67!
    78! Former revisions:
     
    523524                   p(k,j,i) = tend(k,j,i)                                     &
    524525                            * weight_substep(intermediate_timestep_count)
    525                    p(k,j,i) = tend(k,j,i)                                     &
    526                             * weight_substep(intermediate_timestep_count)
    527526                ENDDO
    528527             ENDDO
     
    536535             DO  j = nysg, nyng
    537536                DO  k = nzb, nzt+1
    538                    p(k,j,i) = p(k,j,i) + tend(k,j,i)                          &
    539                             * weight_substep(intermediate_timestep_count)
    540537                   p(k,j,i) = p(k,j,i) + tend(k,j,i)                          &
    541538                            * weight_substep(intermediate_timestep_count)
Note: See TracChangeset for help on using the changeset viewer.