source: LMDZ4/trunk/libf/dyn3dpar/gr_dyn_fi_p.F @ 953

Last change on this file since 953 was 774, checked in by Laurent Fairhead, 17 years ago

Suite du merge entre la version et la HEAD: quelques modifications de
Yann sur le

LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.0 KB
Line 
1      SUBROUTINE gr_dyn_fi_p(nfield,im,jm,ngrid,pdyn,pfi)
2      USE mod_interface_dyn_phys
3      USE dimphy
4      USE PARALLEL
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,ig,l
19
20c-----------------------------------------------------------------------
21c   calcul:
22c   -------
23
24c      IF(ngrid.NE.2+(jm-2)*(im-1)) STOP 'probleme de dim'
25c   traitement des poles
26c   traitement des point normaux
27c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
28      DO l=1,nfield   
29       DO ig=1,klon
30         i=index_i(ig)
31         j=index_j(ig)
32         pfi(ig,l)=pdyn(i,j,l)
33       ENDDO
34      ENDDO
35c$OMP END DO NOWAIT
36      RETURN
37      END
Note: See TracBrowser for help on using the repository browser.