source: LMDZ4/branches/V3_test/libf/dyn3dpar/gr_dyn_fi_p.F @ 1671

Last change on this file since 1671 was 709, checked in by Laurent Fairhead, 18 years ago

Nouvelles versions de la dynamique YM
LF

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