Changeset 2405


Ignore:
Timestamp:
Aug 19, 2020, 10:44:27 AM (4 years ago)
Author:
slebonnois
Message:

SL: correction of a bug in newstart, due to key cpofT missing ; + default is uniform T,u,v when vertical extension

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/newstart.F

    r2135 r2405  
    250250c dans run.def
    251251      CALL getin('planet_type',planet_type)
     252      cpofT = .False.
     253      if (planet_type.eq."venus") then
     254        cpofT = .True.
     255      endif
     256      CALL getin('cpofT',cpofT)
    252257      call ini_cpdet
    253258
     
    12151220! pour info:
    12161221! Si extension verticale, on impose u=0 au-dessus de lmold
    1217             if (presnivs(l).lt.presnivsold(lmold)) ucov( i,j,l ) = 0
     1222!           if (presnivs(l).lt.presnivsold(lmold)) ucov( i,j,l ) = 0
    12181223          end do
    12191224        end do
     
    12321237! pour info:
    12331238! Si extension verticale, on impose v=0 au-dessus de lmold
    1234             if (presnivs(l).lt.presnivsold(lmold)) vcov( i,j,l ) = 0
     1239!           if (presnivs(l).lt.presnivsold(lmold)) vcov( i,j,l ) = 0
    12351240          end do
    12361241          vcov( iip1,j,l ) = vcov( 1,j,l )
Note: See TracChangeset for help on using the changeset viewer.