Changeset 4206 for branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

Timestamp:

2013-11-14T21:13:29+01:00 (10 years ago)

Author:

clem

Message:

 

File:

• branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90 (modified) (3 diffs)

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

@@ -25 +25 @@
    USE domvvl          ! variable volume
    USE divcur          ! hor. divergence and curl      (div & cur routines)
+   USE sbc_ice, ONLY : lk_lim3
 
    IMPLICIT NONE
@@ -132 +133 @@
                      CALL iom_rstput( kt, nitrst, numrow, 'rhd'    , rhd       )
 #endif
+                  IF( lk_lim3 ) THEN
                      CALL iom_rstput( kt, nitrst, numrow, 'iatte'  , iatte     ) !clem modif
                      CALL iom_rstput( kt, nitrst, numrow, 'oatte'  , oatte     ) !clem modif
+                  ENDIF
       IF( kt == nitrst ) THEN
          CALL iom_close( numrow )     ! close the restart file (only at last time step)
@@ -234 +237 @@
       ENDIF
       !
-      CALL iom_get( numror, jpdom_autoglo, 'iatte' , iatte ) ! clem modif
-      CALL iom_get( numror, jpdom_autoglo, 'oatte' , oatte ) ! clem modif
+      IF( lk_lim3 ) THEN 
+         CALL iom_get( numror, jpdom_autoglo, 'iatte' , iatte ) ! clem modif
+         CALL iom_get( numror, jpdom_autoglo, 'oatte' , oatte ) ! clem modif
+      ENDIF
       !
    END SUBROUTINE rst_read