Changeset 326

Timestamp:

Feb 4, 2002, 5:35:44 PM (22 years ago)

Author:

lmdzadmin

Message:

Pour etre compatible avec le startget de LeVan?
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/create_limit.F (modified) (2 diffs)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/create_limit.F

@@ -37 +37 @@
       REAL phy_rug(klon,360)
       REAL phy_ice(klon)
+      logical interbar
+      parameter (interbar=.false.)
 CPB
 c      REAL phy_icet(klon,360)
@@ -148 +150 @@
       varname = 'masque'
       masque(:,:) = 0.0
-      CALL startget(varname, iip1, jjp1, rlonv, rlatu, masque, 0.0)
+      CALL startget(varname, iip1, jjp1, rlonv, rlatu, masque, 0.0, jjm
+     ,     ,rlonu,rlatv , interbar )
       pctsrf=0.
       varname = 'zmasq'
       zmasq(:) = 0.
-      CALL startget(varname,iip1,jjp1,rlonv,rlatu,klon,zmasq,0.0)
+      CALL startget(varname,iip1,jjp1,rlonv,rlatu,klon,zmasq,0.0,
+     .jjm ,rlonu,rlatv , interbar)
       WHERE (zmasq(1 : klon) .LT. EPSFRA)
           zmasq(1 : klon) = 0.