source: LMDZ5/trunk/libf/phydev/gr_fi_ecrit.F90 @ 5441

Last change on this file since 5441 was 1994, checked in by Ehouarn Millour, 11 years ago

Follow the trend; convert all fixed form sources in phydev to free form.
EM

  • 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: 592 bytes
RevLine 
[1686]1!
2! $Id $
3!
[1994]4SUBROUTINE gr_fi_ecrit(nfield,nlon,iim,jjmp1,fi,ecrit)
5  IMPLICIT NONE
6  !
7  ! Transfer a field from the full physics grid
8  ! to a full 2D (lonxlat) grid suitable for outputs
9  !
10  INTEGER,INTENT(IN) :: nfield,nlon,iim,jjmp1
11  REAL,INTENT(IN) :: fi(nlon,nfield)
12  REAL,INTENT(out) :: ecrit(iim*jjmp1,nfield)
[1686]13
[1994]14  INTEGER :: i, n, ig, jjm
15
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
27END SUBROUTINE gr_fi_ecrit
Note: See TracBrowser for help on using the repository browser.