Changeset 1057 for LMDZ4/trunk/libf


Ignore:
Timestamp:
Nov 17, 2008, 3:45:52 PM (16 years ago)
Author:
lmdzadmin
Message:

Un peu de nettoyage
ACA/FH/IM

Location:
LMDZ4/trunk/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/thermcell_closure.F90

    r1026 r1057  
    6060!            f(ig)=f(ig)+(f0(ig)-f(ig))*exp((-ptimestep/  &
    6161!     &                     zmax(ig))*wmax(ig))
    62              print*,'closure moist',f(ig),wmax(ig),alim_star_tot(ig),zmax(ig)
     62             if(prt_level.GE.10) print*,'closure moist',f(ig),wmax(ig),alim_star_tot(ig),zmax(ig)
    6363             endif
    6464         endif

  • LMDZ4/trunk/libf/phylmd/thermcell_init.F90

    r1026 r1057  
    4444               alim_star(ig,1)=1.
    4545               alim_star_tot(ig)=alim_star(ig,1)
    46                print*,'init',alim_star(ig,1),alim_star_tot(ig)
     46               if(prt_level.GE.10) print*,'init',alim_star(ig,1),alim_star_tot(ig)
    4747            else
    4848                lmin(ig)=1

  • LMDZ4/trunk/libf/phylmd/thermcell_plume.F90

    r1026 r1057  
    580580            alim_star_tot(ig)=alim_star_tot(ig)+entr_star(ig,l)
    581581            lalim(ig)=lmix_bis(ig)
    582             print*,'alim_star_tot',alim_star_tot(ig),entr_star(ig,l)
     582            if(prt_level.GE.10) print*,'alim_star_tot',alim_star_tot(ig),entr_star(ig,l)
    583583        endif
    584584
Note: See TracChangeset for help on using the changeset viewer.