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

Timestamp:

2006-11-14T10:38:52+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_080: CT : compilation error correction

File:

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

trunk/NEMO/OPA_SRC/restart.F90

@@ -27 +27 @@
    USE zpshde          ! partial step: hor. derivative (zps_hde routine)
    USE eosbn2          ! equation of state            (eos bn2 routine)
+   USE trdmld_oce      ! ocean active mixed layer tracers trends variables
 
    IMPLICIT NONE
@@ -36 +37 @@
 
    LOGICAL, PUBLIC ::   lrst_oce                  !: logical to control the oce restart write 
-   INTEGER, PUBLIC ::   numror, numrow, nummldw   !: logical unit for cean restart (read and write)
+   INTEGER, PUBLIC ::   numror, numrow            !: logical unit for cean restart (read and write)
 
    !! * Substitutions
@@ -161 +162 @@
       IF( kt == nitrst ) THEN
          CALL iom_close( numrow )     ! close the restart file (only at last time step)
-         lrst_oce = .FALSE.
+         IF( .NOT. lk_trdmld )   lrst_oce = .FALSE.
       ENDIF
       !