/[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 15 by guez, Fri Aug 1 15:24:12 2008 UTC revision 30 by guez, Thu Apr 1 09:07:28 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    
        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 19  C                                  histe Line 17  C                                  histe
17  C  C
18  C   Entree:  C   Entree:
19  C  C
 C      infile: nom du fichier histoire a creer  
20  C      day0,anne0: date de reference  C      day0,anne0: date de reference
21  C      tstep: duree du pas de temps en seconde  C      tstep: duree du pas de temps en seconde
22  C      t_ops: frequence de l'operation pour IOIPSL  C      t_ops: frequence de l'operation pour IOIPSL
# Line 35  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 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, 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)
56    
57  C   Variables locales  C   Variables locales
 C  
       integer tau0  
58        real zjulian        real zjulian
59        character*3 str        character*3 str
60        character*10 ctrac        character*10 ctrac
# Line 81  C Line 78  C
78        zan = annee_ref        zan = annee_ref
79        idayref = day_ref        idayref = day_ref
80        CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)        CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)
       tau0 = itau_dyn  
81                    
82          do jj = 1, jjp1          do jj = 1, jjp1
83          do ii = 1, iip1          do ii = 1, iip1
# Line 90  C Line 86  C
86          enddo          enddo
87        enddo        enddo
88    
89        call histbeg_totreg(infile, rlong(:,1), rlat(1,:),        call histbeg_totreg('fluxstoke', rlong(:,1), rlat(1,:),
90       .             1, iip1, 1, jjp1,       .             1, iip1, 1, jjp1,
91       .             tau0, zjulian, tstep, uhoriid, fileid)       .             itau_dyn, zjulian, tstep, uhoriid, fileid)
92  C  C
93  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,
94  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 104  C  un meme fichier)
104    
105        call histbeg_totreg('fluxstokev.nc', rlong(:,1),        call histbeg_totreg('fluxstokev.nc', rlong(:,1),
106       .             rlat(1,:jjm),1, iip1, 1, jjm,       .             rlat(1,:jjm),1, iip1, 1, jjm,
107       .             tau0, zjulian, tstep, vhoriid, filevid)       .             itau_dyn, zjulian, tstep, vhoriid, filevid)
108                    
109        call histbeg_totreg('defstoke.nc', (/1./), (/1./),        call histbeg_totreg('defstoke.nc', (/1./), (/1./),
110       .             1, 1, 1, 1,       .             1, 1, 1, 1,
111       .             tau0, zjulian, tstep, dhoriid, filedid)       .             itau_dyn, zjulian, tstep, dhoriid, filedid)
112    
113  C  C
114  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.30
  ViewVC Help
Powered by ViewVC 1.1.21