Changeset 1220 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/leapfrog_p.F
- Timestamp:
- Aug 5, 2009, 4:38:34 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/leapfrog_p.F
r1207 r1220 243 243 1 CONTINUE 244 244 245 jD_cur = jD_ref + (day_ini - 1)+ int (itau * dtvr / daysec)245 jD_cur = jD_ref + day_ini - day_ref + int (itau * dtvr / daysec) 246 246 jH_cur = jH_ref + & 247 247 & (itau * dtvr / daysec - int(itau * dtvr / daysec)) … … 684 684 CALL exner_hyb_p( ip1jmp1, ps, p,alpha,beta,pks, pk, pkf ) 685 685 c$OMP BARRIER 686 jD_cur = jD_ref + (day_ini -1) + int (itau * dtvr / daysec) 686 jD_cur = jD_ref + day_ini - day_ref 687 $ + int (itau * dtvr / daysec) 687 688 jH_cur = jH_ref + & 688 689 & (itau * dtvr / daysec - int(itau * dtvr / daysec))
Note: See TracChangeset
for help on using the changeset viewer.