Changeset 3878 for branches/2013/dev_r3858_CNRS3_Ediag/NEMOGCM/NEMO/OPA_SRC/IOM

Timestamp:

2013-04-20T06:11:18+02:00 (11 years ago)

Author:

gm

Message:

dev_r3858_CNRS3_Ediag: #927 finalize the phasing with 2011/dev_r3309_LOCEAN12_Ediag branche

File:

• branches/2013/dev_r3858_CNRS3_Ediag/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90 (modified) (2 diffs)

branches/2013/dev_r3858_CNRS3_Ediag/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

@@ -22 +22 @@
    USE iom             ! I/O module
    USE eosbn2          ! equation of state            (eos bn2 routine)
-   USE trdmld_oce      ! ocean active mixed layer tracers trends variables
+   USE trdmxl_oce      ! ocean active mixed layer tracers trends variables
    USE domvvl          ! variable volume
    USE divcur          ! hor. divergence and curl      (div & cur routines)
@@ -134 +134 @@
       IF( kt == nitrst ) THEN
          CALL iom_close( numrow )     ! close the restart file (only at last time step)
-         IF( .NOT. lk_trdmld )   lrst_oce = .FALSE.
+!!gm         IF( .NOT. lk_trdmld )   lrst_oce = .FALSE.
+         lrst_oce = .FALSE.
       ENDIF
       !