Changeset 15 for LMDZ.3.3/trunk/libf

Timestamp:

Jan 12, 2000, 3:29:55 PM (25 years ago)

Author:

lmdz

Message:

Modification de gr_fi_ecrit par G. Krinner pour accelerer le code

File:

• LMDZ.3.3/trunk/libf/phylmd/physiq.F (modified) (2 diffs)

LMDZ.3.3/trunk/libf/phylmd/physiq.F

@@ -2478 +2478 @@
 c
       INTEGER nfield,nlon,iim,jjmp1, jjm
-      REAL fi(nlon,nfield), ecrit(iim,jjmp1,nfield)
+      REAL fi(nlon,nfield), ecrit(iim*jjmp1,nfield)
 c
       INTEGER i, j, n, ig
@@ -2485 +2485 @@
       DO n = 1, nfield
          DO i=1,iim
-            ecrit(i,1,n) = fi(1,n)
-            ecrit(i,jjm+1,n) = fi(nlon,n)
-         ENDDO
-         DO j = 2, jjm
-            ig = 2+(j-2)*iim
-            DO i = 1, iim
-               ecrit(i,j,n) = fi(ig-1+i,n)
-            ENDDO
+            ecrit(i,n) = fi(1,n)
+            ecrit(i+jjm*iim,n) = fi(nlon,n)
+         ENDDO
+         DO ig = 1, nlon - 2
+           ecrit(iim+ig,n) = fi(1+ig,n)
          ENDDO
       ENDDO
       RETURN
       END
+