Changeset 66 for trunk/NEMO/OPA_SRC/restart.F90

Timestamp:

2004-04-22T14:14:14+02:00 (20 years ago)

Author:

opalod

Message:

CT : BUGFIX040 : Correction of the control test with nrstdt for restart case

File:

• trunk/NEMO/OPA_SRC/restart.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/restart.F90

@@ -180 +180 @@
          CALL restput( numwrs, 'sst_io' , jpi, jpj, 1  , 0, sst_io  )
          CALL restput( numwrs, 'sss_io' , jpi, jpj, 1  , 0, sss_io  )
-         CALL restput( numwrs, 'u_io'   , jpi, jpj, 1  , 0, v_io    )
+         CALL restput( numwrs, 'u_io'   , jpi, jpj, 1  , 0, u_io    )
          CALL restput( numwrs, 'v_io'   , jpi, jpj, 1  , 0, v_io    )
 # if defined key_coupled
@@ -314 +314 @@
 
       ! Control of date
-      IF( nit000 - NINT( zinfo(2) )  /= 1 .AND. ABS( nrstdt ) == 1 ) THEN
+      IF( nit000 - NINT( zinfo(2) )  /= 1 .AND. nrstdt /= 0 ) THEN
          IF(lwp) WRITE(numout,cform_err)
          IF(lwp) WRITE(numout,*) ' ===>>>> : problem with nit000 for the restart'