Ignore:
Timestamp:
Apr 28, 2010, 4:27:15 PM (14 years ago)
Author:
musat
Message:

Some changes for new physics :

  • new formulation for wakes' alp_offset (physiq)
  • bug fix for lalim in thermals plume
  • add iflag_pbl=9 option (yamada4)

FH/IM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/thermcell_plume.F90

    r1371 r1373  
    168168               alim_star(ig,l)=MAX((ztv(ig,l)-ztv(ig,l+1)),0.)  &
    169169     &                       *sqrt(zlev(ig,l+1))
    170                lalim(:)=l+1
     170               lalim(ig)=l+1
    171171               alim_star_tot(ig)=alim_star_tot(ig)+alim_star(ig,l)
    172172            endif
    … …  
    651651               alim_star(ig,l)=MAX((ztv(ig,l)-ztv(ig,l+1)),0.)  &
    652652     &                       *sqrt(zlev(ig,l+1))
    653                lalim(:)=l+1
     653               lalim(ig)=l+1
    654654               alim_star_tot(ig)=alim_star_tot(ig)+alim_star(ig,l)
    655655            endif
Note: See TracChangeset for help on using the changeset viewer.