Changeset 1143 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/gcm.F
- Timestamp:
- Apr 7, 2009, 6:41:02 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/gcm.F
r1140 r1143 427 427 . t_ops, t_wrt, histid, histvid) 428 428 429 t_ops = iperiod * time_step 430 t_wrt = periodav * daysec 431 CALL initdynav_p(dynhistave_file,day_ref,annee_ref,time_step, 432 . t_ops, t_wrt, histaveid) 433 429 IF (ok_dynzon) THEN 430 t_ops = iperiod * time_step 431 t_wrt = periodav * daysec 432 CALL initdynav_p(dynhistave_file,day_ref,annee_ref,time_step, 433 . t_ops, t_wrt, histaveid) 434 END IF 434 435 dtav = iperiod*dtvr/daysec 435 436 endif
Note: See TracChangeset
for help on using the changeset viewer.