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

Timestamp:

2008-04-22T18:15:19+02:00 (16 years ago)

Author:

rblod

Message:

First set of modifications related to 1D update : cometic changes, see ticket #117

File:

• trunk/NEMO/OPA_SRC/restart.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/restart.F90

@@ -290 +290 @@
          CALL eos( tb, sb, rhd, rhop )        ! before potential and in situ densities
       ENDIF
-      IF( ln_zps .AND. .NOT. lk_cfg_1d ) THEN
+      IF( ln_zps .AND. .NOT. lk_c1d ) THEN
          IF( iom_varid( numror, 'gtu', ldstop = .FALSE. ) > 0 ) THEN
             CALL iom_get( numror, jpdom_autoglo, 'gtu' , gtu )