source: LMDZ.3.3/trunk/libf/dyn3d/gr_dyn_fi.F @ 19

Last change on this file since 19 was 2, checked in by lmdz, 25 years ago

Initial revision
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.0 KB
Line 
1      SUBROUTINE gr_dyn_fi(nfield,im,jm,ngrid,pdyn,pfi)
2      IMPLICIT NONE
3c=======================================================================
4c   passage d'un champ de la grille scalaire a la grille physique
5c=======================================================================
6
7c-----------------------------------------------------------------------
8c   declarations:
9c   -------------
10
11      INTEGER im,jm,ngrid,nfield
12      REAL pdyn(im,jm,nfield)
13      REAL pfi(ngrid,nfield)
14
15      INTEGER j,ifield,ig
16      EXTERNAL SCOPY
17
18c-----------------------------------------------------------------------
19c   calcul:
20c   -------
21
22      IF(ngrid.NE.2+(jm-2)*(im-1)) STOP 'probleme de dim'
23c   traitement des poles
24      CALL SCOPY(nfield,pdyn,im*jm,pfi,ngrid)
25      CALL SCOPY(nfield,pdyn(1,jm,1),im*jm,pfi(ngrid,1),ngrid)
26
27c   traitement des point normaux
28      DO ifield=1,nfield
29         DO j=2,jm-1
30            ig=2+(j-2)*(im-1)
31            CALL SCOPY(im-1,pdyn(1,j,ifield),1,pfi(ig,ifield),1)
32         ENDDO
33      ENDDO
34
35      RETURN
36      END
Note: See TracBrowser for help on using the repository browser.