Last change
on this file since 3496 was
1658,
checked in by Laurent Fairhead, 12 years ago
|
Phasage de la dynamique parallele localisee (petite memoire) avec le tronc LMDZ4 (HEAD)
Validation effectuee par comparaison des fichiers de sorties debug (u, v, t, q, masse, etc ...) d'une simulation sans physique
faite avec la version du modele donnee par Y. Meurdesoif et la version phasee avec la r1428 (fin du tronc LMDZ4)
Phasing of the localised (low memory) parallel dynamics package with the LMDZ4 trunk version of LMDZ
Validation consisted in comparing output debug files (u, v, t, q, masse, etc... ) of a no physics simulation
run with the version of the code given by Y. Meurdesoif and this version phased with r1428 (HEAD of the LMDZ4 trunk)
|
File size:
1.6 KB
|
Line | |
---|
1 | ! |
---|
2 | ! $Id: traceurpole.F 1403 2010-07-01 09:02:53Z fairhead $ |
---|
3 | ! |
---|
4 | subroutine traceurpole(q,masse) |
---|
5 | |
---|
6 | USE control_mod |
---|
7 | |
---|
8 | implicit none |
---|
9 | |
---|
10 | #include "dimensions.h" |
---|
11 | c#include "paramr2.h" |
---|
12 | #include "paramet.h" |
---|
13 | #include "comconst.h" |
---|
14 | #include "comdissip.h" |
---|
15 | #include "comvert.h" |
---|
16 | #include "comgeom2.h" |
---|
17 | #include "logic.h" |
---|
18 | #include "temps.h" |
---|
19 | #include "ener.h" |
---|
20 | #include "description.h" |
---|
21 | |
---|
22 | |
---|
23 | c Arguments |
---|
24 | integer iq |
---|
25 | real masse(iip1,jjp1,llm) |
---|
26 | real q(iip1,jjp1,llm) |
---|
27 | |
---|
28 | |
---|
29 | c Locals |
---|
30 | integer i,j,l |
---|
31 | real sommemassen(llm) |
---|
32 | real sommemqn(llm) |
---|
33 | real sommemasses(llm) |
---|
34 | real sommemqs(llm) |
---|
35 | real qpolen(llm),qpoles(llm) |
---|
36 | |
---|
37 | |
---|
38 | c On impose une seule valeur au pôle Sud j=jjm+1=jjp1 |
---|
39 | sommemasses=0 |
---|
40 | sommemqs=0 |
---|
41 | do l=1,llm |
---|
42 | do i=1,iip1 |
---|
43 | sommemasses(l)=sommemasses(l)+masse(i,jjp1,l) |
---|
44 | sommemqs(l)=sommemqs(l)+masse(i,jjp1,l)*q(i,jjp1,l) |
---|
45 | enddo |
---|
46 | qpoles(l)=sommemqs(l)/sommemasses(l) |
---|
47 | enddo |
---|
48 | |
---|
49 | c On impose une seule valeur du traceur au pôle Nord j=1 |
---|
50 | sommemassen=0 |
---|
51 | sommemqn=0 |
---|
52 | do l=1,llm |
---|
53 | do i=1,iip1 |
---|
54 | sommemassen(l)=sommemassen(l)+masse(i,1,l) |
---|
55 | sommemqn(l)=sommemqn(l)+masse(i,1,l)*q(i,1,l) |
---|
56 | enddo |
---|
57 | qpolen(l)=sommemqn(l)/sommemassen(l) |
---|
58 | enddo |
---|
59 | |
---|
60 | c On force le traceur à prendre cette valeur aux pôles |
---|
61 | do l=1,llm |
---|
62 | do i=1,iip1 |
---|
63 | q(i,1,l)=qpolen(l) |
---|
64 | q(i,jjp1,l)=qpoles(l) |
---|
65 | enddo |
---|
66 | enddo |
---|
67 | |
---|
68 | |
---|
69 | return |
---|
70 | end |
---|
Note: See
TracBrowser
for help on using the repository browser.