Changeset 452 for LMDZ.3.3/branches
- Timestamp:
- Feb 21, 2003, 4:32:13 PM (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/dyn3d/bilan_dyn.F
r431 r452 16 16 #include "comvert.h" 17 17 #include "comgeom2.h" 18 #include "temps.h" 18 19 19 20 c==================================================================== … … 130 131 character*10 infile 131 132 132 integer*4 day0, anne0133 133 integer fileid 134 134 integer thoriid, zvertiid … … 144 144 character*10 ctrac 145 145 integer ii,jj 146 integer zan 146 integer zan, dayref 147 147 C 148 148 real rlong(jjm),rlatg(jjm) … … 202 202 infile='dynzon' 203 203 204 day0=0 205 zan = 0. 206 207 CALL ymds2ju(zan, 1, 1, 0.0, zjulian) 208 zjulian = zjulian + day0 209 tau0 = 0 204 zan = annee_ref 205 dayref = day_ref 206 CALL ymds2ju(zan, 1, dayref, 0.0, zjulian) 207 tau0 = itau_dyn 210 208 211 209 rlong=0.
Note: See TracChangeset
for help on using the changeset viewer.