Changeset 1146 for LMDZ4/trunk/libf/bibio/inithist.F
- Timestamp:
- Apr 9, 2009, 12:11:35 PM (15 years ago)
- Location:
- LMDZ4/trunk
- Files:
-
- 2 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/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,
Note: See TracChangeset
for help on using the changeset viewer.