Ignore:
Timestamp:
Feb 5, 2008, 11:28:30 AM (16 years ago)
Author:
Laurent Fairhead
Message:

Modifs pour que l'aquaplanete marche FH
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r888 r889  
    536536         
    537537!****************************************************************************************
     538! Force soil water content to qsol0 if qsol0>0 and VEGET=F (use bucket
     539! instead of ORCHIDEE)
     540    if (qsol0>0.) then
     541      print*,'WARNING : On impose qsol=',qsol0
     542      qsol(:)=qsol0
     543    endif
     544!****************************************************************************************
     545
     546!****************************************************************************************
    538547! 2) Initialization to zero
    539548!    Done for all local variables that will be compressed later
Note: See TracChangeset for help on using the changeset viewer.