source: LMDZ4/trunk/libf/dyn3dpar/gr_fi_dyn_p.F @ 1110

Last change on this file since 1110 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.2 KB
RevLine 
[630]1      SUBROUTINE gr_fi_dyn_p(nfield,ngrid,im,jm,pfi,pdyn)
[774]2      USE mod_interface_dyn_phys
3      USE dimphy
[630]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,ifield,ig
19
20c-----------------------------------------------------------------------
21c   calcul:
22c   -------
[764]23c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
[630]24      DO ifield=1,nfield
25
26        do ig=1,klon
[774]27          i=index_i(ig)
28          j=index_j(ig)
[630]29          pdyn(i,j,ifield)=pfi(ig,ifield)
30          if (i==1) pdyn(im,j,ifield)=pdyn(i,j,ifield)
31        enddo
32
33c   traitement des poles
34      if (pole_nord) then
35        do i=1,im
36          pdyn(i,1,ifield)=pdyn(1,1,ifield)
37        enddo
38      endif
39       
40      if (pole_sud) then
41        do i=1,im
42          pdyn(i,jm,ifield)=pdyn(1,jm,ifield)
43        enddo
44      endif
45     
46      ENDDO
[764]47c$OMP END DO NOWAIT
[630]48      RETURN
49      END
Note: See TracBrowser for help on using the repository browser.