Changeset 1130 for trunk/NEMO/OPA_SRC/istate.F90
- Timestamp:
- 2008-06-24T17:00:56+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/istate.F90
r900 r1130 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 CALL day_init ! model calendar (using both namelist and restart infos) 84 84 ELSE 85 85 ! ! Start from rest 86 86 ! ! --------------- 87 numror = 0 ! define numror = 0 -> no restart file to read 87 88 neuler = 0 ! Set time-step indicator at nit000 (euler forward) 88 adatrj = 0._wp 89 CALL day( -1 ) ! model calendar (using namelist infos) 90 numror = 0 ! define numror = 0 -> no restart file to read 89 CALL day_init ! model calendar (using both namelist and restart infos) 91 90 ! ! Initialization of ocean to zero 92 91 ! before fields ! now fields
Note: See TracChangeset
for help on using the changeset viewer.