Changeset 4286 for branches/2013

Timestamp:

2013-11-20T15:05:29+01:00 (10 years ago)

Author:

davestorkey

Message:

Fix to allow VVL runs to read old VVL restarts.

File:

• branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90 (modified) (1 diff)

branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

@@ -770 +770 @@
                   fse3t_b(:,:,:) = fse3t_n(:,:,:)
                ENDIF
+            ELSE IF( id1 > 0 ) THEN
+               IF(lwp) write(numout,*) 'dom_vvl_rst WARNING : fse3t_n not found in restart files'
+               IF(lwp) write(numout,*) 'fse3t_n set equal to fse3t_b.'
+               fse3t_b(:,:,:) = fse3t_n(:,:,:)
             ELSE                                 ! one at least array is missing
                CALL ctl_stop( 'dom_vvl_rst: vvl cannot restart from a non vvl run' )