Changeset 1577 for LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F
- Timestamp:
- Oct 20, 2011, 5:06:47 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F
r1575 r1577 247 247 1 CONTINUE 248 248 249 jD_cur = jD_ref + day_ini - day_ref + int (itau * dtvr / daysec) 250 jH_cur = jH_ref + & 249 jD_cur = jD_ref + day_ini - day_ref + & 250 & int (itau * dtvr / daysec) 251 jH_cur = jH_ref + start_time + & 251 252 & (itau * dtvr / daysec - int(itau * dtvr / daysec)) 253 if (jH_cur > 1.0 ) then 254 jD_cur = jD_cur +1. 255 jH_cur = jH_cur -1. 256 endif 252 257 253 258 … … 701 706 jD_cur = jD_ref + day_ini - day_ref 702 707 $ + int (itau * dtvr / daysec) 703 jH_cur = jH_ref + 708 jH_cur = jH_ref + start_time + & 704 709 & (itau * dtvr / daysec - int(itau * dtvr / daysec)) 705 710 ! call ju2ymds(jD_cur+jH_cur, an, mois, jour, secondes) 711 if (jH_cur > 1.0 ) then 712 jD_cur = jD_cur +1. 713 jH_cur = jH_cur -1. 714 endif 706 715 707 716 c rajout debug
Note: See TracChangeset
for help on using the changeset viewer.