/[lmdze]/trunk/Sources/dyn3d/initfluxsto.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/initfluxsto.f

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

trunk/Sources/bibio/initfluxsto.f revision 143 by guez, Tue May 26 17:46:03 2015 UTC trunk/Sources/dyn3d/initfluxsto.f revision 144 by guez, Wed Jun 10 16:46:46 2015 UTC
# Line 1  Line 1 
1  SUBROUTINE initfluxsto(tstep, t_ops, t_wrt, nq, fileid, filevid, filedid)  SUBROUTINE initfluxsto(tstep, t_ops, t_wrt, fileid, filevid, filedid)
2    
3    ! From bibio/initfluxsto.F, v 1.1.1.1 2004/05/19 12:53:05    ! From bibio/initfluxsto.F, v 1.1.1.1 2004/05/19 12:53:05
4    
# Line 15  SUBROUTINE initfluxsto(tstep, t_ops, t_w Line 15  SUBROUTINE initfluxsto(tstep, t_ops, t_w
15    !      tstep: duree du pas de temps en seconde                              !      tstep: duree du pas de temps en seconde                          
16    !      t_ops: frequence de l'operation pour IOIPSL                          !      t_ops: frequence de l'operation pour IOIPSL                      
17    !      t_wrt: frequence d'ecriture sur le fichier                          !      t_wrt: frequence d'ecriture sur le fichier                      
   !      nq: nombre de traceurs                                            
18    
19    !   Sortie:                                                                !   Sortie:                                                            
20    !      fileid: ID du fichier netcdf cree                                    !      fileid: ID du fichier netcdf cree                                
# Line 42  SUBROUTINE initfluxsto(tstep, t_ops, t_w Line 41  SUBROUTINE initfluxsto(tstep, t_ops, t_w
41    IMPLICIT NONE    IMPLICIT NONE
42    
43    !   Arguments                                                              !   Arguments                                                          
   INTEGER itau  
44    REAL, INTENT (IN) :: tstep    REAL, INTENT (IN) :: tstep
45    REAL t_ops, t_wrt    REAL t_ops, t_wrt
46    INTEGER fileid, filevid, filedid    INTEGER fileid, filevid, filedid
   INTEGER nq, ndex(1)  
47    REAL nivd(1)    REAL nivd(1)
48    
49    !   Variables locales                                                      !   Variables locales                                                  
50    REAL zjulian    REAL zjulian
51    CHARACTER(len=3) str    CHARACTER(len=3) str
52    CHARACTER(len=10) ctrac    CHARACTER(len=10) ctrac
   INTEGER iq  
53    REAL rlong(iip1, jjp1), rlat(iip1, jjp1)    REAL rlong(iip1, jjp1), rlat(iip1, jjp1)
54    INTEGER uhoriid, vhoriid, thoriid, zvertiid, dhoriid, dvertiid    INTEGER uhoriid, vhoriid, thoriid, zvertiid, dhoriid, dvertiid
55    INTEGER ii, jj, l    INTEGER ii, jj, l
Legend:
Removed from v.143  
changed lines
  Added in v.144
  ViewVC Help
Powered by ViewVC 1.1.21