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

Timestamp:

2013-11-14T18:02:06+01:00 (10 years ago)

Author:

clem

Message:

 

File:

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

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

@@ -132 +132 @@
                      CALL iom_rstput( kt, nitrst, numrow, 'rhd'    , rhd       )
 #endif
+                     CALL iom_rstput( kt, nitrst, numrow, 'iatte'  , iatte     ) !clem modif
+                     CALL iom_rstput( kt, nitrst, numrow, 'oatte'  , oatte     ) !clem modif
       IF( kt == nitrst ) THEN
          CALL iom_close( numrow )     ! close the restart file (only at last time step)
@@ -232 +234 @@
       ENDIF
       !
+      CALL iom_get( numror, jpdom_autoglo, 'iatte' , iatte ) ! clem modif
+      CALL iom_get( numror, jpdom_autoglo, 'oatte' , oatte ) ! clem modif
+      !
    END SUBROUTINE rst_read