Changeset 11 for SCHWARZ_ORCA2LIM3/SOURCES/NEMO/sbcmod.F90

Timestamp:

06/27/19 14:15:12 (4 years ago)

Author:

snguyen

Message:

removed bug : not writing restart when doing several periods of computation

File:

• SCHWARZ_ORCA2LIM3/SOURCES/NEMO/sbcmod.F90 (modified) (1 diff)

SCHWARZ_ORCA2LIM3/SOURCES/NEMO/sbcmod.F90

@@ -465 +465 @@
          CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau )
          CALL iom_rstput( kt, nitrst, numrow, 'vtau_b' , vtau )
-
+         CALL iom_rstput( kt, nitrst, numrow, 'qns_b'  , qns  )
          ! The 3D heat content due to qsr forcing is treated in traqsr
          ! CALL iom_rstput( kt, nitrst, numrow, 'qsr_b'  , qsr  )