Changeset 269 for LMDZ.3.3/trunk/libf/dyn3d/conf_dat2d.F

Timestamp:

Sep 5, 2001, 3:28:02 PM (23 years ago)

Author:

lmdz

Message:

Remplacement des allocates par des dimensionnements classiques. LeVan?
LF

File:

• LMDZ.3.3/trunk/libf/dyn3d/conf_dat2d.F (modified) (4 diffs)

LMDZ.3.3/trunk/libf/dyn3d/conf_dat2d.F

@@ -45 +45 @@
       ALLOCATE( xtemp(lons) )
       ALLOCATE( ytemp(lats) )
+      ALLOCATE( champf(lons,lats) )
 
       DO i = 1, lons
@@ -108 +109 @@
         IF ( invlon )   THEN
 
-           ALLOCATE(champf(lons,lats))
-           alloc = .TRUE.
+           DO j = 1, lats
+            DO i = 1,lons
+             champf(i,j) = champd(i,j)
+            ENDDO
+           ENDDO
 
            DO i = 1 ,lons
@@ -164 +168 @@
          IF ( invlat )    THEN
 
-           IF(.NOT.alloc)  THEN
-            ALLOCATE(champf(lons,lats))
-            alloc = .TRUE.
-           ENDIF
-
            DO j = 1,lats
             yf(j) = ytemp(j)
@@ -205 +204 @@
       ENDIF
 c
-       IF(alloc) DEALLOCATE(champf)
+        DEALLOCATE(champf)
 
        DO i = 1, lons