/[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

revision 15 by guez, Fri Aug 1 15:24:12 2008 UTC revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC
# Line 2  Line 2 
2  ! $Header: /home/cvsroot/LMDZ4/libf/bibio/initfluxsto.F,v 1.1.1.1 2004/05/19 12:53:05 lmdzadmin Exp $  ! $Header: /home/cvsroot/LMDZ4/libf/bibio/initfluxsto.F,v 1.1.1.1 2004/05/19 12:53:05 lmdzadmin Exp $
3  !  !
4        subroutine initfluxsto        subroutine initfluxsto
5       .  (infile,tstep,t_ops,t_wrt,nq,       .  (tstep,t_ops,t_wrt,nq,
6       .                    fileid,filevid,filedid)       .                    fileid,filevid,filedid)
7    
8         USE IOIPSL         USE IOIPSL
# Line 19  C                                  histe Line 19  C                                  histe
19  C  C
20  C   Entree:  C   Entree:
21  C  C
 C      infile: nom du fichier histoire a creer  
22  C      day0,anne0: date de reference  C      day0,anne0: date de reference
23  C      tstep: duree du pas de temps en seconde  C      tstep: duree du pas de temps en seconde
24  C      t_ops: frequence de l'operation pour IOIPSL  C      t_ops: frequence de l'operation pour IOIPSL
# Line 48  C   Declarations Line 47  C   Declarations
47    
48  C   Arguments  C   Arguments
49  C  C
       character*(*) infile  
50        integer*4 itau        integer*4 itau
51        real tstep, t_ops, t_wrt        real tstep, t_ops, t_wrt
52        integer fileid, filevid,filedid        integer fileid, filevid,filedid
# Line 56  C Line 54  C
54        real nivd(1)        real nivd(1)
55    
56  C   Variables locales  C   Variables locales
 C  
       integer tau0  
57        real zjulian        real zjulian
58        character*3 str        character*3 str
59        character*10 ctrac        character*10 ctrac
# Line 81  C Line 77  C
77        zan = annee_ref        zan = annee_ref
78        idayref = day_ref        idayref = day_ref
79        CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)        CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)
       tau0 = itau_dyn  
80                    
81          do jj = 1, jjp1          do jj = 1, jjp1
82          do ii = 1, iip1          do ii = 1, iip1
# Line 90  C Line 85  C
85          enddo          enddo
86        enddo        enddo
87    
88        call histbeg_totreg(infile, rlong(:,1), rlat(1,:),        call histbeg_totreg('fluxstoke', rlong(:,1), rlat(1,:),
89       .             1, iip1, 1, jjp1,       .             1, iip1, 1, jjp1,
90       .             tau0, zjulian, tstep, uhoriid, fileid)       .             itau_dyn, zjulian, tstep, uhoriid, fileid)
91  C  C
92  C  Creation du fichier histoire pour la grille en V (oblige pour l'instant,  C  Creation du fichier histoire pour la grille en V (oblige pour l'instant,
93  C  IOIPSL ne permet pas de grilles avec des nombres de point differents dans  C  IOIPSL ne permet pas de grilles avec des nombres de point differents dans
# Line 108  C  un meme fichier) Line 103  C  un meme fichier)
103    
104        call histbeg_totreg('fluxstokev.nc', rlong(:,1),        call histbeg_totreg('fluxstokev.nc', rlong(:,1),
105       .             rlat(1,:jjm),1, iip1, 1, jjm,       .             rlat(1,:jjm),1, iip1, 1, jjm,
106       .             tau0, zjulian, tstep, vhoriid, filevid)       .             itau_dyn, zjulian, tstep, vhoriid, filevid)
107                    
108        call histbeg_totreg('defstoke.nc', (/1./), (/1./),        call histbeg_totreg('defstoke.nc', (/1./), (/1./),
109       .             1, 1, 1, 1,       .             1, 1, 1, 1,
110       .             tau0, zjulian, tstep, dhoriid, filedid)       .             itau_dyn, zjulian, tstep, dhoriid, filedid)
111    
112  C  C
113  C  Appel a histhori pour rajouter les autres grilles horizontales  C  Appel a histhori pour rajouter les autres grilles horizontales
Legend:
Removed from v.15  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.21