Changeset 2405 for trunk/LMDZ.COMMON/libf

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:

• trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/newstart.F (modified) (3 diffs)

trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/newstart.F

@@ -250 +250 @@
 c dans run.def
       CALL getin('planet_type',planet_type)
+      cpofT = .False.
+      if (planet_type.eq."venus") then
+        cpofT = .True.
+      endif
+      CALL getin('cpofT',cpofT)
       call ini_cpdet
 
@@ -1215 +1220 @@
 ! pour info:
 ! Si extension verticale, on impose u=0 au-dessus de lmold
-            if (presnivs(l).lt.presnivsold(lmold)) ucov( i,j,l ) = 0
+!           if (presnivs(l).lt.presnivsold(lmold)) ucov( i,j,l ) = 0
           end do
         end do
@@ -1232 +1237 @@
 ! pour info:
 ! Si extension verticale, on impose v=0 au-dessus de lmold
-            if (presnivs(l).lt.presnivsold(lmold)) vcov( i,j,l ) = 0
+!           if (presnivs(l).lt.presnivsold(lmold)) vcov( i,j,l ) = 0
           end do
           vcov( iip1,j,l ) = vcov( 1,j,l )