Changeset 2005 for branches/DEV_r1837_MLF/NEMO/OPA_SRC/IOM/restart.F90

Timestamp:

2010-07-09T15:07:02+02:00 (14 years ago)

Author:

mlelod

Message:

ticket: #663 MLF: second part (local compatibility essentially)

File:

• branches/DEV_r1837_MLF/NEMO/OPA_SRC/IOM/restart.F90 (modified) (3 diffs)

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

@@ -122 +122 @@
       CALL iom_rstput( kt, nitrst, numrow, 'hdivb'  , hdivb   )
       CALL iom_rstput( kt, nitrst, numrow, 'sshb'   , sshb    )
+      IF( lk_vvl ) THEN
+         CALL iom_rstput( kt, nitrst, numrow, 'fse3t_b', fse3t_b )
+      ENDIF
       !
       CALL iom_rstput( kt, nitrst, numrow, 'un'     , un      )     ! now fields
@@ -191 +194 @@
       CALL iom_get( numror, jpdom_autoglo, 'hdivb', hdivb )
       CALL iom_get( numror, jpdom_autoglo, 'sshb' , sshb  )
+      IF( lk_vvl ) THEN
+         CALL iom_get( numror, jpdom_autoglo, 'fse3t_b', fse3t_b )
+      ENDIF
       !
       CALL iom_get( numror, jpdom_autoglo, 'un'   , un    )        ! now    fields
@@ -217 +223 @@
          hdivb(:,:,:) = hdivn(:,:,:)
          sshb (:,:)   = sshn (:,:)
-         ! - ML - sshbnc 
+         IF( lk_vvl ) THEN
+            fse3t_b(:,:,:) = fse3t_n(:,:,:)
+         ENDIF
       ENDIF
       !