|
Last change
on this file since 1745 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:
989 bytes
|
| Rev | Line | |
|---|
| [1632] | 1 | ! |
|---|
| [1673] | 2 | ! $Id$ |
|---|
| [1632] | 3 | ! |
|---|
| 4 | ! ATTENTION!!!!: ce fichier include est compatible format fixe/format libre |
|---|
| 5 | ! veillez n'utiliser que des ! pour les commentaires |
|---|
| 6 | ! et bien positionner les & des lignes de continuation |
|---|
| 7 | ! (les placer en colonne 6 et en colonne 73) |
|---|
| 8 | ! |
|---|
| 9 | ! |
|---|
| 10 | ! jD_ref = jour julien de la date de reference (lancement de l'experience) |
|---|
| 11 | ! hD_ref = "heure" julienne de la date de reference |
|---|
| 12 | !----------------------------------------------------------------------- |
|---|
| 13 | ! INCLUDE 'temps.h' |
|---|
| 14 | |
|---|
| 15 | COMMON/temps/itaufin, dt, day_ini, day_end, annee_ref, day_ref, & |
|---|
| [1673] | 16 | & itau_dyn, itau_phy, jD_ref, jH_ref, calend, & |
|---|
| 17 | & start_time |
|---|
| [1632] | 18 | |
|---|
| [1673] | 19 | |
|---|
| [1632] | 20 | INTEGER itaufin |
|---|
| 21 | INTEGER itau_dyn, itau_phy |
|---|
| 22 | INTEGER day_ini, day_end, annee_ref, day_ref |
|---|
| [1673] | 23 | REAL dt, jD_ref, jH_ref, start_time |
|---|
| [1632] | 24 | CHARACTER (len=10) :: calend |
|---|
| 25 | |
|---|
| 26 | !$OMP THREADPRIVATE(/temps/) |
|---|
| 27 | !----------------------------------------------------------------------- |
|---|
Note: See
TracBrowser
for help on using the repository browser.
