1 |
|
|
! |
2 |
|
|
! $Header$ |
3 |
|
|
! |
4 |
|
288 |
SUBROUTINE gr_fi_dyn(nfield,ngrid,im,jm,pfi,pdyn) |
5 |
|
|
IMPLICIT NONE |
6 |
|
|
c======================================================================= |
7 |
|
|
c passage d'un champ de la grille scalaire a la grille physique |
8 |
|
|
c======================================================================= |
9 |
|
|
|
10 |
|
|
c----------------------------------------------------------------------- |
11 |
|
|
c declarations: |
12 |
|
|
c ------------- |
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 |
|
|
|
20 |
|
|
c----------------------------------------------------------------------- |
21 |
|
|
c calcul: |
22 |
|
|
c ------- |
23 |
|
|
|
24 |
✓✓ |
576 |
DO ifield=1,nfield |
25 |
|
|
c traitement des poles |
26 |
✓✓ |
9792 |
DO i=1,im |
27 |
|
9504 |
pdyn(i,1,ifield)=pfi(1,ifield) |
28 |
|
9792 |
pdyn(i,jm,ifield)=pfi(ngrid,ifield) |
29 |
|
|
ENDDO |
30 |
|
|
|
31 |
|
|
c traitement des point normaux |
32 |
✓✓ |
9504 |
DO j=2,jm-1 |
33 |
|
8928 |
ig=2+(j-2)*(im-1) |
34 |
|
8928 |
CALL SCOPY(im-1,pfi(ig,ifield),1,pdyn(1,j,ifield),1) |
35 |
|
9216 |
pdyn(im,j,ifield)=pdyn(1,j,ifield) |
36 |
|
|
ENDDO |
37 |
|
|
ENDDO |
38 |
|
|
|
39 |
|
288 |
RETURN |
40 |
|
|
END |