Changeset 15 for LMDZ.3.3/trunk/libf


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/trunk/libf/phylmd/physiq.F

    r2 r15  
    24782478c
    24792479      INTEGER nfield,nlon,iim,jjmp1, jjm
    2480       REAL fi(nlon,nfield), ecrit(iim,jjmp1,nfield)
     2480      REAL fi(nlon,nfield), ecrit(iim*jjmp1,nfield)
    24812481c
    24822482      INTEGER i, j, n, ig
     
    24852485      DO n = 1, nfield
    24862486         DO i=1,iim
    2487             ecrit(i,1,n) = fi(1,n)
    2488             ecrit(i,jjm+1,n) = fi(nlon,n)
    2489          ENDDO
    2490          DO j = 2, jjm
    2491             ig = 2+(j-2)*iim
    2492             DO i = 1, iim
    2493                ecrit(i,j,n) = fi(ig-1+i,n)
    2494             ENDDO
     2487            ecrit(i,n) = fi(1,n)
     2488            ecrit(i+jjm*iim,n) = fi(nlon,n)
     2489         ENDDO
     2490         DO ig = 1, nlon - 2
     2491           ecrit(iim+ig,n) = fi(1+ig,n)
    24952492         ENDDO
    24962493      ENDDO
    24972494      RETURN
    24982495      END
     2496
Note: See TracChangeset for help on using the changeset viewer.