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

Timestamp:

2006-05-10T19:44:38+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_057:RB: step and opa reorganization

File:

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

trunk/NEMO/OPA_SRC/restart.F90

@@ -22 +22 @@
    USE flx_oce         ! sea-ice/ocean forcings variables
    USE dynspg_oce      ! free surface time splitting scheme variables
-   USE cpl_oce,         ONLY : lk_cpl              !
+   USE cpl_oce, ONLY : lk_cpl              !
 
    IMPLICIT NONE
@@ -151 +151 @@
          itime = 0
          CALL ymds2ju( nyear, nmonth, nday, 0.e0, zdate0 )
-         CALL restini( 'NONE', jpi, jpj, glamt, gphit, jpk, gdept, clname,   &
+         CALL restini( 'NONE', jpi, jpj, glamt, gphit, jpk, gdept_0, clname,   &
                         itime, zdate0, rdt*nstock ,numwrs, domain_id=nidom )