source: LMDZ5/trunk/libf/dyn3dmem/gr_dyn_fi_p.F @ 1673

Last change on this file since 1673 was 1673, checked in by Laurent Fairhead, 12 years ago

Fin du phasage de la dynamique parallele localisee (petite memoire) avec le tronc LMDZ5 r1671
Il reste quelques routines a verifier (en particulier ce qui touche a l'etude des cas academiques)
et la validation a effectuer

End of the phasing of the localised (low memory) parallel dynamics package with the
LMDZ5 trunk (r1671)
Some routines still need some checking (in particular the academic cases) and some
validation is still required
File size: 1.1 KB
Line 
1!
2! $Id$
3!
4      SUBROUTINE gr_dyn_fi_p(nfield,im,jm,ngrid,pdyn,pfi)
5#ifdef CPP_PHYS
6! Interface with parallel physics,
7      USE mod_interface_dyn_phys
8      USE dimphy
9      USE PARALLEL
10      IMPLICIT NONE
11c=======================================================================
12c   passage d'un champ de la grille scalaire a la grille physique
13c=======================================================================
14
15c-----------------------------------------------------------------------
16c   declarations:
17c   -------------
18
19      INTEGER im,jm,ngrid,nfield
20      REAL pdyn(im,jm,nfield)
21      REAL pfi(ngrid,nfield)
22
23      INTEGER i,j,ig,l
24
25c-----------------------------------------------------------------------
26c   calcul:
27c   -------
28
29c      IF(ngrid.NE.2+(jm-2)*(im-1)) STOP 'probleme de dim'
30c   traitement des poles
31c   traitement des point normaux
32c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
33      DO l=1,nfield   
34       DO ig=1,klon
35         i=index_i(ig)
36         j=index_j(ig)
37         pfi(ig,l)=pdyn(i,j,l)
38       ENDDO
39      ENDDO
40c$OMP END DO NOWAIT
41#endif
42! of #ifdef CPP_PHYS
43      RETURN
44      END
Note: See TracBrowser for help on using the repository browser.