Ignore:
Timestamp:
Dec 11, 2014, 2:43:55 PM (10 years ago)
Author:
lguez
Message:

As in revision 2159.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/testing/libf/phylmd/thermcell_plume.F90

    r2160 r2168  
    11601160           linter(ig)=(l*(f_star(ig,l+1)-f_star(ig,l))  &
    11611161     &               -f_star(ig,l))/(f_star(ig,l+1)-f_star(ig,l))
    1162            print*,"linter plume", linter(ig)
     1162           !print*,"linter plume", linter(ig)
    11631163           zw2(ig,l+1)=0.
    11641164        endif
Note: See TracChangeset for help on using the changeset viewer.