Changeset 1146 for LMDZ4/trunk/libf/bibio
- Timestamp:
- Apr 9, 2009, 12:11:35 PM (16 years ago)
- Location:
- LMDZ4/trunk
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk
-
Property
svn:mergeinfo
set to
/LMDZ4/branches/LMDZ4-dev merged eligible
-
Property
svn:mergeinfo
set to
-
LMDZ4/trunk/libf/bibio/initdynav.F
r761 r1146 5 5 c 6 6 subroutine initdynav(infile,day0,anne0,tstep,t_ops,t_wrt 7 . , nq,fileid)7 . ,fileid) 8 8 9 9 USE IOIPSL 10 USE infotrac, ONLY : nqtot, ttext 10 11 11 12 implicit none … … 28 29 C t_ops: frequence de l'operation pour IOIPSL 29 30 C t_wrt: frequence d'ecriture sur le fichier 30 C nq: nombre de traceurs31 31 C 32 32 C Sortie: … … 48 48 #include "description.h" 49 49 #include "serre.h" 50 #include "advtrac.h"51 50 52 51 C Arguments … … 56 55 real tstep, t_ops, t_wrt 57 56 integer fileid 58 integer nq59 57 integer thoriid, zvertiid 60 58 … … 136 134 C Traceurs 137 135 C 138 DO iq=1,nq 136 DO iq=1,nqtot 139 137 call histdef(fileid, ttext(iq), ttext(iq), '-', 140 138 . iip1, jjp1, thoriid, llm, 1, llm, zvertiid, -
LMDZ4/trunk/libf/bibio/initfluxsto.F
r761 r1146 3 3 ! 4 4 subroutine initfluxsto 5 . (infile,tstep,t_ops,t_wrt, nq,5 . (infile,tstep,t_ops,t_wrt, 6 6 . fileid,filevid,filedid) 7 7 … … 27 27 C t_ops: frequence de l'operation pour IOIPSL 28 28 C t_wrt: frequence d'ecriture sur le fichier 29 C nq: nombre de traceurs30 29 C 31 30 C Sortie: … … 55 54 real tstep, t_ops, t_wrt 56 55 integer fileid, filevid,filedid 57 integer n q,ndex(1)56 integer ndex(1) 58 57 real nivd(1) 59 58 -
LMDZ4/trunk/libf/bibio/inithist.F
r761 r1146 2 2 ! $Header$ 3 3 ! 4 subroutine inithist(infile,day0,anne0,tstep,t_ops,t_wrt, nq,fileid,4 subroutine inithist(infile,day0,anne0,tstep,t_ops,t_wrt,fileid, 5 5 . filevid) 6 6 7 7 USE IOIPSL 8 USE infotrac, ONLY : nqtot, ttext 8 9 9 10 implicit none … … 47 48 #include "description.h" 48 49 #include "serre.h" 49 #include "advtrac.h"50 50 51 51 C Arguments … … 55 55 real tstep, t_ops, t_wrt 56 56 integer fileid, filevid 57 integer nq58 57 59 58 C Variables locales … … 154 153 C Traceurs 155 154 C 156 DO iq=1,nq 155 DO iq=1,nqtot 157 156 call histdef(fileid, ttext(iq), ttext(iq), '-', 158 157 . iip1, jjp1, thoriid, llm, 1, llm, zvertiid, -
LMDZ4/trunk/libf/bibio/writedynav.F
r524 r1146 2 2 ! $Header$ 3 3 ! 4 subroutine writedynav( histid, nq,time, vcov,4 subroutine writedynav( histid, time, vcov, 5 5 , ucov,teta,ppk,phi,q,masse,ps,phis) 6 6 7 7 USE ioipsl 8 USE infotrac, ONLY : nqtot, ttext 8 9 implicit none 9 10 … … 15 16 C Entree: 16 17 C histid: ID du fichier histoire 17 C nqmx: nombre maxi de traceurs18 18 C time: temps de l'ecriture 19 19 C vcov: vents v covariants … … 45 45 #include "description.h" 46 46 #include "serre.h" 47 #include "advtrac.h"48 47 49 48 C … … 51 50 C 52 51 53 INTEGER histid , nq52 INTEGER histid 54 53 REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) 55 54 REAL teta(ip1jmp1*llm),phi(ip1jmp1,llm),ppk(ip1jmp1*llm) 56 55 REAL ps(ip1jmp1),masse(ip1jmp1,llm) 57 56 REAL phis(ip1jmp1) 58 REAL q(ip1jmp1,llm,nq )57 REAL q(ip1jmp1,llm,nqtot) 59 58 integer time 60 59 … … 119 118 C Traceurs 120 119 C 121 DO iq=1,nq 120 DO iq=1,nqtot 122 121 call histwrite(histid, ttext(iq), itau_w, q(:,:,iq), 123 122 . iip1*jjp1*llm, ndex3d) -
LMDZ4/trunk/libf/bibio/writehist.F
r524 r1146 2 2 ! $Header$ 3 3 ! 4 subroutine writehist( histid, histvid, nq,time, vcov,4 subroutine writehist( histid, histvid, time, vcov, 5 5 , ucov,teta,phi,q,masse,ps,phis) 6 6 7 7 USE ioipsl 8 USE infotrac, ONLY : nqtot, ttext 8 9 implicit none 9 10 … … 16 17 C histid: ID du fichier histoire 17 18 C histvid:ID du fichier histoire pour les vents V (appele a disparaitre) 18 C nqmx: nombre maxi de traceurs19 19 C time: temps de l'ecriture 20 20 C vcov: vents v covariants … … 46 46 #include "description.h" 47 47 #include "serre.h" 48 #include "advtrac.h"49 48 50 49 C … … 52 51 C 53 52 54 INTEGER histid, nq,histvid53 INTEGER histid, histvid 55 54 REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) 56 55 REAL teta(ip1jmp1,llm),phi(ip1jmp1,llm) 57 56 REAL ps(ip1jmp1),masse(ip1jmp1,llm) 58 57 REAL phis(ip1jmp1) 59 REAL q(ip1jmp1,llm,nq )58 REAL q(ip1jmp1,llm,nqtot) 60 59 integer time 61 60 … … 102 101 C Traceurs 103 102 C 104 DO iq=1,nq 103 DO iq=1,nqtot 105 104 call histwrite(histid, ttext(iq), itau_w, q(:,:,iq), 106 105 . iip1*jjp1*llm, ndexu)
Note: See TracChangeset
for help on using the changeset viewer.