source: LMDZ5/branches/testing/libf/phymar/gr_fi_ecrit.F @ 5434

Last change on this file since 5434 was 2160, checked in by Laurent Fairhead, 10 years ago

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand

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.