/[lmdze]/trunk/bibio/initfluxsto.f
ViewVC logotype

Diff of /trunk/bibio/initfluxsto.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC revision 30 by guez, Thu Apr 1 09:07:28 2010 UTC
# Line 5  Line 5 
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
# Line 34  C Line 32  C
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
# Line 48  C   Declarations Line 48  C   Declarations
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)
Legend:
Removed from v.27  
changed lines
  Added in v.30
  ViewVC Help
Powered by ViewVC 1.1.21