Changeset 2049 for trunk

Timestamp:

Nov 29, 2018, 4:51:25 PM (6 years ago)

Author:

slebonnois

Message:

SL: VENUS, correction newstart, bug sur u et v quand changement niveaux verticaux

File:

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

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

@@ -1158 +1158 @@
        CALL getin('uini',uini)
 ! RESETING U TO 0: may be done through run.def
-       razvitu = . FALSE .
+       razvitu = .FALSE.
        CALL getin('razvitu',razvitu)
-       razvitv = . FALSE .
+       razvitv = .FALSE.
        CALL getin('razvitv',razvitv)
 
@@ -1211 +1211 @@
 ! pour info:
 ! Si extension verticale, on impose u=0 au-dessus de lmold
-            if (l.gt.lmold) ucov( i,j,l ) = 0
+            if (presnivs(l).lt.presnivsold(lmold)) ucov( i,j,l ) = 0
           end do
         end do
@@ -1228 +1228 @@
 ! pour info:
 ! Si extension verticale, on impose v=0 au-dessus de lmold
-            if (l.gt.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 )