Changeset 1483 for trunk/NEMO

Timestamp:

2009-07-03T18:13:24+02:00 (15 years ago)

Author:

ctlod

Message:

declaration of rrau field is missing in restart.F90 when not using double diffusive mixing key_zdfddm, see ticket: #467

File:

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

trunk/NEMO/OPA_SRC/restart.F90

@@ -132 +132 @@
       CALL iom_rstput( kt, nitrst, numrow, 'rhop'  , rhop   )
 
+#if defined key_zdfddm
       IF( lk_zdfddm )   CALL iom_rstput( kt, nitrst, numrow, 'rrau' , rrau  )
+#endif
 
       IF( kt == nitrst ) THEN
@@ -206 +208 @@
       CALL iom_get( numror, jpdom_autoglo, 'rhop', rhop )          ! now    mixed layer depth
 
+#if defined key_zdfddm
       IF( lk_zdfddm ) THEN
          IF( iom_varid( numror, 'rrau', ldstop = .FALSE. ) > 0 ) THEN
@@ -214 +217 @@
          ENDIF
       ENDIF 
+#endif
 
       IF( neuler == 0 ) THEN                                  ! Euler restart (neuler=0)