source: LMDZ5/trunk/libf/dyn3dpar/gr_fi_dyn.F @ 1930

Last change on this file since 1930 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
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

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • 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
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.0 KB
Line 
1!
2! $Header$
3!
4      SUBROUTINE gr_fi_dyn(nfield,ngrid,im,jm,pfi,pdyn)
5      IMPLICIT NONE
6c=======================================================================
7c   passage d'un champ de la grille scalaire a la grille physique
8c=======================================================================
9
10c-----------------------------------------------------------------------
11c   declarations:
12c   -------------
13
14      INTEGER im,jm,ngrid,nfield
15      REAL pdyn(im,jm,nfield)
16      REAL pfi(ngrid,nfield)
17
18      INTEGER i,j,ifield,ig
19
20c-----------------------------------------------------------------------
21c   calcul:
22c   -------
23
24      DO ifield=1,nfield
25c   traitement des poles
26         DO i=1,im
27            pdyn(i,1,ifield)=pfi(1,ifield)
28            pdyn(i,jm,ifield)=pfi(ngrid,ifield)
29         ENDDO
30
31c   traitement des point normaux
32         DO j=2,jm-1
33            ig=2+(j-2)*(im-1)
34            CALL SCOPY(im-1,pfi(ig,ifield),1,pdyn(1,j,ifield),1)
35            pdyn(im,j,ifield)=pdyn(1,j,ifield)
36         ENDDO
37      ENDDO
38
39      RETURN
40      END
Note: See TracBrowser for help on using the repository browser.