Changeset 1500

Timestamp:

2009-07-20T17:08:01+02:00 (15 years ago)

Author:

cetlod

Message:

Correction of the computation of initial time parameters ticket:476

File:

• trunk/NEMO/OFF_SRC/DOM/domain.F90 (modified) (2 diffs)

trunk/NEMO/OFF_SRC/DOM/domain.F90

@@ -150 +150 @@
       ENDIF
 
-      ndastp = ndate0                ! Assign initial date to current date
+      ! parameters correspondting to nit000 - 1 (as we start the step loop with a call to day)
+      ndastp = ndate0 - 1        ! ndate0 read in the namelist in dom_nam, we assume that we start run at 00:00
+      adatrj = ( REAL( nit000-1, wp ) * rdttra(1) ) / rday
 
      ! Namelist namctl : print control
@@ -169 +171 @@
       ENDIF
 
-      ndastp = ndate0                ! Assign initial date to current date
-! ... Control the sub-domain area indices for the print control
+      ! ... Control the sub-domain area indices for the print control
       IF(ln_ctl)   THEN
          IF( lk_mpp ) THEN