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

Last change on this file since 1119 was 774, checked in by Laurent Fairhead, 18 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
RevLine 
[630]1      SUBROUTINE gr_dyn_fi_p(nfield,im,jm,ngrid,pdyn,pfi)
[774]2      USE mod_interface_dyn_phys
[630]3      USE dimphy
[764]4      USE PARALLEL
[630]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
[764]18      INTEGER i,j,ig,l
[630]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
[764]27c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
28      DO l=1,nfield   
[630]29       DO ig=1,klon
[774]30         i=index_i(ig)
31         j=index_j(ig)
[764]32         pfi(ig,l)=pdyn(i,j,l)
[630]33       ENDDO
[764]34      ENDDO
35c$OMP END DO NOWAIT
[630]36      RETURN
37      END
Note: See TracBrowser for help on using the repository browser.