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

Timestamp:

Jan 25, 2002, 5:20:10 PM (22 years ago)

Author:

lmdzadmin

Message:

Adaptation à la version couplée
LF

File:

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

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

@@ -2 +2 @@
 C $Header$
 C
-      SUBROUTINE limit_netcdf ( interbar, extrap, oldice )
+      SUBROUTINE limit_netcdf ( interbar, extrap, oldice, masque )
 c
       IMPLICIT none
@@ -28 +28 @@
 #include "comgeom2.h"
 #include "comconst.h"
+#include "dimphy.h"
 c
 c-----------------------------------------------------------------------
@@ -33 +34 @@
 
       INTEGER KIDIA, KFDIA, KLON, KLEV
-      PARAMETER (KIDIA=1,KFDIA=iim*(jjm-1)+2,
-     .           KLON=KFDIA-KIDIA+1,KLEV=llm)
 c-----------------------------------------------------------------------
       REAL phy_nat(klon,360), phy_nat0(klon)
@@ -195 +194 @@
       CALL mask_c_o(imdep, jmdep, dlon_msk, dlat_msk,champ_msk,
      .             iim, jjp1, rlonv, rlatu, champint)
-      CALL gr_int_dyn(champint, masque, iim, jjp1)
-      DO i = 1, iim
-         masque(i,1) = FLOAT(NINT(masque(i,1)))
-         masque(i,jjp1) = FLOAT(NINT(masque(i,jjp1)))
-      ENDDO
+c      CALL gr_int_dyn(champint, masque, iim, jjp1)
+c      DO i = 1, iim
+c         masque(i,1) = FLOAT(NINT(masque(i,1)))
+c         masque(i,jjp1) = FLOAT(NINT(masque(i,jjp1)))
+c      ENDDO
       DO i = 1, iim
       DO j = 1, jjp1
@@ -205 +204 @@
       ENDDO
       ENDDO
-      CALL gr_dyn_fi(1, iip1, jjp1, klon, masque, phy_nat0)
+c      CALL gr_dyn_fi(1, iip1, jjp1, klon, masque, phy_nat0)
       ierr = NF_CLOSE(ncid)
 c
@@ -591 +590 @@
      .                  champan(1,1,k), phy_ice(1,k))
          DO i = 1, klon
-            phy_nat(i,k) = phy_nat0(i)
+            phy_nat(i,k) = zmasq(i)
             IF ( (phy_ice(i,k) - 0.5).GE.1.e-5 ) THEN
-               IF (NINT(phy_nat0(i)).EQ.0) THEN
+               IF (NINT(zmasq(i)).EQ.0) THEN
                   phy_nat(i,k) = 3.0
                ELSE