- Timestamp:
- 2007-12-07T15:35:21+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_SBC/NEMO/OPA_SRC/istate.F90
r699 r757 81 81 neuler = 1 ! Set time-step indicator at nit000 (leap-frog) 82 82 CALL rst_read ! Read the restart file 83 CALL day( -1 ) ! model calendar (using both namelist and restart infos) 83 84 ELSE 84 85 ! ! Start from rest … … 86 87 neuler = 0 ! Set time-step indicator at nit000 (euler forward) 87 88 adatrj = 0._wp 89 CALL day( -1 ) ! model calendar (using namelist infos) 88 90 numror = 0 ! define numror = 0 -> no restart file to read 89 91 ! ! Initialization of ocean to zero
Note: See TracChangeset
for help on using the changeset viewer.