|
Last change
on this file since 1679 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
|
| Rev | Line | |
|---|
| [1632] | 1 | ! |
|---|
| [1673] | 2 | ! $Id$ |
|---|
| [1632] | 3 | ! |
|---|
| 4 | SUBROUTINE gr_dyn_fi_p(nfield,im,jm,ngrid,pdyn,pfi) |
|---|
| [1673] | 5 | #ifdef CPP_PHYS |
|---|
| [1632] | 6 | ! Interface with parallel physics, |
|---|
| 7 | USE mod_interface_dyn_phys |
|---|
| 8 | USE dimphy |
|---|
| 9 | USE PARALLEL |
|---|
| 10 | IMPLICIT NONE |
|---|
| 11 | c======================================================================= |
|---|
| 12 | c passage d'un champ de la grille scalaire a la grille physique |
|---|
| 13 | c======================================================================= |
|---|
| 14 | |
|---|
| 15 | c----------------------------------------------------------------------- |
|---|
| 16 | c declarations: |
|---|
| 17 | c ------------- |
|---|
| 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 | |
|---|
| 25 | c----------------------------------------------------------------------- |
|---|
| 26 | c calcul: |
|---|
| 27 | c ------- |
|---|
| 28 | |
|---|
| 29 | c IF(ngrid.NE.2+(jm-2)*(im-1)) STOP 'probleme de dim' |
|---|
| 30 | c traitement des poles |
|---|
| 31 | c traitement des point normaux |
|---|
| 32 | c$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 |
|---|
| 40 | c$OMP END DO NOWAIT |
|---|
| 41 | #endif |
|---|
| [1673] | 42 | ! of #ifdef CPP_PHYS |
|---|
| [1632] | 43 | RETURN |
|---|
| 44 | END |
|---|
Note: See
TracBrowser
for help on using the repository browser.
