Last change
on this file was
1201,
checked in by Laurent Fairhead, 15 years ago
|
Modifications nécessaires a l'inclusion d'un calendrier réaliste.
La date courante est calculée dans leapfrog.F et exprimée en Jour Julien
(modifié). On en a profité pour faire un peu de ménage dans la gestion des dates
du modèle.
Dans la physique, on utilise les routines de passages entre calendrier Julien et
Gregorien incluses dans IOIPSL pour calculer le nombre de jours écoulés depuis le
1er janvier (pour les conditions aux limites) ou l'equinoxe (pour le calcul de
la longitude solaire). Le calcul de l'orbite reprend celui du gcm planétaire
(codé par FH)
On décide du calendrier à utiliser à l'aide du paramètre calend du run.def. Par
défaut celui-ci est à earth_360d
LF
|
-
Property svn:eol-style set to
native
-
Property svn:keywords set to
Author Date Id Revision
|
File size:
905 bytes
|
Line | |
---|
1 | ! |
---|
2 | ! $Id: temps.h 1201 2009-07-07 14:01:00Z aborella $ |
---|
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, & |
---|
16 | & itau_dyn, itau_phy, jD_ref, jH_ref, calend |
---|
17 | |
---|
18 | INTEGER itaufin |
---|
19 | INTEGER itau_dyn, itau_phy |
---|
20 | INTEGER day_ini, day_end, annee_ref, day_ref |
---|
21 | REAL dt, jD_ref, jH_ref |
---|
22 | CHARACTER (len=10) :: calend |
---|
23 | |
---|
24 | !----------------------------------------------------------------------- |
---|
Note: See
TracBrowser
for help on using the repository browser.