|
Last change
on this file since 1242 was
999,
checked in by tnavarro, 12 years ago
|
|
Possibility to store multiple initial states in one start/startfi. This is RETROCOMPATIBLE. New option ecrithist in run.def to write data in start/startfi every ecrithist dynamical timestep. New option timestart in run.def to initialize the GCM with the time timestart stored in start
|
|
File size:
703 bytes
|
| Line | |
|---|
| 1 | c----------------------------------------------------------------------- |
|---|
| 2 | c INCLUDE 'temps.h' |
|---|
| 3 | |
|---|
| 4 | COMMON/temps_i/day_ini,day_end,anne_ini,itaufin |
|---|
| 5 | COMMON/temps_r/dt,hour_ini |
|---|
| 6 | |
|---|
| 7 | INTEGER itaufin ! total number of dynamical steps for the run |
|---|
| 8 | INTEGER*4 day_ini ! initial day # of simulation sequence |
|---|
| 9 | INTEGER*4 day_end ! final day # ; i.e. day # when this simulation ends |
|---|
| 10 | INTEGER*4 anne_ini ! initial year # of simulation sequence ? Not used. |
|---|
| 11 | REAL dt ! (dynamics) time step (changes if doing Matsuno or LF step) |
|---|
| 12 | REAL hour_ini ! initial fraction of day of simulation sequence (0=<hour_ini<1) |
|---|
| 13 | |
|---|
| 14 | c----------------------------------------------------------------------- |
|---|
Note: See
TracBrowser
for help on using the repository browser.
