Changeset 11852 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfrst.F90

Timestamp:

2019-11-04T19:00:27+01:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF_nemo: fix WED025 restartability, finish removing useless USE, remove useless lbc_lnk

File:

• NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfrst.F90 (modified) (3 diffs)

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfrst.F90

@@ -10 +10 @@
    !!   isfrst : read/write iceshelf variables in/from restart
    !!----------------------------------------------------------------------
-   USE oce            ! ocean dynamics and tracers
-   USE isf            ! ice shelf variable
+   !
+   USE dom_oce, ONLY: jpi,jpj,jpk,jpts ! time and space domain
    !
    USE in_out_manager ! I/O manager
@@ -61 +61 @@
       !
       IF( lwxios ) THEN
-          CALL iom_set_rstw_var_active(TRIM(chc_b ))
-          CALL iom_set_rstw_var_active(TRIM(csc_b ))
-          CALL iom_set_rstw_var_active(TRIM(cfwf_b))
+         CALL iom_set_rstw_var_active(TRIM(chc_b ))
+         CALL iom_set_rstw_var_active(TRIM(csc_b ))
+         CALL iom_set_rstw_var_active(TRIM(cfwf_b))
       ENDIF
+
+      CALL FLUSH(numout)
 
    END SUBROUTINE isfrst_read
@@ -74 +76 @@
       !!-------------------------- OUT --------------------------------------
       !!-------------------------- IN  --------------------------------------
-      INTEGER                     , INTENT(in   ) :: kt
-      CHARACTER(LEN=256)          , INTENT(in   ) :: cdisf
+      INTEGER                          , INTENT(in   ) :: kt
+      CHARACTER(LEN=256)               , INTENT(in   ) :: cdisf
       REAL(wp), DIMENSION(jpi,jpj)     , INTENT(in   ) :: pfwf
       REAL(wp), DIMENSION(jpi,jpj,jpts), INTENT(in   ) :: ptsc