source:
LMDZ4/trunk/libf/dyn3dpar/gr_dyn_fi_p.F
@
703
Last change on this file since 703 was 630, checked in by , 19 years ago | |
---|---|
|
|
File size: 898 bytes |
Rev | Line | |
---|---|---|
[630] | 1 | SUBROUTINE gr_dyn_fi_p(nfield,im,jm,ngrid,pdyn,pfi) |
2 | USE dimphy | |
3 | IMPLICIT NONE | |
4 | c======================================================================= | |
5 | c passage d'un champ de la grille scalaire a la grille physique | |
6 | c======================================================================= | |
7 | ||
8 | c----------------------------------------------------------------------- | |
9 | c declarations: | |
10 | c ------------- | |
11 | ||
12 | INTEGER im,jm,ngrid,nfield | |
13 | REAL pdyn(im,jm,nfield) | |
14 | REAL pfi(ngrid,nfield) | |
15 | ||
16 | INTEGER i,j,ig | |
17 | ||
18 | c----------------------------------------------------------------------- | |
19 | c calcul: | |
20 | c ------- | |
21 | ||
22 | c IF(ngrid.NE.2+(jm-2)*(im-1)) STOP 'probleme de dim' | |
23 | c traitement des poles | |
24 | c traitement des point normaux | |
25 | ||
26 | DO ig=1,klon | |
27 | i=Liste_i(ig) | |
28 | j=Liste_j(ig) | |
29 | pfi(ig,1:nfield)=pdyn(i,j,1:nfield) | |
30 | ENDDO | |
31 | ||
32 | ||
33 | RETURN | |
34 | END |
Note: See TracBrowser
for help on using the repository browser.