Changeset 14942 for NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/IOM/restart.F90

Timestamp:

2021-06-03T15:56:32+02:00 (3 years ago)

Author:

acc

Message:

#2605 : Tidier version of restart.F90 that avoids writing the newly-introduced, before barotropic velocities when key_RK3 is not active

File:

• NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/IOM/restart.F90 (modified) (2 diffs)

NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/IOM/restart.F90

@@ -165 +165 @@
          CALL iom_rstput( kt, nitrst, numrow, 'ub'     , uu(:,:,:       ,Kbb) )
          CALL iom_rstput( kt, nitrst, numrow, 'vb'     , vv(:,:,:       ,Kbb) )
-         CALL iom_rstput( kt, nitrst, numrow, 'uu_b'   , uu_b(:,:       ,Kbb) )     ! before fields
-         CALL iom_rstput( kt, nitrst, numrow, 'vv_b'   , vv_b(:,:       ,Kbb) )     ! before fields
          IF( .NOT.lk_SWE ) THEN
             CALL iom_rstput( kt, nitrst, numrow, 'tb'  , ts(:,:,:,jp_tem,Kbb) )
@@ -172 +170 @@
          ENDIF
          !
-#if ! defined key_RK3
+#if defined key_RK3
+         CALL iom_rstput( kt, nitrst, numrow, 'uu_b'   , uu_b(:,:       ,Kbb) )     ! before fields
+         CALL iom_rstput( kt, nitrst, numrow, 'vv_b'   , vv_b(:,:       ,Kbb) )     ! before fields
+#else
          CALL iom_rstput( kt, nitrst, numrow, 'sshn'   , ssh(:,:        ,Kmm) )     ! now fields
          CALL iom_rstput( kt, nitrst, numrow, 'un'     , uu(:,:,:       ,Kmm) )