5 |
. (tstep,t_ops,t_wrt,nq, |
. (tstep,t_ops,t_wrt,nq, |
6 |
. fileid,filevid,filedid) |
. fileid,filevid,filedid) |
7 |
|
|
|
USE IOIPSL |
|
|
|
|
8 |
C |
C |
9 |
C Routine d'initialisation des ecritures des fichiers histoires LMDZ |
C Routine d'initialisation des ecritures des fichiers histoires LMDZ |
10 |
C au format IOIPSL |
C au format IOIPSL |
32 |
C ===================================================================== |
C ===================================================================== |
33 |
C |
C |
34 |
C Declarations |
C Declarations |
35 |
|
USE calendar |
36 |
|
use histcom |
37 |
use dimens_m |
use dimens_m |
38 |
use paramet_m |
use paramet_m |
39 |
use comconst |
use comconst |
48 |
C Arguments |
C Arguments |
49 |
C |
C |
50 |
integer*4 itau |
integer*4 itau |
51 |
real tstep, t_ops, t_wrt |
real, intent(in):: tstep |
52 |
|
real t_ops, t_wrt |
53 |
integer fileid, filevid,filedid |
integer fileid, filevid,filedid |
54 |
integer nq,ndex(1) |
integer nq,ndex(1) |
55 |
real nivd(1) |
real nivd(1) |