Changeset 2132 for branches/devmercator2010_1/NEMO/OPA_SRC/IOM/restart.F90

Timestamp:

2010-09-29T17:31:36+02:00 (14 years ago)

Author:

cbricaud

Message:

add change from DEV_r1784_GLS

File:

• branches/devmercator2010_1/NEMO/OPA_SRC/IOM/restart.F90 (modified) (2 diffs)

branches/devmercator2010_1/NEMO/OPA_SRC/IOM/restart.F90

@@ -26 +26 @@
    USE zdfmxl          ! mixed layer depth
    USE trdmld_oce      ! ocean active mixed layer tracers trends variables
+#if defined key_zdfgls
+   USE zdfbfr, ONLY : wbotu, wbotv ! bottom stresses
+   USE zdf_oce
+#endif
 
    IMPLICIT NONE
@@ -136 +140 @@
 #endif
 
+#if defined key_zdfgls
+      ! Save bottom stresses
+      CALL iom_rstput( kt, nitrst, numrow, 'wbotu' , wbotu )
+      CALL iom_rstput( kt, nitrst, numrow, 'wbotv' , wbotv )
+#endif
+
       IF( kt == nitrst ) THEN
          CALL iom_close( numrow )     ! close the restart file (only at last time step)