Changeset 1220 for LMDZ4/branches/LMDZ4-dev/libf/dyn3d/leapfrog.F
- Timestamp:
- Aug 5, 2009, 4:38:34 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/dyn3d/leapfrog.F
r1201 r1220 219 219 1 CONTINUE 220 220 221 jD_cur = jD_ref + (day_ini - 1)+ int (itau * dtvr / daysec)221 jD_cur = jD_ref + day_ini - day_ref + int (itau * dtvr / daysec) 222 222 jH_cur = jH_ref + & 223 223 & (itau * dtvr / daysec - int(itau * dtvr / daysec)) … … 356 356 ! rdaym_ini = itau * dtvr / daysec 357 357 ! rdayvrai = rdaym_ini + day_ini 358 jD_cur = jD_ref + (day_ini - 1) + int (itau * dtvr / daysec) 358 jD_cur = jD_ref + day_ini - day_ref 359 $ + int (itau * dtvr / daysec) 359 360 jH_cur = jH_ref + & 360 361 & (itau * dtvr / daysec - int(itau * dtvr / daysec))
Note: See TracChangeset
for help on using the changeset viewer.