Changeset 1500 for trunk/NEMO/OFF_SRC/DOM
- Timestamp:
- 2009-07-20T17:08:01+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OFF_SRC/DOM/domain.F90
r1312 r1500 150 150 ENDIF 151 151 152 ndastp = ndate0 ! Assign initial date to current date 152 ! parameters correspondting to nit000 - 1 (as we start the step loop with a call to day) 153 ndastp = ndate0 - 1 ! ndate0 read in the namelist in dom_nam, we assume that we start run at 00:00 154 adatrj = ( REAL( nit000-1, wp ) * rdttra(1) ) / rday 153 155 154 156 ! Namelist namctl : print control … … 169 171 ENDIF 170 172 171 ndastp = ndate0 ! Assign initial date to current date 172 ! ... Control the sub-domain area indices for the print control 173 ! ... Control the sub-domain area indices for the print control 173 174 IF(ln_ctl) THEN 174 175 IF( lk_mpp ) THEN
Note: See TracChangeset
for help on using the changeset viewer.