Changeset 327 for LMDZ.3.3/branches/rel-LF/libf/dyn3d

Timestamp:

Feb 4, 2002, 5:39:05 PM (23 years ago)

Author:

lmdzadmin

Message:

Probleme sur la dimension de phy_ice entre la version Levan et la
version couplee
LF

File:

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

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

@@ -39 +39 @@
       REAL phy_bil(klon,360)
       REAL phy_rug(klon,360)
-      REAL phy_ice(klon,360)
+      REAL phy_ice(klon)
 c
       real pctsrf_t(klon,nbsrf,360)
@@ -622 +622 @@
       DO k = 1, 360
          CALL gr_dyn_fi(1, iip1, jjp1, klon,
-     .                  champan(1,1,k), phy_ice(1,k))
+     .                  champan(1,1,k), phy_ice)
         IF ( newlmt) THEN