Context Navigation

temps.h @ 1243

Last change on this file since 1243 was 1107, checked in by emillour, 11 years ago

Common dynamics: Updates and modifications to enable running Mars physics with

LMDZ.COMMON dynamics:

For compilation: adapted makelmdz, create_make_gcm and makelmdz_fcm, bld.cfg to compile aeronomy routines in "aerono$physique" if it exists, and added "-P -traditional" preprocessing flags in "arch-linux-ifort*"
Added function "cbrt.F" (cubic root) in 'bibio'
Adapted the reading/writing of dynamics (re)start.nc files for Mars. The main issue is that different information (on time, reference and current) is stored and used differently, hence a few if (planet_type =="mars") here and there. Moreover in the martian case there is the possibility to store fields over multiple times. Some Mars-specific variables (ecritphy,ecritstart,timestart) added in control_mod.F and (hour_ini) in temps.h

File size: 1.4 KB

Line
1	!
2	! $Id: temps.h 1577 2011-10-20 15:06:47Z fairhead $
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_r/dt,jD_ref,jH_ref,start_time,hour_ini
16	COMMON/temps_i/day_ini,day_end,annee_ref,day_ref, &
17	& itau_dyn,itau_phy,itaufin
18	COMMON/temps_c/calend
19
20
21	INTEGER itaufin ! total number of dynamical steps for the run
22	INTEGER itau_dyn, itau_phy
23	INTEGER day_ini ! initial day # of simulation sequence
24	INTEGER day_end ! final day # ; i.e. day # when this simulation ends
25	INTEGER annee_ref
26	INTEGER day_ref
27	REAL dt ! (dynamics) time step (changes if doing Matsuno or LF step)
28	REAL jD_ref, jH_ref, start_time
29	CHARACTER (len=10) :: calend
30
31	! Additionnal Mars stuff:
32	real hour_ini ! initial fraction of day of simulation sequence (0=<hour_ini<1)
33
34	!-----------------------------------------------------------------------

Note: See TracBrowser for help on using the repository browser.