Ignore:
Timestamp:
Jun 26, 2014, 12:25:31 PM (10 years ago)
Author:
slebonnois
Message:

SL: many bug corrections in phyvenus, some cleaning, and a new ksi matrix format for Venus IR

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.VENUS/libf/phyvenus/clmain.F

    r1017 r1301  
    368368         ycoefm(1:knon,2:klev)=ykmm(1:knon,2:klev)
    369369         ycoefh(1:knon,2:klev)=ykmn(1:knon,2:klev)
    370 c --
    371 c VENUS: on met le coefficient K =0 au-dessus de 40 km (2.5e5 Pa)
    372          do i=1,knon
    373          do k=2,klev
    374            if (ypaprs(i,k).lt.2.5e5) then
    375              ycoefm(i,k)=1.e-7
    376              ycoefh(i,k)=1.e-7
    377            endif
    378          enddo
    379          enddo
    380 c --
    381370
    382371c-------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.