source: LMDZ5/branches/testing/libf/phydev/gr_fi_ecrit.F @ 1910

Last change on this file since 1910 was 1910, checked in by Laurent Fairhead, 11 years ago

Merged trunk changes r1860:1909 into testing branch

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 634 bytes
Line 
1!
2! $Id $
3!
4      SUBROUTINE gr_fi_ecrit(nfield,nlon,iim,jjmp1,fi,ecrit)
5      IMPLICIT NONE
6c
7c Transfer a field from the full physics grid
8c to a full 2D (lonxlat) grid suitable for outputs
9c
10      INTEGER,INTENT(IN) :: nfield,nlon,iim,jjmp1
11      REAL,INTENT(IN) :: fi(nlon,nfield)
12      REAL,INTENT(out) :: ecrit(iim*jjmp1,nfield)
13c
14      INTEGER :: i, n, ig, jjm
15c
16      jjm = jjmp1 - 1
17      DO n = 1, nfield
18         DO i=1,iim
19            ecrit(i,n) = fi(1,n)
20            ecrit(i+jjm*iim,n) = fi(nlon,n)
21         ENDDO
22         DO ig = 1, nlon - 2
23           ecrit(iim+ig,n) = fi(1+ig,n)
24         ENDDO
25      ENDDO
26
27      END
Note: See TracBrowser for help on using the repository browser.