Rev | Line | |
---|
[224] | 1 | ! $Id: initdynav.F90 1611 2012-01-25 14:31:54Z lguez $ |
---|
| 2 | |
---|
| 3 | subroutine initdynav(day0,anne0,tstep,t_ops,t_wrt) |
---|
| 4 | |
---|
| 5 | |
---|
| 6 | |
---|
| 7 | |
---|
| 8 | USE infotrac, ONLY : nqtot, ttext |
---|
| 9 | use com_io_dyn_mod, only : histaveid,histvaveid,histuaveid, & |
---|
| 10 | dynhistave_file,dynhistvave_file,dynhistuave_file |
---|
| 11 | implicit none |
---|
| 12 | |
---|
| 13 | |
---|
| 14 | ! Routine d'initialisation des ecritures des fichiers histoires LMDZ |
---|
| 15 | ! au format IOIPSL. Initialisation du fichier histoire moyenne. |
---|
| 16 | |
---|
| 17 | ! Appels succesifs des routines: histbeg |
---|
| 18 | ! histhori |
---|
| 19 | ! histver |
---|
| 20 | ! histdef |
---|
| 21 | ! histend |
---|
| 22 | |
---|
| 23 | ! Entree: |
---|
| 24 | |
---|
| 25 | ! infile: nom du fichier histoire a creer |
---|
| 26 | ! day0,anne0: date de reference |
---|
| 27 | ! tstep : frequence d'ecriture |
---|
| 28 | ! t_ops: frequence de l'operation pour IOIPSL |
---|
| 29 | ! t_wrt: frequence d'ecriture sur le fichier |
---|
| 30 | |
---|
| 31 | |
---|
| 32 | ! L. Fairhead, LMD, 03/99 |
---|
| 33 | |
---|
| 34 | include "dimensions.h" |
---|
| 35 | include "paramet.h" |
---|
| 36 | include "comconst.h" |
---|
| 37 | include "comvert.h" |
---|
| 38 | include "comgeom.h" |
---|
| 39 | include "temps.h" |
---|
| 40 | include "ener.h" |
---|
| 41 | include "logic.h" |
---|
| 42 | include "description.h" |
---|
| 43 | include "serre.h" |
---|
| 44 | include "iniprint.h" |
---|
| 45 | |
---|
| 46 | ! Arguments |
---|
| 47 | |
---|
| 48 | integer day0, anne0 |
---|
| 49 | real tstep, t_ops, t_wrt |
---|
| 50 | |
---|
| 51 | write(lunout,*)"initdynav: Warning this routine should not be", & |
---|
| 52 | " used without ioipsl" |
---|
| 53 | ! of #ifdef CPP_IOIPSL |
---|
| 54 | |
---|
| 55 | end subroutine initdynav |
---|
Note: See
TracBrowser
for help on using the repository browser.