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

Timestamp:

2007-02-09T10:40:34+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_update_001 : CT : - add non linear free surface (variable volume) with new cpp key key_vvl

File:

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

trunk/NEMO/OPA_SRC/restart.F90

@@ -127 +127 @@
       CALL iom_rstput( kt, nitrst, numrow, 'un'     , un      )
       CALL iom_rstput( kt, nitrst, numrow, 'vn'     , vn      )
+      IF( lk_vvl ) CALL iom_rstput( kt, nitrst, numrow, 'wn'     , wn      )
       CALL iom_rstput( kt, nitrst, numrow, 'tn'     , tn      )
       CALL iom_rstput( kt, nitrst, numrow, 'sn'     , sn      )
@@ -147 +148 @@
 #endif
 
-      IF( nn_dynhpg_rst == 1 ) THEN
+      IF( nn_dynhpg_rst == 1 .OR. lk_vvl ) THEN
          CALL iom_rstput( kt, nitrst, numrow, 'rhd' , rhd  )
          CALL iom_rstput( kt, nitrst, numrow, 'rhop', rhop )
@@ -271 +272 @@
       CALL iom_get( numror, jpdom_local, 'un'   , un    )        ! now    i-component velocity
       CALL iom_get( numror, jpdom_local, 'vn'   , vn    )        ! now    j-component velocity
+      IF( lk_vvl ) CALL iom_get( numror, jpdom_local, 'wn'   , wn    )        ! now    k-component velocity
       CALL iom_get( numror, jpdom_local, 'tn'   , tn    )        ! now    temperature
       CALL iom_get( numror, jpdom_local, 'sn'   , sn    )        ! now    salinity