Ignore:
Timestamp:
Feb 23, 2007 4:53:48 AM (15 years ago)
Author:
raasch
Message:

preliminary version of modified boundary conditions at top

File:
1 edited

Legend:

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

    r4 r19  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Calculation extended for gridpoint nzt
    77!
    88! Former revisions:
     
    5353       DO  i = nxl, nxr
    5454          DO  j = nys, nyn
    55              DO  k = nzb_2d(j,i)+1, nzt-1   
     55             DO  k = nzb_2d(j,i)+1, nzt
    5656
    5757                IF ( ql(k,j,i) > ql_crit )  THEN
     
    8787
    8888
    89        DO  k = nzb_2d(j,i)+1, nzt-1   
     89       DO  k = nzb_2d(j,i)+1, nzt
    9090
    9191          IF ( ql(k,j,i) > ql_crit )  THEN
Note: See TracChangeset for help on using the changeset viewer.